Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd01t.sav
There are no other files named bmd01t.sav in the archive.
h '\> -a- );x -\-x . =x /+ B(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,///) F D G $ D H-\ (R4
?+ P('0CONTROL CARD WAS INCORRECTLY ORDERED OR PUNCHED. IT IS ' 'PRINTED BELOW AND PROGRAM HAS BEEN TERMINATED.') + U(2A6,4A3,I3,I4,I3,I4,I3,F5.0,22X,2I2) + Z(1H0,2A6,4A3,I3,I4,I3,I4,I3,F5.0,22X,2I2) " PB
H
I J K K L
:
;
<
<
=
> L M E3D H2F I7 + D3D H2F I7 + y " ib + o( '0A ''PROBLM'' OR ''FINISH'' CARD WAS EXPECTED.' ) " Eb " Ub
H
I J K K L
:
;
<
<
=
> L M "$ . H4d | HX@ { " }b + (1H0 / / '0 FINISH CARD ENCOUNTERED.' ) -\ -E-\ P4 L4 H " 0b
I
; "
<5$ g`
< @
;"$ /.
<5d g`
< @
= A D
?" A
=D D M"
; M5d " : Z N " b 1: 9 " b
: + !(10X,5H* * */10X,28HBANDWIDTH CHOSEN IN PROBLEM I3, 50H LARGER THAN PI, PROGRAM GOES TO NEXT PROBLEM CARD/10X,5H* * *) !$f D
? $ 3$ Mg O M1f g O A 4$ 3 " )b + 2(1H0,23X,71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) $ D M $ $D M " 8B : Z N 3: M9 5 + :(18A4) " >b : Z N 3: M9 ; + D('0VARIABLE FORMAT USED IS PRINTED BELOW.'/(1H0, 18A4))"$ /.
;"& .
;$ 5$ g@@ N HX@ J " Q" B : Z N \3:
;9 K "
?5$ Z G2D J+ R-\ 4 N N5D Z G2D K+ b " b " Wb
: + \(10X,25HORIGINAL DATA OF PROBLEM I3//) " `b : Z N \3:
;9 ] + b(10F12.6) G2D K+ `
= @
> $ /
=5d g
>
?
>5d o
?
> D
@!$
;D
?
= D O OD
>"D O O5d " qb
: + (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)+ Z O
@$ @ @ P " b + (1H1)-\ j4 P4 @4 @
? D P " b +
(1H0)@@ Q" O P + (10X,38HVALUE OF INTEGRAL OF F(X) SQUARE FROM F10.5,4H TO F10.5,3H = F10.5//) OD
> D Q"
? Q4d " qb
: + Z O
@$ @ @ R-\ j4 R4 O4 P
?bD R" b "
? Q
@$ @ @ S P. R D S-\ j4 S4 Q4 S
?bD T" b "
? T P R T P T &H F T " 7b + B(1H0,9X,10HRESOLUTION7X,16HNO. OF TRIANGLES9X,11HCENTERED AT8X,9HBANDWIDTH,10X,19HLEAKAGE IN PER CENT//) " Fb
<
<
> O T + K(13X,I3,18X,I3,15X,F11.8,8X,F10.7,12X,F12.8) " b " Nb + T(1H0,9X,34HTHESE ARE THE VALUES OF THE FILTER//) P. R. S D
="$ .
=` @
> " \b : Z N E3:
=9 Y + ^(7F12.6) " _b + c(1H1,20X,19HGRAPH OF THE FILTER//) $ $ $ $$ $ ` "@ U $ $ $ $$ $ ` @ U : Z N $hEXD m-\ + 4 m4 U @ U $hEXD p-\ +24 p4 U @ U3:
=9 k G D m : Z N"$ . ` @ V
? V
> D Z hE D u"$ D C-\ 4 Z4 @4
?4 u4 m4 U4 U4 B4 C3:
=9 t"$ D C"& F D-\ 4 Z4 @4
?4 u4 m4 U4 U4 C4 D G2D L+ .-\
t
;D
=bD V " + (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 ///) " b V + #(10X16HA( 0) = 0.024X9HB( 0) =F11.5) : Z N " (b h| h+ 3:
<9 $+ .(10X,2HA(I4,4H) = F10.5,20X,2HB(I4,4H) = F10.5) : Z W@@h Z@@h : Z W
<. W. D X $ .
<. W/ D X $ . X"
;. 5f H X \ X\ W | WD X \ X[ W + WD Z W3:
<9 0 $ .
<. W D Y Y \[ V WD Z W3:
;9 . " Ib + Q(1H1,31X,56HGRAPH OF THE FILTERED INPUT AT THE INDICATED DATA POINTS//) > W!$ $ "D U!$ $ D U : Z N $h ZXD Z-\ + 4 Z4 U @ U $h ZXD ]-\ +24 ]4 U @ U3: W9 X" B U U5d f U U C D Y YD U" YD U`
< @ Z
;/
<` @ Z : Z N!$ D Z h Z D u"$ D C-\ 4 Z4
=4 Z4 u4 m4 U4 U4 B4 C3: W9 i"$ D C"& F D-\ 4 Z4
=4 Z4 u4 m4 U4 U4 C4 D " |b
: +
(1H1,20X,72HAVERAGE4FREQUENCY,HAMPLITUDE,1PHASEAANDIFINITE3MOVINGAAVERAGESHOFNSERIESVI4/32X,53H(FREQUENCYOINTRADIANS/UNITITIME8ANDHPHASE1IN,RADIANS)//)\ <4" Z4 4 [ $ .
< D W : Z N: W h Z h D C-\ +`4 C @
8 $h ZXD ' $h XD (-\ <4 '4 (4 [" [ [ D \ \5$ 2
?D \ D Y"` \-\ +24 Y4 \ @ \" Y \5$ 2"` \ " 7b W \
8 [ N Z + :(1H I5,4XF12.6,4(8X,F12.6)) [ D [ N3: W9 + Z-\ -E+ + 0BMD01T X@ Y~j P 0 X PDFINISH PROBLM YES *000 y
@"$ .
< D
{
=
> D
|-\ -4
?
w
x
;D @
z-\ -4
|
z
= @
|-\ -4
?
w
x
;D @
z-\ -4
|
z
= @
}
<7 .$ ( D
}
}(
</ 4F
Y
<"
| F|
<
} F++
\
<
| F|
<"
} F+ : Z
~` @
~
?
~
= D
;
~
?
= D
-\ -4
= @
z-\ -4
w
x@ @
z-\ -4
z
z @h
3:
{9
\ : Z
~` @
~
>
~ D
|-\ -4
| h
"@h|-\ -4
| h
@h+3:
{9
k+
v4 Z
x \
y+
@
x
y-|p }8(z #kB|P. H D O H D P I D P I D Q@@ N L D N : Z O . K N. K hOD N> N1: 9 5 : Z O . K D N3: N9 < N L D M+ E4 Z J \ J K, p ,!p ,!p ,!p + / J J\ M,Ap -|p v'i 3w;] D 06X| Q : Z u` @ u u
@ s D v-\ .4 v . t D v v FE Dh 3: s9 R " ]b + a(1H0,21HVALUES OF F(X) SQUARE//) " fb : Z u 3: s9 c + g(7F12.6) -\ A4 4 s4
@4
?+ n4 Z q \ r r,!p ,!p ,!p + Q q r\ t/ ,Ap -|p x8v@@ 8"$ .
< D 8 : Z 9` @ 9 9
?
= D : 9
> D : 9
;
?
= D ; 9 5 D ;-\ -4 : @ 5-\ -4 : 2 3 @ 6-\ -4 : 6 @ 6-\ -4 ; 6 @ 7-\ -4 ; 7 5@ 83: 89 y 8D
= D 8
=
> D <
= 5 D <
<7 .$ ( D = =(
</ 4F #
;D D 5
= 8-\ -4
? 2 3 5 @ 6-\ -4 < 6 @ 6-\ -4 < 6
= @ + -
;D D 5
= 8-\ -4
? 2 3 5 @ 6-\ -4 < 6 @ 6-\ -4 < 6
= "@ + 14 Z 3 \ 4 4,!p + w 3 4-|p }8(z #kB|h= X4$ J5d @ $ D X X/ Y4D D $ 3D Y+ D YX@ D "$ . X4D I"$ . X4D J XX@ H X D Y+ T " Lb -\ -E+ P(25H ERROR ON TAPE ASSIGNMENT)+ T4 Z W \ W X,!p ,!p + = W W\ Y,Ap ,Ap -|p j8Y+ f4 Z Q * Z
\
,!p "D -\ +`4 @ -\ +E4
-|p " mB
: Z 3: 9 i + o(A6,I1,8(I2,F6.0)) -\ -54 M 5@ Q: Z "$ .h4D w, D "$ . 4D n+ x$ ,D D "$ . $ 5$ n: Z 6b 0b 7 +~4 4 4 4 4 4 *4 /4 24 44 6 \4$ <4D M $\XD -\ +`4 @\+ M \4$ <5d
?D D\+ M \4d < $\XD --\ ,r4 - @\+ M \4D <!$ D\+ M D\+ M D\+ M \4d < \ F , + D\+ M " ?b + M(11H0DATA POINT I5,57H VIOLATES THE RESTRICTION FOR TRANSGENERATION OF THE TYPEI3,52H. THE PROGRAM CONTINUES LEAVING THE VALUE UNCHANGED.) 3:
=9 | 3: 9 r+ " _b
" Yb
: Z 3: 9 U + \(1H0,A6,I1,8(I2,F6.0)) " hb $ D + P+ h(58H0CONTROL CARD ERROR. PROGRAM EXPECTED A SPECTG CARD BUT A A6,16H CARD WAS FOUND.)+ n(42H0PROGRAM WILL GO TO THE NEXT PROBLEM CARD.) " tb
: Z 3: 9 p + ('0ILLEGAL TRANSGENERATIONDCODEFSPECIFIED. CARD-IS+PRINTED' 'HBELOW.' /0(1H0, A6,EI1,8(I2,F6.0))) + \+ 4 Z E+ ; G H D E+ ; E4D 45d 5!$@ G D E+ ;@@ E+ ; GD D E+ ; E4D 45d : G H D E+ ; H D E+ @4 Z C \ C D,!p ,!p ,!p + ! C C\ E,Ap -|p Y~je(H+ M(1H 6X5(F12.3,8X),F12.3/17X,5(F12.3,8X))+ P(1H F12.3,1X,103A1,F12.3)+ R(1H 13X,103A1) + T(1H 14X,101A1)+ W(15X,20(5H+....),1H+) %4D 0@@ '-\ (4 "4 #4 4 (4 (4 )4 )" ( ) D * ( D *"$ . *$ *4$ t '4d e " Tb '4d " ( D 5 : Z + )h4 Dh51: 9 g " Ib : Z + 5.: 1z + k : Z * 5 *.: 1z + n '4d b+ "$ . *4$ w4D x"$ .D * $ / * D + ( ; D A '5d ( ; D C` ( @ , ) , D , ( , D 5 : Z + )h4 Dh51: 9 " @Q" b : Z + 5.: 1z + : Z , 5 ,.: 1z +
D 1 '5d "$ . (4D ." Rb -: Z + &3: *9 5: @Z - &F: .Z + &3 +1: 9 @ -1: 9 &-: 2Z + & +3: +9 '4d "+ {1" Tb . ! '5d {@@ %@@ -U $4$ IH: 2Z +*: KZ *$ $ . +- '2F,1: 29 &? +1: 9 $-\ (4 4 !4 4 .4 .4 /4 /" . /&D 03 #4$ 3 : Z 0 $ $ -1: 29 d 3 : -+ $ / . D 3 $ . 3 D 4` . @ 4 $ / .5d p@@ 4 / 4 /"D 5 & D 3 $ D - 3 Z 2> - Z $-\ -B4 $4 @ +"$ . +5D & D 3 " Mb 5 3 : Z 0 $ $ . - ,1: 29 } 3 5 " /D 5 & D 3+ " Pb 3 : Z 0 $ $ . - ,1: 29 3 23: 49 u $ D '+ ^ $ D %+ 4 Z \ ,!p ,!p ,!p , p , p ,!p ,!p ,!p ,!p + I \ $/ ,Ap ,Ap / ,Ap ,Ap -|p !y ! !Y t `% . + ~P; 1X, 2X, 3X, 4X, 5X, 6X, 7X, 8X, 9X, 10X (17X 5(F1 2.3, 8X)/ 7X, 4(F1 2.3, 8X), F12. 3) v 'U!$ $ !& F (* (& (% D (* (* (& D (+-\ ,k4 (+ (* @ ()@ () @ (+!$ (+, ,# D (, (+ (, D (+@@ (," (! (* (+5$ 'i!$ D (+ (, (" D (,: (, $ / (,5$ 'm!$ D (, $ D (, (+ (,(.4D 'r5d 'i (, (, (. D ((+ '{ (% (, (. D (-@ (- @ (+` (+ @ (-" (- (- D ()-\ -;4 () ("4` 'o (, (, (/ D (( (& (% (( (&D (# D (.@ (. @ (. (.5$ (` (. @ (-" (- (.4D (> (.` (. @ (' (( D (' (& (( (' D ((" (* (& ((5d 'i (& (" D (+ (# (+@ @ (' (( (" (& D (( (' ((@ @ (+ (.5$ (> (+" (.. (' (+$ ('. D (+ (+ D ('+ ( 4 Z ($ \ ($ (%,!p ,!p ,!p ,!p ,!p ,!p ,!p + 'V ($ ($\ ((,Ap ,Ap ,Ap ,Ap -|p 0 ! z8] |-10c=t} (. 0 8 P X p t ~ ! ! !4 (H3D (G+ (= : Z (H (G2Dh(H+ (9 h(I D (G+ (>1: 9 (6 (G3D (Q+ (> (I D (G+ (> (F D (G+ (B4 Z (E \ (E (F,!p ,!p + (4 (E (E\ (G,Ap -|p x(G ~(H2 3 4 5 6 7 8 9 A B C D E F G H I / 4 O@ )9+ (U4 @@ )9O "$ D ): $ : INX |H(X+ (m
(r6@ )9 J (s
(ruJ (tZ (s+ (m J (tz (s+ )6
z@ + (m #p & >
3L(u+ (h7@(u /& 5f (a7 + (m@@ (v: (v L (u
PL(v+ (lR d. R(vd$ 2N + (c: (v: kN
y1kN
y CB` x(tx (uH)5Z (s0B + (m d
:` ):+ (m+ (\x):4 }X); \ * @ * < *(0< 0| + 1\ + )I,>p):Z p):+ p @ h)l@ p)l@(*@0*@ x)s@ )s@8*@()@ P*
@ P*
@ h)l@)Q@ )Q@)k@)k h)~[ (/< 0"` S<p X< 0 p 3@ *)+ )O*| )K-< *5wx)NZ` );+ )~! @w+ )M< *) p 7 p + )l,> ,> ,> &w p , )g,& .< 7@p + )d p , )g" ** *.< p ` ** w,& ,& 5 )V.< p d *+: ." Q ,& p ,& >` 9 )a.< 9 )W@@ ,^ ,^ ,^ + )ld @ @ & 0b ." ." )B}5@ )h,~ m< !< P\ * < *) p [ p l< 0@X + )rZ p .< / p Q \ * + )t@@ * !< P\ * 7@ * + )x < * \ * @@ * !< P\ * X X\ * *+7@ * D<7@ * A< \ * < * [`x * , x ,^x * + ); );Q< \ * : ); \ * < *, p*| *, < \ * @@ * + )|@@ * Q< \ * < *, p*| *-+ )|7 *. *0 \ * @ *X Q< \ * *0 \ * + )|~x*[`x * , x + *Z \ * @@ * @@ * < *) \ * + )|7 * * X\ );@@ * @@ * + )~P* ~0* >x ! Z @
& *1U` eB + *'@ )@ G
" + *#
& *5+ *Z6$ 1 ,> -G. @
p .4 6$ "P*.
.4 * . * SEQIN}0*. @ *-SEQOUT @ */@ *
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + *: ~ + *EZ . \x <x *<x .-> -Jez+ *A!" b + " *B b + Z . h + gg M?} *E
& *G b + *5,
?NO CORE AVAILABLE - CAN NOT PROCEED
x *Ka.3@1 ,> -GO@ +
+ *PgR~@1 ,> -G@@ +
,> ,> @ 6 w+ *]" +
0B + *X!"A`X#p 5@ *U/#p !" X#p + *]\p + *]a.9'1 ,> -G,> ,> O@ +
+ *],>
6 + _ 4` *e"` Q@ ,> < + , ,^ ,> < +,
,^ *b *b+ *p,> < +, ,^ 7@ +
+ *k,> < +,
,^ + *m,> < +,
,^ Z 5" *p,> < +,
,^ , 7@ +
,
,> < +, ,^ , ,> < +, ,^ ,> < + ,
,^ (@qd 1@ ,,
1@ #+ *~0@ *+ *p,> < + , ,^ + *p,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP h+
.p X `+
+ p p+X `+ + p ] + p+p + p+p ^ p+X `+ + X ~P+ + p x x+ C6 1 ,> -G, +*,~ [B 1 ,> -G, +*,~ [B 1 ,> -G, +*@ ,~ C6 1 ,> -G, +*` ,~ ,> e|P w+ +-3!p +p *| +,a|+ +1+p h"" ab~ + +,,^ ,~ C6Md 1 ,> -G, +=,~ [&r 1 ,> -G, +=,~ [&r 1 ,> -G, +=@ ,~ C6Md 1 ,> -G, +=` ,~ ,> e|P w+ +?2ap p *| +?a|+ +C p h" ab~ + +?,^ ,~ CR
+r#p + +b ,~ u +rattempt to take SQRT of negative arg Kc3@ p p + ,Kc3K , ,
,~ Kc3J , , ,~ Kc3I , , ,~ Kc3H4B ,5@ ,5" ,+D *G0
,U,~ ,> ,> # $ )D /$ @,> 4d ,X $ (F), +M ,5F ,5" , ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + ,&Kc#K , ,& @ ,~ Kc#J , ,& @ ,~ Kc#I , ,& @ ,~ Kc#H4B ,J5@ ,*5" ,4+D *G0
,)U ,~ D ,I!$ @ ,H B ,I5" ,1#` + ,F, ,1!" B ,~ + ,4(BdB + ,45B ,/ ,I,~ +7` ,I+ ,=`d +D *G0,8+D *G0
,8U `d @ 6 ,H+ ,3 ,I`B "` + ,3/ ,Kid + ,?+D *G0,8# ,H,> < ,L, ,r,^ @ ` ,I @ ,> < ,L, ,M,^ + ,:U", ,1 ,H+ ,4+ ,.|,I! ,~ x Kc 1 ,> -G p 3" ,h+ ,R3b ,h+ ,T+D *G0
,QU ,~ +D *G0,S ,~ D ,i F ,j@@ ,i%" j" % ,g)/;` : XD ,c5f ,[aF + ,[.& @(|h& f ,i ,e ,f ,f ,i ,e D ,g@ ,i ,j,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX,jC2|t(1 ,> -G p 4@ - @ ,q,> < -
, ,r,^ ,p,~ {e^b},qC2|p 1 ,> -G p 5` ,v4@ -+P *G0- #p 3@ -+ -) r. !@ - ! n@ - (|h" - - B - - - - - - -,~ +D *G0
- -,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8- x ,qATTEMPT TO TAKE LOGBOF1NEGATIVE-ARG{`-G? @ 1 ,> -G p -2 -2+- + -g&t@ 1 ,> -G*p -2+L + -G? 1 ,> -GRp -3+ -g&p 1 ,> -G p pB -1#` 3b -0+ --D -3 -33b -4+ -&%" (D?d$ " @($ )B 0 1 ,> -G#p +" -@,~ U ,~ [> 1 ,> -G p &p ,~ KbN@ 1 ,> -G,
,~ -HY\ -IQ< X\ -J* + !$h X$h @@h *% " -R Bh L " Bh M+ x eX2G iSH YC aS iSH ~-RINX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G x-`iSH + >