Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/pfrac.exe
There are 2 other files named pfrac.exe in the archive. Click here to see a list.
?p`?xa`Kb)C}2C`INXQF:{A)'[{BE@(#>'C	
*>	`fPv5fH O@F"$ DF $ DG-\	D4F4F4J4~4x4x $2D~+; y DJ : Z y DhI1:99 FX@= ">b +@(' ENTER HEADER'/)   FX@B "DB R4 +E(16A5)     FX@G "Hb +T(' ENTER DEGREE OF NUMERATOR POLYNOMIAL FOLLOWED BY THAT OF THE DENOMINATOR'/' SEPARATED BY COMMA, MAXIMUM IS 35'/) FX@U "WB +X(2I)  $3$gO 1fgOA &3&gO 1hgOAA4$n FX@d "eb +m(' DEGREE OF POLYNOMIAL OUTSIDE ALLOWABLE RANGE'/ ' MAXIMUM IS 35, TRY AGAIN'/) +; FX@o "qb

{} +y(' ENTER COEFFICIENTS OF THE ',A10,A1,' POLYNOMIAL STARTING WITH CONSTANT') $3D~+} FX@| "b  $2D~+ FX@ "b +('+TERM'/)+('+TERM, 10 PER LINE SEPARATED BY COMMAS'/)   FX@
 "JQ"B $. Dz : Z 3:z9

  FX@ "qb

|~  $3D~+ FX@ "b  $2D~+ FX@ "b  FX@ "JQ"B $. Dz : Z 3:z9 -\l444444&448 4$? GX@) "*b ++('1') : Z y2DhQ+/1:9,+4 GX@1 "3b R4 +4('-',16A5) GX@6 ";b $. D{ : Z %3:{98 +?('-INFINITE TERMS =',5E13.5)  -\444Z-\448444Z4~4" GX@F "Gb +K('-',12X,'POLE LOCATION'/)     : Z GX@M "Qb (Y 3:9L+U(1X,I3,2X,2(E11.4,'+J',E11.4,2X))   GX@W "Xb +a('-',23X,'R E S I D U E     O F'/11X,'FIRST DEGREE TERM', 8X,'SECOND DEGREE TERM'//)  : Z GX@c "Qb (}! 3:9b FX@i "jb +q('-END OF CALCULATION, TYPE 1 TO CONTINUE OR 0 TO TERMINATE'/)    FX@s "WB  5d2-\0-\0+  +0(10E)     NUMERATOR DENOMINATO     R     : Z| .x  Dh~1:9H x D{ x/y Dz z4$b"$.y D{ x D} $/y.} D} $2d}+f }  y.y }.z D } D~ : Z| ~.z  .y }D~"`~:}3:y9[>}+Q : Z| .z@@1:9c@@z $.{ D~ : Z| .{ h~ F3:~9h+r4 Zv \w  w,!p, p,!p, p,!p, p,!p, p+G v w\ {/ ,Ap/ ,Ap-|p $.' D* : Z+ .'  DhW3:*9-\4'4X4+4j : Z, ,( 
(.
 $/XD-\64'4X44,-\f4,2`"+} &XD& ,( 
(.
 $/XD'-\64&4&4'4- ,( 
(.
 $/XD,-\64+4j4,4.-\f4.3 "+7- <.,

M ,( 
(.
/ ,( )."+-\4+4j4/4| ,( 
(.
 $/XD>-\64/4|4>40-\f403 "+-DF <0,

M ,( 
).
/ ,( 
(.
$/XDI-\( 
(.
$/XDN-\2 &4D] &XDR-\4R4&44 : Z+ ,( 
(.
/ 
(
(3(3

# <,

SL2N23:&9U"3 : Z+ ( 
(.
$/XDb-\-\4)2`"+m ( 
(.
$/XDi-\-\4)3 "+u ,( 
(.
/ 
+(
 

(.

77

# <,

SL3N3 +3:'9^233 ,( 
).
 </,s 
(.
/+FX@~"bH+(/40H0FUNCTIONF(S)DOESNOTHAVEAPOLEATP/)++(4HPs=,E11.3,3H+J,E11.3/)D,3:'9+4@Z$A\%A,%,!p,,p,!p,,p,,p,Zp,,p+"$@%\\)/\,Ap/,,Ap-|pp1:0 : Z! DM . .  D3:9"$. D +4 Z \  ,!p, p,!p, p+  \  / ,Ap-|p $.B DE : ZF .B $XD'-\

/ -\4

.4O:""$z."4$5DO"$.4$z FX@> "?b +G(' UNABLE TO DETERMINE ROOT WITH 500 ITERATIONS ON 5 STARTING VALUES'/)     : Z) $hCXDJ $hUXDK-\

 : Z $./ D .  D)@F* . h1 F-\4) @h13:9P  D0  D 0 D 4D+a 4Dz !@@-\4

@-\4

 4 m0DH-"$.D+q@@@B>>@@@B @@-@B-0> 1 &D0 2 *-\4 @2 : Z h1 &D0 h1 * 

h0 .L-$-\4 @h13:9v -\4 @U -\4 @C:-4D$@@-@B-+~ 4dG+x+

4 Z \  , p,!p, p+k  -|p4=|

%Op?KT=Z0 !V! 0|-1#az8]1b

Y%@@	T@@	R@@	U $( D	U@@	V 	S5Dl-\0 $2D	S+p 	QX@o "pb +r(' FORMAT'/)    $3$	S+w 	QX@u "wb 	S	 +{(' FORMAT: (',A1,'-TYPE ONLY)'/)    	QX@| "	B : Z	V 	W1:(9} +	(80A1)     $3D	U+	 	L2D	XgO 	M2F	XgO 	M2H	WgOAA5$	+	I : Z	V .	R 	N F3:	S9	

 $ D	U $3d	S+	 $$	S D	U : Z	V 	N2Dh	W+	3:	U9	 $ D	R+	I 	N 	V2D	W+	 $ D	W 	UX@	 	W.	R  X@
c "	# : Z	V 	W3:	U9	  +	$(80A1)     : Z	V 	N2Dh	W+	':	V 	O2Dh	W+	)>	V3:	U9	% $3d	V+	,+	I $.D	W $.	W3d	S+	2 $.	S/	W$$ D	U $2d	U+	9 	QX@	5 "	B : Z	V 	W1:(9	6 +	 $2D	T+	;-\0 	QX@	= "	>b +	B(' ERROR IN FORMAT, TRY AGAIN.'/)   $ D	T+h+	I4 Z	O \	P  	P,!p,!p, p,!p,!p,!p+g 	O 	P\ 	S/ ,Ap-|pM    A    S         (    )    I    F    A     \
f @
f<
n0<0|+1\+
,>p
Zp
+p@h
2@p
2@(
L@0
U@x
9@
9@8
W@(
E@P
P@P
P@h
2@
@ 
@
1@
1(H
D[(/<0"`S<pX<0 p3@
o+
*|
-<
{Z`
+
D!  @w+
<
o p7 p+
2,>,>,> &w p,
-,&.<7@p+
* p,
-"
p 
^.< p`
p w,&,&5 
.< pd
q:." Q,& p,&>`9
'.<9
@@,^,^,^+
2d @@& 0b.".")B}5@
.,~m<!<P\
b<
o p[pl<0@X+
8Zp.</ pQ \
c+
:@@
c!<P\
b7@
e+
> <
e \
c@@
e!<P\
bXX\
b 
q7@
dD<7@
dA< \
b <
b[`x 
f,x,^x 
f+
 
Q< \
b:
  \
c<
r p
^|
r < \
b@@
c+
B@@
b Q< \
b<
r p
^|
s+
B7
t 
v \
b @
UXQ< \
b 
v \
c+
B[`x 
f,x+
\Z \
b@@
b@@
c<
o \
c+
B7
d 
dX\
@@
d@@
d+
D>x! Z @
&
wU`eB+
m@)@G 
"+
i
&
{+ 6$1,>2.@

p.46$+0
[.

.4
c.
bSEQIN@
sSEQOUT@
u@
U
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+	~+Z. \x <x*<x .->ez+!"	b+  "	b+Z. h+ggM?Th
&+
{,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>2O@P+gR~@1,>2@@P,>,>@6 w+#"P0B+!"A`X#p5@/#p!"X#p+#\p+#a.9'1,>2,>,>O@P+#,>
6+ _4`+"`Q@,> <Q,,^,> <T,
,^*b(+6,> <V,,^7@P+1,> <Y,
,^+3,> <Z,
,^Z5"6,> <\,
,^,7@P,

,> <],,^,,> <`,,^,> <c,
,^(@qd1@,,

1@#+D0@*+6,><e,,^+6,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXLp XMp Op Op XFX~Lp xG01,>2 #p##2 *+ p+ p  @q Bq,> <r,

G6id@Q<+

GieQ<+

G6ieQ<+

Gie@Q<+

G6ie@Q<+

Gid(Q<+

G6id(Q<+

Gid)Q<+

G6id)Q<+

Gid*Q<+

G6id*Q<+

G6id!`+

Gid,>p,^

J,>p,^

J!`,>p,^

I,>p,^

I,>,>,>,>,

 @

K 

I*

I"@

I,

,^,^,^ @p,^,>

K,^p,~ 

I 

I

J+ 



J+ 

=,~ 

J7@+

-d+ 

Faf+

! @

K+D


 

K,~4D

Faf+

%+

4D

 

J 

I+"

L@,~ 

J

J 

I

I+ 

*

J+ 

I,~

J 

J

I,~+ 

4#3&

L+

0",~$5 

I 5

J+  5,~4D

6"D

K+

 

I$5

J+  

I 5

J+ 5D

35@

3+D

<@,~5D

A2 

L,~ 5 

I$5

J+ +

3 DFab+

D"D

K+

 

J&

I+ 

H,~"F

K+

,~G!d@Q<+

aGid@Q<+

_G!eQ<+

aGieQ<+

_G!e@Q<+

aGie@Q<+

_G!d(Q<+

aGid(Q<+

_G!d)Q<+

aGid)Q<+

_G!d*Q<+

aGid*Q<+

cGidO@

aG!d@@,> @

p4B

m6@

s6@

s@@+++H$.D6 "f&7@"f,
3*#
2*B+q 
++20e,>27cp+

#p+>attempt to take SQRT of negative argI01,>2p7  ,~g:=@1,>2p+g:9d4 

`bm@+ A,~ `bm@+"K,~",~`C1,>2#p,~S01,>2#p+",~U ,~!$hX$h@@h*% "  BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHKbN@1,>2,

,~2Y\4Q<X\4*+