Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0137/bmd/bmd01t.exe
There is 1 other file named bmd01t.exe in the archive. Click here to see a list.
?p0@0 0	?hX	t?x " 
 
<++72	`~f0-uH	t7,2u@(PROBLM    FINISH    *000 YES  (52H1BMD01T - AMPLITUDE AND PHASE ANALYSIS - VERSION OF ,15HAUGUST  9, 1965/40H HEALTH SCIENCES COMPUTING FACILITY,UCLA/14H PROBLEM CODE A6,/23H NUMBER OF DATA POINTS I5,///)('0CONTROL CARD WAS INCORRECTLY ORDERED OR PUNCHED. IT IS ''PRINTED BELOW AND PROGRAM HAS BEEN TERMINATED.')(2A6,4A3,I3,I4,I3,I4,I3,F5.0,22X,2I2)(1H0,2A6,4A3,I3,I4,I3,I4,I3,F5.0,22X,2I2)('0A ''PROBLM'' OR ''FINISH'' CARD WAS EXPECTED.')(1H0//'0 FINISH CARD ENCOUNTERED.')(10X,5H* * */10X,28HBANDWIDTH CHOSEN IN PROBLEM I3,50H LARGER THAN PI, PROGRAM GOES TO NEXT PROBLEM CARD/10X,5H* * *)(1H0,23X,71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)(18A4)('0VARIABLE FORMAT USED IS PRINTED BELOW.'/(1H0,18A4))(10X,25HORIGINAL DATA OF PROBLEM I3//)(10F12.6)(10X,49H*****THE MAIN LOBE OF THE FILTER OF THIS PROBLEM(I3,66H) IS NOT BETWEEN 0 AND PI,PROGRAM GOES TO THE NEXT PROBLEM, IF ANY)(1H1)(1H0)(10X,38HVALUE OF INTEGRAL OF F(X) SQUARE FROM F10.5,4H TO F10.5,3H = F10.5//)(1H0,9X,10HRESOLUTION7X,16HNO. OF TRIANGLES9X,11HCENTERED AT8X,9HBANDWIDTH,10X,19HLEAKAGE IN PER CENT//)(13X,I3,18X,I3,15X,F11.8,8X,F10.7,12X,F12.8)(1H0,9X,34HTHESE ARE THE VALUES OF THE FILTER//)(7F12.6)(1H1,20X,19HGRAPH OF THE FILTER//)(1H1,9X47HB IS THE COEFFICIENT OF COS J.OMEGA IN C(OMEGA)/10X,75HAND A IS THE COEFFICIENT OF SIN J.OMEGA IN S(OMEGA) IN SECTION FOUR STEP 2 ///)(10X16HA(   0) =    0.024X9HB(   0) =F11.5)(10X,2HA(I4,4H) = F10.5,20X,2HB(I4,4H) = F10.5)(1H1,31X,56HGRAPH OF THE FILTERED INPUT AT THE INDICATED DATA POINTS//)(1H1,20X,72HAVERAGE FREQUENCY, AMPLITUDE, PHASE AND FINITE MOVING AVERAGES OF SERIESI4/32X,53H(FREQUENCY IN RADIANS/UNIT TIME AND PHASE IN RADIANS)//)(2X,4HDATA,7X,9HFREQUENCY,11X,9HAMPLITUDE,13X,5HPHASE,7X,38HFINITE MOVING AVERAGES USING CONSTANTS/1X,5HPOINT,68X,4HB(J),16X,4HA(J)//)(1H I5,4XF12.6,4(8X,F12.6))(RPdP Y~jBMD01T    + -<*S 2 D $ D- <
 ,*R <
!, <
$,
3D2F7+
	3D'2F'7+
 <
,,, <
/,, <
2, <
5,
 $2$-+
 <
=, <
?,, <},*l <
,Y <
B, <
E,
7`+	d D $/3$+	d D 	r F${D D"2d+
 	r <
G,,*d
 <
J, <
M,
!$f D 0d0d+
+
 <
O,, $ D $	$d <
R," $ F% D0 0 <
U,
:0; %+
#, <
V," $ F$ D0 0 <
Y,
:0; $+
),"&/."$.$5$	@d, <
[," $ F$ D0 0 <
^,
:0; $+
3,7`+	y .2D+
; <
,66@,+	y 2D+
G <
_,, <
b, <
e,
 <
g," $ F# D0 0 <
j,
:0; #+
C, +2D+ d D $2d+	 5d
T  D!$D D "D D5d
V <
k, <
n,
+	y $D D <
p,, <
,d  D( <
s,,@d <
v, <
y,
  D D3d+
f <
{, <
~,
+	y  $D D <
,d, D <
 $D D1 . D! <
,d, D& <
(&($H D <
<, <..1 D/$d D <
:0;,"+,<	q F/" $ 3(  H 2h/ / H/.$8& / DA" $ F  D0/$d D% D. 0  DH <
,'V:0;  + <
,'V,2D+, <},~ D D) <
"$ <
.$8&)" $ F+ D@f- F\" $ D .. D (../ H.$2d+D   
 
(/
 / 
8OL\ 
(0
 /
8~L-:8&1 $.. D-  
/
/
)L-:;++.< 	q H/" $ -3&  F -2f/ / F/.$8(I!$}2d/+S /$@ DD"D/d D /d D#" $ F) D0!&F - FH <
,'V:0; )+X <
,'V <
=<, <
,d $. D &/ $ F( D0: \ - F	n <
,+X @
@$-D	n00 $\ D	o <~,d"0 D15$v D1 D"f12d1 1 D1 2d1"d1 <
 0 D:0; (+f+	y <},
h		n		o0x	nh.]8#HA/	p	p8#HA/	q	p8.	oHA/	p	p8.	oHA/	q	ph1!hh	o	px,p-x	sXP002(.((+(,$$$$$($$XXXEXT002(.((+(,$$$$$($$`-X]X302$X	Xa
$XmXu(^Xv(^X-(/X	X|$X	(/X	
X	!$$(( (X	X	&X	+(X	,X	/X	>()X	B$(O$(~X	GX	O$X	^
(0(-(\ #kB}8({G>.m@ \{"$. Dy  Dx <7,-}| F <6,- @z <5,-}| F <4,- @
:\;Z+w, <~,B b]Ap,~`q]x\X^Xa(p #kB}8({i.  \ p @@d
  H
.H H(<Q,- <P,- <O,-H
"("3D+=D"<N,-,<M,-,<L,-
xx
x
(25HERRORON>TAPE>ASSIGNMENT)iC<@\Xp@TpBT4Xg5`]$+DTT3DT+aT1D+a<n, $3DT+e $3DT+g <p, T DT+i <s,, <m,*l X T Ap T Ap,~`T`TXUSPECTG    (A6,I1,8(I2,F6.0))(11H0DATA POINTI5,57H VIOLATES THE RESTRICTION FOR TRANSGENERATION OF THE TYPEI3,52H. THE PROGRAM CONTINUES LEAVING THE VALUE UNCHANGED.)(1H0,A6,I1,8(I2,F6.0))(58H0CONTROL CARD ERROR. PROGRAM EXPECTED A SPECTG CARD BUT A A6,16H CARD WAS FOUND.)(42H0PROGRAM WILL GO TO THE NEXT PROBLEM CARD.)('0ILLEGAL TRANSGENERATION CODE SPECIFIED. CARD IS PRINTED'' BELOW.'/(1H0,A6,I1,8(I2,F6.0))){e^biJ
"w $ F D  <C,
:;+E,"v,-9x5D"w $,F D+x1F+Q+5x D0D+R+( $ D } D"$.$5$(",$Dw6b0b+^+Y4^4d4o4t4x44	4/+ w (/ H3 <7,,I @/+ w7$/+4D w /$}4D5d w $/ D3 <6,+X @ w <5,8 @/+ w H H/+ w7`/+ w (/ H3 <4,,n @/+ w7@/+ w!(H/+ w H/+ w H/+ w7`/+ w (/ H3 <2,+k @/+ <E,  <H,
:w8&W:; +M+0 <J, <M,
 <N, <Q,
"w $ F D  <S,
:; +!, <U,, $ D+0 <X, <[,
"w $ F D  <],
:; +,,+% 2  Ap,~p	3x	3xx	3x	3x	3x	3x3x	3xx2X0x$w$x(}X
$w$xX0xX0x$w$x(}X#X(	0x$w$x(} Y~ja")  \c p @b p Ba p D_ c D`D D` ab# Da <,+= @b7Db+v5d|7Da+r5dt `b D_+ ` D_+ `b D_+7Da+y5dz!$@` D_+@d_+ `D D_+7Da+y5d `b D_+ b D_ c _ Ap,~xa     (17X      5(F1 2.3, 8X)/ 7X,       4(F1 2.3, 8X), F12. 3)   +     1X,  2X,  3X,  4X,  5X,  6X,  7X,  8X,  9X,  10X .    (1H 6X5(F12.3,8X),F12.3/17X,5(F12.3,8X))(1H F12.3,1X,103A1,F12.3)(1H 13X,103A1)(1H 14X,101A1)(15X,20(5H+....),1H+)!yyX~h|h08`!Ya2~L@ \'O p @'2 p @ p @'4 !p @ !p @'? p @ p @'6 p @'A p @'07@'1+(;@d <)&,)p"'> D  D/$$4$'{7`+'i <)*,,7`+(0 '> D 'S '= F*d'k <)-,"& $ F D'> '> <)0,
 $.d'>; +'p"& $ F D  <)2,
 $.d; +'u,7`+'g+)"$.4$'~4D'"$.D $/ D'@  '7 D6`+(  '7 Fd D'@'=$	  D'@'> D 'T '= F*d( <)3,"& $ F D'> '> <)6,
 $.d'>; +(
"& $ F D'5 '5 <)8,
 $.d'5; +(,6`+) $3D+(- <)9," $ F D'> <)<,
:'>; +( 'R_DZD <)>,
 'T_D'<ZD'> <)?,
:'>; '<+(":; +( <)A,
"'@ $ F'7 D'> <)B,
:'>; '7+(),7`+(0+(<)D,,6`+(@d'1!D'07:'0+(R4'S?D'6ZD'>R'R&$&.'>RH*d(4:'>; '6+(33<)",)p"1D'?7$'A+)4D(r7 '0+(R"'A$8F'4D.'?KF'1'2=D5$(C@d."XD5$(G@d!$r8'?$(i 'A D <)G, <)J,
 'R_D'2ZD $$ <)L,
:; '2+(l <)M,
:'0+) $/ D.$ Dd D $3d@d"$  D 'A D $ D"&./  D'="$.D '=&(  H'>0H+)  D <)O, <)R,
 'R_D'BZD $$. <)T,
:; 'B+) <)V,
"D 'A D+) <)X, <)[,
 'R_D'BZD $$. <)\,
:; 'B+) <)^,
:'=8&(~$)D+'c)$D'1)'O)Ap'4)Ap)Ap'6)Ap,~p'1'Op'1'OH'4'UH'6'Q'>'=X'LX'C((X((X'K('A(('A(('AX'LX'G('2($(('2X'G(($((X'I($( 0 8 P X p t ~!!!40c=tz8]!|-1g
y1,~	`Z(X^. >X.~(3~+*W	~+*cZ. \x <x*<x .ez+*^!"	b+  "*`	b+Z`.Z. h+ggM?}
&*e	b+*S,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>-<O@+'+*ngR~@1,>-<@@+',>,>@6 w+*z"+(0B+*v!"A`X#p5@*s/#p!"X#p+*z\p+*za.9'1,>-<,>,>O@+'+*z,>
6+ _4`+"`Q@,> <+),,^,> <+,,
,^*b+++,^7@+'++,> <+0,
,^++
,> <+2,
,^Z5"+
,^,7@+',
,> <+5,,^,,> <+8,,^,> <+;,
,^(@qd1@,,
1@#++0@*++,>+<+<,,^++,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOP.pX+$pX+%p+&pj+'p<X+X~+#pxCR4B+e+P*d0
+g#p++Z  ,~>attempt to take SQRT of negative argKc3@ p p++vKc3K  ,+v 
,~Kc3J  ,+v ,~Kc3I  ,+v ,~Kc3H4B,
+D*d0
+yU ,~,>,># $)D/$@,>4d,X $(F) + ,5F,5","` ,,#+,#  ,> <,,,n,^@,> <,,,I,^5&,+P*d0,,^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+,#Kc#K  ,,# @,~Kc#J  ,,# @,~Kc#I  ,,# @,~Kc#H4B,F5@,&5",0+D*d0
,%U ,~ D,F!$ @,E B,E5",-#`+ ,B,,-!"B,~+ ,1(BdB+ ,15B,,  ,F,~ +7`,E+,9`d +D*d0,5+D*d0
,5U `d @6 ,E+,0 ,E`B"`+,0/,Gid +,<+D*d0,5#,E,> <,H,,n,^ @`,E@,> <,H,,I,^+,6U",,-,E+ ,1+,*! ,~xKc1,>-< p3",e+,O3b,d+,Q+D*d0
,NU ,~+D*d0,P  ,~ D,e F,f@@,f%"j"%,c)/;`:XD,_5f,XaF+,X.&@(|h&f,f ,b,c ,b ,f,aD,d@ ,e ,f,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>-< p4@- @,m,> <-,,n,^,m,~{e^bC2|p1,>-< p5`,r4@-+P*d0-#p3@-+-2 -+,x3`-
+,x@@--+,})r. !-
-
(@-|h"--B--
-+D*d0
---,~,~0i/X36P'Ms!hhyI^-*VhP-`@-6P'MP'M]oxx,mAttempt to-takelog*ofnegativesargG?@1,>-<p-6-6++-g&t@1,>-<Fp-6++-G?1,>-<p-7+-g&p1,>-<pB-5#`3b-4+-1D-7-73b-8+-*%"(D?d$"@($)B6-?6`-?S	YVBG9-?G9->
GJ-<GK/K-<thW-;f%-9PU7f%-8U-59*-59)-4v*-9LR-9%9-67)-47(-37'-37&-2J-75u-15b-0E-*E-z*S)	G*R[*R	qG*RZzR*RZzR *R%a*OzA*PG*P[*Fo*G!*K*H	qG*C	*B;.3*9:02*99*8P4*8UJ*7
M*D
M~*C5*I*
a*#]*%a)x**tU*ti*hmM)gg)g	)fE@h)f;.3)e]f)e)dm h)d0K)mJ)c
)c!)b)b)a
)aE?M)`)`E(O))sJ)psJzp)oh04'O)'ks(3=(5(4&)
a(=''u')G a(;
u(2;'u+)J,u(<99(RO)2,(l%a'`
,O)MtU'f(
,c(}3)6,w(~(-)Ou'{3(-)Ru%'~)TPA'Kua(?m(h(2G)Vuu(-@(i(w)<2[)X+(2o)[zA'C3'q?(3)zU'GG'wS)>3)zi'Ia(0[(?(!3+)\o(S("3?)^(g)?(${%(C5){)A+(#{9(C ((?(*{M(F #(){a(GS(n 7)B'i
_)	 K)D'
s) _(3	qG'CP]'BP]'Bf'A^'AK'@g'@:g'?6'?	'>E@h'>'=]f'=PH'<\'7PI'7PI'6AKM'6PJ'5'5PJ'4G9M'4PK'3PK'3'2PL'2:02'1
'1'0m'09 P4 P5P5eP6!P6P7P70K'OP8ALhJ
G:hCEM!FuTNg[/CFh
WF
="2I72E?M_*TNC7c"P\='V=gP'UAz
uo%aG[ho!rw	qGc%1bbba0Kca%=``~7d~7|`dh053h053
AniAt
a^'Y;;JAO:&z6K%(&1|35,=hM,N+Q3GzA?!zUG#S!
_:
s=	qG1qH:gA	=I?&9.}+
nu= 0
!O0/yP4P5P5PIP6Hiz
9 g[_U ~ _yQs
M]%\y* ?x	`
w|hw_N6_No05Ag
a\uUa)dQe3mGi!i[[onps	qGUYTYT0KX;s[Y;s[} X
_N
sM	qG1qIH:gA9.}+
nu= 0!OHN0/yP48PI


JZOg[_ _y
Qs
M]	`
	=k=kx0o3y[|ogii+?S
_w
sw	qG^l]1qIH:gA	\[9.}+
nu=0!OHN0/yP4[IZP5ZPHiz
M]	`
aQUGW[FoLS	qG?_1>l>	==HN<R:P4:P59
9	8&OB&O}PB
aG.[~o7!6{%5+4?S3
_2
s1	qG{1qIH:gA9.}+
nu=Kaz0!OHN0/yP4zP5y8yPIxHiz
w yQs
M]vh05	oh04	n
2 s
s9715

5%_
v9K
l0A	aD
=%s
y9_IA
8 i	
?&
{9sXPAmE
 }	/
&
~>X!	B
B&/
>s
V`UPni	:YAX!%	&
E&C
V`iTn}
!9	E;
&WEV`}u %
9!M	+
G&k3!a	!mK
J&
?Cv!u	>S'
M'

u
&a	,Z;
+f
&ua qO
O,fc
R,'
ew
",;~y  =v
#,O
 Qv
U,cy3
V,w|
)-	y(	
)-
	(	
Y-3?E
H-	G(/P[
[2]?Y
To
323
G?m
VPA	
32G-=	O
^2[e
za
-Q	k+
2o3
$iu
KzA
\-e	^?
_3
G
+zU
fS
b3
[
5,e
=zi
c?
e3+
EABS
g3?
0!
;jE
M
g
C3S
j}{
C8?)+
  
j8S
?
! #
k8g7S
$ 7
n8{.
_
, K
p9.a
t
s
/ _
9#0	qG31q31KIH Q91:gA	0Q0E@h/g%s/0.PH.
-9.o-CT,=I?&,PI+}+
nu=	@)z+PI*PJ*PJ)pJ)PK( a(0J~'
&!OHN0/yP4&P5%I%P5$PP6$ 1M#Hiz
ZOg[_|= _yD~ZLQs
M]G
J^b@[vx`	`
2X00`E?M]Q0RM>0ORM>|@0(R^@	t\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0