Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmd02t.sav
There are no other files named bmd02t.sav in the archive.
h'ql7-2Xx-px7x. H/+>(1H177H BMD02T-AUTOCOVARIANCE AND POWER SPECTRAL ANALYSIS -REVISED JANUARY 15, 1969/2X40HHEALTH SCIENCES COMPUTING FACILITY, UCLA//)    n DJ $ D)-\1p4
n "KB
t
u$$%%&&''(()
vv* +P(2A6,4A3,F5.0,I2,I4,I3,2I2,F5.0,A6,A3,12X,2I2)    q3Dt2Ft+\ "Tb +X(1H0 / / / '0FINISH CARD ENCOUNTERED.' ) $3D)+[ )X@[-\6lt3Dr2Fr+ "0b  "ab
u +h(1H ///40X,26HP R O B L E M  N U M B E R,4X,A6/40X,26(1H*)///)    "ob$$%%&&''(v +(20X,31HINPUT DATA TO BE PRINTED OUT---A3//20X,33HINPUT SERIES TO BE PLOTTED OUT---A3//20X,13HDETRENDING---A3//20X,15HPREWHITENING---A3//20X,81HVALUE OF CONSTANT C USED IN THE PREWHITENING TRANSFORMATION Z(T)=X(T+1)-CX(T) ---F10.5//20X19HNUMBER OF SERIES = I2//20X,23HNUMBER OF DATA POINTS =I5//20X,24HNUMBER OF LAGS CHOSEN = I3//20X,28HNUMBER OF SELECTION CARDS = I2//20X,20HUSE PREVIOUS DATA---A3//)    "$
.&$&5$ "b)
+"(20X,25HCONSTANTATIMEINTERVAL=F10.5,1X,A6//)."$2.'$'5$!"&b*++(20X,34HNUMBERDOFzVARIABLEFORMAT1CARDS=I3//)[+'DP-\6b4&@w"$.'5d&$'"&h.5f"pw5d~p3Dv+  j @w *4D}5d@ $.*4D; $ Dx  a @w+< $ Dx $ D*6bx0b7+?4Q4@-\K4* $	$D* "GB : Zx 
@>:&Z{x.z'Dx'.Dzxh+ )X@ $.' DM`M @L`' @L`' @J JL DP )DJ DK )L!& FK"(5$# : ZN@@M : Zx@@h
9' "7B
tHII|*,I2,1X,6(I2,3A1,I2)/6X,9(I2,3A1,I2)/6X,4(I2,3A1,I2))\s3Dt2Ft+-\74|44}4}+N5D{3D\+@~-p2DH+J4V4@~-\}4|44}4}4d+: ZxZMh+y(1H1,10X,77HSINCE PREWHITENING IS DONE IN THE INPUT DATA , CROSS-SPECTRUM IS NOT COMPUTED/ 10X,66HPROGRAM WILL PROCEED TO NEXT SERIES IN THE SELECTION CARD (IF ANY)/ 10X,39H OR TO THE NEXT SELECTION CARD (IF ANY))   x3:|9K N3:(9%+A )4d@+v "&b& + "0b + "4b' + "b +('0PROGRAM EXPECTS A ''PROBLM'' CARD.')  "9b
t
u$$%%&&''(()
vv* + "Ob  "Eb
tHII|* "ab +X "Zb + "eb  $ D(+$+0(1H0,20X,47HCONSTANT USED IN PREWHITENING TRANSFORMATION IS,F7.5,23H,A VALUE NOT PERMITTED.)   +4(1H0,37X,22HDATA STORAGE EXCEEDED.)+9(1H0,37X,29HNUMBER OF LAGS IS TOO LARGE =,I5)+E( '0CONTROL CARD OUT OF ORDER OR MISPUNCHED. CARD IS PRINTED BELOW. ' / 1X,2A6,4A3,F5.0,I2,I4,I3,2I2,F5.0,A6,A3,12X,2I2)+O('0CONTROL CARD OUT OF ORDER OR MISPUNCHED. CARD IS PRINTED BELOW.' / 1X,A6,1X,3A4,I2,A1,2I2)  +T('0PROGRAM EXPECTS A ''SELECT'' CARD.') +Z(1H0,37X,43HNUMBER OF SERIES IS OUTSIDE PROGRAM LIMITS.)    +a(1H0,37X,43HNUMBER OF POINTS IS OUTSIDE PROGRAM LIMITS.)    +e(1H0,37X,23HPROGRAM CANNOT PROCEED.)    +l(1H0,37X,44HNO SELECTION CARD SPECIFIED. ONE IS ASSUMED.)   -\6l+  +0 Y~pBMD02T    @o 0YES  FINISH    PROBLM    SELECT    8hR+b4S  
Q *  Z \  ,!p,!p,!p  DD$ F "!8
X8*8  -|p ! DQ : Z!@@"@@""$. D#"#.' D#`# @$ : Z$ #. D% .  %.D" %.  .D"3:#9j "$ ! D "$ ! D !3:M9d "}b
+(1H1,21X,3HLAG,14X,15HCROSSCOVARIANCE,15X,15HCROSSCOVARIANCE/37X,9HOFSERIES,I3,4H AND,I3,11X,9HOF$SERIES,I3,4HAND,I3/20X,1H(A6,1H),11X,15H(POSITIVE  TAU),15X,15H(NEGATIVE  TAU)//)    ") D% : Z! )D% "b%hh 3:M9+(19X,F9.4,10X,F15.6,15X,F15.6) % D& : Z! $/.M D% %  Dh
+L(1H1,7X,44HGRAPH&OFCROSS-COVARIANCEFUNCTIONOFSERIES,I3,4HmAND,I3,36H!PLOTTEDAGAINST$TIMEDUP0TOALAGOF,F9.4,1X,A6//) :")&hD("$.M5$R@@)$D)Z@*+VO@))hD)\@*$.'hD*:Z!)D(Z*1BZ+Z1B\+\!hD Dh KhD Dh3:M9 
 
 D
 M 
 D
 
 D
 M 
MD, : Z$ 
h hh Dh
h,hhDhh3:M9"-\T "/b
1+L(12H114FREQUENCY,6X,11HCO-SPECTRUM,6X,19HQUADRATURE0SPECTRUM,5X,27HAMPLITUDE OFACROSS-SPECTRUM,4X,23HPHASEOFDCROSS-SPECTRUM/1X,8H(CYCLES/A6,1H),6X,2HOF,19X,2HOF,26X,2HOF,27X,2HOF/16X,6HSERIES,I3,4H AND,I3,5X,6HSERIES,I3,4H AND,I3,12X,6HSERIES,I3,4H AND,I3,13X,6HSERIES,I3,4H AND,I3,2H *//)"K D( : Z! KD( "Tb(h
V:MZ!e$hXDg-\64g@h
+y(1H1,8X,46HGRAPH OF AMPLITUDE OF CROSS-SPECTRUM OF SERIES,I3,4H ANDI3,42H (IN LOG SCALE) AGAINST FREQUENCY (CYCLES/A6,1H)//)-\G4
+(1H1,3X,33HPHASEOFCROSS-SPECTRUMOF!SERIES,I3,4H AND,I3,63H -- PLOTTED IN FRACTIONS OF A CIRCLE AGAINST FREQUENCY (CYCLES/,A6,1H)//) -\ I2D+ 3DH+) "bN +((1H1,10X,5H*****/15X,29HTHE POWER SPECTRUM OF SERIES I3,5H AND I3,54H ARE NOT COMPUTED ACCORDING TO THIS SELECTION CARD NO. I3/15X,68HTHE COHERENCE SQUARE AND THE TRANSFER FUNCTIONS CANNOT BE CALCULATED/ 15X,5H*****)    +  L @-  4 @-" D." D." D/ : Z! . 4DK !  F  !  !.' D
v!5$GS!!FI-\4=4.4I @.+S!   F   7 @- !@@ !   F
!+(13H1FREQUENCY7X16HCOHERENCE,SQUARE,11X,12HAMPLITUDEIOF,13X,12HAMPLITUDE OF,15X,8HPHASEGOF/9HR(CYCLES/A6,1H),11X,2HOF,15X,3(18HTRANSFERMUFUNCTION7X)/20X,6HSERIES,I3,4HEAND,I3,11X2(4HFROMI3,3HSTO,I3,11X),4HFROMI3,3H7TO,I3,2H*//)8b"KD(:HZ!XKD(I"	b(hhT COMPUTABLE DUE TO A NEGATIVE OR ZERO POWER SPECTRAL ESTIMATE./13X,82HIT WILL BE SET EQUAL TO THE MAXIMUM OF THE REMAINING VALUES FOR PLOTTING PURPOSES.)   M3D>+P  M2D>+ "Sb
+^(1H1,16X,40HGRAPHOF COHERENCE SQUARE BETWEEN SERIESI3,4H ANDI3,27H AGAINST FREQUENCY (CYCLES/A6,1H)//)  -\G4  M3D>+c  M2D>+ : Z! $h
+{(1H1,5X,51HGRAPH OF AMPLITUDE OF TRANSFER FUNCTION FROM SERIESI3,3H TOI3,42H (IN LOG SCALE) AGAINST FREQUENCY (CYCLES/A6,1H)//)  -\G4
-\G4\-\,!p,!p,p,p,Fp,p,!p,!p,!p,!p+S4-|p+#kB}8(z]8(z&	3|+1Lf3PYESYB|pCy~jS9~jHxP\T` R**RX$*Mzp/4W4D[+: Z[.h $.`4@4K3D9)D!& F!$@@D"OD@@R!$) DR"K DS : ZQ KDS .N  D
 Z
,\,!p,!p"F 
-  DQ : Z@@"$. D".' D` @ : Z . D .  .D3:9j   D  3:M9d "vb
 +~(1H1,21X,3HLAG,30X,14HAUTOCOVARIANCE/20X,1H(,A6,1H),28X,9HOF SERIES,I3//)  ") D : Z )D "bh  3:M9+(19X,F9.4,26X,F13.6)  D  M3D*+
  M2D*+> $$$$$$` @ $$$$$$`"@ "b
+"(1H1,9X,42HGRAPHOFAUTOCOVARIANCEFUNCTION4OFSERIES,I3,37HPLOTTED@AGAINSTTIMEUPTOADLAG OFF9.4,1X,A6//):Z$hXD%-\4P44%@$hXD(-\4=44(@3:M9"")D"$.M5$.@@$D+0O@D:Z)Dh:D Z h/ h0h/ . D3: 9Y"P D! &&$ D! &D D" %2D+l : Z PD!-\644!"!"@" . " D3:M9e "ob
 +y(1H119X9HFREQUENCY22X24HPOWER SPECTRAL ESTIMATES/17X,8H(CYCLES/A6,1H),25X, 9HOF SERIES I3//)   "K D  9 @#   @#   M.D"D : Z KD . 5$   F+   F "b .  +(21X,F8.3,26X,F14.7,A1)   . D  3D+ Z#1B+1B+" D$ : Z . $XD-\4=4$4 @$3:M9  $ @#   @# . $ F 3:M9Z#1B$+$1B9+9 "%b +9(1H0, 6X,88H* THIS ESTIMATE IS NEGATIVE INDICATING SOME LEAKAGE. IT WILL BE SET EQUAL TO THE MAXIMUM/ 9X,85HVALUE OF THE REMAINING ESTIMATES FOR FUTURE PLOTS AND EQUAL TO ZERO FOR CALCULATIONS.)  P) D$"$ D "@b$ +L(1H0,6X,44HTHE CHECK SUM OF POWER SPECTRAL ESTIMATES IS,F14.7,14H AND SHOULD BE,F14.7/7X,17HTHE DIFFERENCE IS,F14.7)      M3D*+P  M2D*+w (4Db "Tb
 +_(1H1,18X,47HGRAPH OF THE POWER SPECTRAL ESTIMATES OF SERIESI3,27H AGAINST FREQUENCY (CYCLES/A6,1H)//)     XD`-\G4` (4$w "db
+p(1H1,10X,34HPOWERJSPECTRALESTIMATESOFFSERIESI3,6X49HPLOTTEDINALOGSCALEAGAINSTFREQUENCYD(CYCLES/A6,1H)//)K D:Z.$XDt-\64t@h3:M9q-\G4!:Z3Dh+{.@@3:M9w+4Z\,!p,p,!p,!p,p+S\-|pX#kB}8(z]8(z&	3|`YES ZAK $B/P' h.*-\*0R4l8$FDQPD')5$/:ZG"$.B$'.FG.CGU>F3:'9(+7"$.B$'DH:ZG.HDH.CHD>F3:'92E2D$+F";bB+?(1H15X24HORIGINAL'DATAJOFSERIESI3//) \"Dbp:pZGp.C3:'9A+F(10F11.5)ApE2D$+q$$$$$$`"@I$$$$$$`@I:ZG.C$XDR-\4=4I4R@I.C$XDV-\4P4I4V@I3:'9O"ZbB+b(1H1,10X,22HGRAPHeOF5INPUTOSERIESAI3///)@@JN:ZG!$DJ.CppD+P l l\ n,Ap,Ap-|pi@n+|4o  #Q * ( Z( \)  ),!p )$"D,-\4}4, ) F--\4b4-!8#X8*8 ( )-|p "B
01:Z1733:19~1+(A6,I1,8(I2,F6.0))$.3D02F0+s:Z1"$.h74D,43474F4L4P4S4U 3., 4$\4Do 3., $XD-\4}4 @+o 3., 4$\5d% 3.,!& F+o!$ 3., D--\4}4- @. (XH*-\4}4*. @+o 3., 4d\ 3., $XD1-\641" @+o 3., $XD5-\5j45 @+o 3., 4$\4Do"" 3.,4DC5d\ 3., $XD?-\4}4? @3-\o43 3., @+o JD 3., D+o 3., 4d\ 3., $XDJ-\64J @+o 3., 4D\!$ 3.,D+o 2 3.,D+o 2 3.,D+o 3., 4d\ 3.,  F- 2,5 - D+o "b3+ 17 +o(11H0DATA POINT I5,10H OF SERIESI3,57H VIOLATES THE RESTRICTION FOR TRANSGENERATION OF THE TYPEI3,52H. THE PROGRAM CONTINUES LEAVING THE VALUE UNCHANGED.)  33:'9 13:19+  "b
0  "{b
01 : Z1 7 33:19w +('0IMPROPER SPECTG CARD IS PRINTED BELOW.' / 1X,A6,I1,8(I2, F6.0))     "b  $ DN+r+(58H0CONTROL CARD ERROR. PROGRAM EXPECTED A SPECTG CARD BUT A A6,16H CARD WAS FOUND.)+(55H0PROGRAM WILL GO TO THE NEXT SELECTION OR PROBLEM CARD.) "b ++(40H0ILLEGAL TRANSGENERATION CODE SPECIFIED.)+ 4 Z* \*  +,!p, p+o * *-|p{e^b 0p.SPECTG    }0; R5d@ "Bb  $ DR+N $2$R+?+=+K(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)   +N4 ZQ \Q  R,!p+< Q Q\ R,Ap-|pe S+X(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)+b(15X,20(5H+....),1H+)     24D;@@2-\124-4.4'43434444"34 D5 3 D5"$.5$54$~ 24do "_b  24d, 3 D@ : Z6 4h? Dh?1:9q "Sb : Z6 ?.:1z+u : Z5 ? 5.:1z+y  24dm+"$.54$4D"$.D5 $/5 D6 3 E DK 25d 3 E DN`3 @7 47' D7 37 D@ : Z6 4h? Dh?1:9
H"KQ"bH:<Z65?.:1z+7:=Z67?\6.:1z+9>25d"$.34D*"]b7:2Z603:59:;Z71-:Z60461:971:	91<:HZ60563:69% 24d,+7"b4;25d@@2@@8Y/4$T8:(Z6l:1Z5=$$.6=1XF71:290=61:9/-\124+4,4(4849494:"99D:+;>.4$4Du>/4$T?:Z;8.-?:D;?9+9D<?<5$D@@<47;.,7D</<5$H@@<!$6"$.65D 1 D= "Xb?= : Z; $$.771:29=? ":D? 0 D=+ "[b= : Z; $$.771:29=  =3:>9 $ D2+i $ D2+"4 Z) \*  *,!p,!p,!p, p, p,!p,!p,!p,!p+S ) *\ // ,Ap,Ap/ ,Ap,Ap-|p!y!!Y t`0.    +         ~PE 1X,  2X,  3X,  4X,  5X,  6X,  7X,  8X,  9X,  10X (17X      5(F1 2.3, 8X)/ 7X,       4(F1 2.3, 8X), F12. 3)   t 0` 1@1@ D1E 1E1A D1E-\641E1D @1C@1C @1F!$	  1F,5A D1F 1E1F D1E@@1G"1<1D1E5$0o!$	 D1E 1F1< D1F:1G $/1G5$0s!$	 D1F $ D1G 1E 1G1L4D0x5d0o 1F 1G1L D1C+1 1@ 1G1L D1G@1G @1F`1F @1H"1G1H D1C-\6b41C1=4`0u 1F 1G1L D1C 1@1@1C1AD1= D1H@1H @1I 1I5$1
`1I @1G"1G1H4D1
>1I`1I @1B 1CD1B 1A1C1B D1B"1D1@1B5d0o 1F 1G1L D1I 1@1@1I1AD1= D1J@1J @1J 1J5$1`1J @1K 1J3D1K+1>1J`1J @1K 1ID1K 1A1I1K D1L 1@1L2d1D+1$ 1K D1B 1L D1B 1I D1C 1J D1I 1A1< D1E 1>1E@ @1A 1C1<1A D1C 1B1C@ @1F 1I5$1->1F"1I.1A 1F$1A. D1F 1F D1A+184 Z1> \1?  1?,!p,!p,!p,!p,!p,!p,!p+0` 1> 1?\ 1C,Ap,Ap,Ap,Ap-|p 0!z8]|-10c=tx1D} 1L 0 8 P X p t ~!!!4 1e3D1d+1[ : Z1f 1d2Dh1f+1W h1f D1d+1\1:91S 1d3D1o+1\ 1f D1d+1\ 1d D1d+1`4 Z1b \1c  1c,!p,!p+1Q 1b 1c\ 1d,Ap-|px1e     ~1f2    3    4    5    6    7    8    9    A    B    C    D    E    F    G    H    I    /    4O@2W+1r4@@2WO"$ D2W $:INX|H1u+2
 
26@2W J2 
2 J2Z2+2
ZJ2z2+2S
z@+2
 #p &> 
3L2+27@2 /&5f17 +2
@@ 2: 2 L 2 
PL2+2	Rd.R2d$2N+2:2:
y1kN
y CB`x2x2H2SZ20B+2
	d
:`2W+2
+1zx2W4}X2X \3= @3><3E0<0|+1\+2f,>p2WZp2W+p@h3	@p3	@(3#@03-@x3@3@83/@(3@P3'@P3(@h3	@2n@ 2n@3	@3	3@3[(/<0"`S<pX<0 p3@3F+2m*|2i-<3Swx2kZ`2X+3!  @w+2j<3G p7 p+3	,>,>,> &w p,3,&.<7@p+3 p,3"3G 35.< p`3H w,&,&5 2t.< pd3H:." Q,& p,&>`92.<92t@@,^,^,^+3	d @@& 0b.".")B}5@3,~m<!<P\39<3G p[pl<0@X+3Zp.</ pQ \3:+3@@3:!<P\397@3<+3 <3= \3;@@3<!<P\39XX\39 3I7@3;D<7@3<A< \3: <39[`x 3>,x,^x 3=+2X 2XQ< \39:2X  \3:<3I p35|3J < \3:@@3;+3@@3: Q< \39<3I p35|3J+373L 3M \3: @3,XQ< \39 3N \3:+3~x3,[`x 3>,x+34Z \39@@3:@@3:<3G \3;+373< 3;X\2X@@3<@@3;+3P36~03>>x! Z @
&3NU`eB+3D@)@G 
"+3A
&3R+3w6$1,>6n.@
p.46$6(33.
.43:.39SEQIN}03K@3KSEQOUT@3L@3,
%5 Source level error at user's loc	
	`Z(X^. >S.~(3~+3W	~+3cZ. \x <x*<x .->6qez+3^!"	b+  "3`	b+Z. h+ggM?} 3b
&3e	b+3S,
?NO CORE AVAILABLE - CAN NOT PROCEED
x 3ia.3@1,>6nO@4'+3ngR~@1,>6n@@4',>,>@6 w+3z"4(0B+3v!"A`X#p5@3s/#p!"X#p+3z\p+3za.9'1,>6n,>,>O@4'+3z,>
6+ _4`4"`Q@,> <4),,^,> <4,,
,^*b4+4,^7@4'+4,> <40,
,^+4
,> <42,
,^Z5"4
,^,7@4',
,> <45,,^,,> <48,,^,> <4;,
,^(@qd1@,,
1@#+40@*+4,>4<4<,,^+4,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOPh4'.pX`4*4$pp4,X`4.4%p04&p41pj4'p42pnp44X`464X~P494#p xx 4<C6 1,>6n,4H,~[B1,>6n,4H,~[B1,>6n,4H@,~C61,>6n,4H`,~,>e|Pw+4J3!p p*|4Ja|+4N ph" ab~+4J,^,~C6Md 1,>6n,4Z,~[&r1,>6n,4Z,~[&r1,>6n,4Z@,~C6Md1,>6n,4Z`,~,>e|Pw+4]2ap p*|4\a|+4a ph" ab~+4\,^,~CR
  )@/ @( X@5(B{4 5	B? B5"P" 5B 5@,~B@ B5""X+54B5+P3d0
5#p+4  ,~u 5attempt to take SQRT of negative argKc3@ p p+5Kc3K  ,5 
,~Kc3J  ,5 ,~Kc3I  ,5 ,~Kc3H4B555@5#5"55+D3d0
5"U ,~,>,># $)D/$@,>4d5,X $(F) + 5,5F5,5"5+"` ,5D+53#  ,> <57,6,^@,> <58,5j,^5&53",^,^,^,~! ,~xxKc#@ p p+5DKc#K  ,5D @,~Kc#J  ,5D @,~Kc#I  ,5D @,~Kc#H4B5g5@5G5"5Q+D3d0
5FU ,~ D5g!$ @5f B5f5"5N#`+ 5c,5N!"B,~+ 5R(BdB+ 5R5B5M  5g,~ +7`5f+5Z`d +D3d05V+D3d0
5VU `d @6 5f+5Q 5f`B"`+5Q/5hid +5]+D3d05V#5f,> <5i,6,^ @`5f@,> <5i,5j,^+5WU",5N5f+ 5R+5K|5g! ,~xKc1,>6n p3"6+5p3b6+5r+D3d0
5oU ,~+D3d05q  ,~ D6 F6@@6%"j"%6)/;`:XD65f5yaF+5y.&@(|h&f6 66 6 66D6@ 6 6,~!t0_'"S'qf!um.	.#Y% !vyO^	RX6C2|t(1,>6n p4@6 @6,> <6(,6,^6,~{e^b}6C2|p1,>6n p5`64@6+P3d06(#p3@6"+6!)r. !@6&! n@6&(|h"6# 6# B6' 6$6$6%6'6&6%,~+D3d0
6  6&,~  ,~ 0_i/X3 6P'M 5( bB W
R`@86'x6ATTEMPTTOTAKELOGBOFONEGATIVE6ARG{`6,G?@1,>6np6O6P+6+69g&t@1,>6n*p6P+L+69G?1,>6nRp6P+69g&p1,>6nppB6O#`3b6N+6KD6Q6P3b6Q+6C%"(D?d$"@($)B:9d5`6]4B6`/"ab+6`2@6a;@4 6`l ,~?C1,>6n#p,~S01,>6n#p+"6g,~U ,~[> 1,>6n p&p ,~KbN@1,>6n,
,~6nY\6pQ<X\6p*+!$hX$h@@h*% "6x BhL " BhM+xeX2GiSHYC aSiSH~6xINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@Gx7iSH+l