Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0152/splplt.rel
There are 2 other files named splplt.rel in the archive. Click here to see a list.
 TG0TG@ Yc
 @H	 )(' ',T10,'S P L I N E  P L O T  R O U T I N E',/,' NUMBER OF DATA POINTS [4-20]? ',$)	 2(I)(' ** IMPROPER NUMBER OF DATA POINTS - RANGE 4-20 **')(' ENTER X AND Y DATA (X 	 :IN ASCENDING ORDER)::')(2F)(' data pair ',I2,':',$)(' ** X DATA MUST BE IN ASCEND	 CING ORDER **')(///' WHAT WINDOW SIZE WOULD YOU LIKE FOR THE SPLINE FIT [4-20]? ',$)	 K(' ** WINDOW SIZE MUST BE IN THE RANGE OF 4-20 **')(' ** WINDOW EXCEED AMOUNT OF  TDATA ENTERED **')(' scaling data.......')	 + -< <, <,, <, <, 0$0d
++  <,,+ <,,	D"e5$Jb^O[`20J` R`zRc_<F
`20J	` R	`20J	"
c$ D( <, <, <, <,  F( F &/ $ D(	  Q* <, <, <, ( <, 3h+  H 2((+*   H(1D+ 2h+ <,	D"` R`20J
`zRc_<F
`20Jc_<F
`zRc_<F
	"P!,+
:(8& <,, <, <, 0$0d
++ < T*,,+# 3d+ <,,	D"`20J!` R!`20J$` R$`zR%c_<F
&`20J*`R*`20J-	(*Q.+#<,,,D`F.`20J/` R0c06g5eTB6c0Gx@:c0Gx@;c0Ie<c0Ie=	 ? <, <, <, <, <, <C, <D,x	(Q*U*G[p\Z(Z
@$@L@"@
)@+@L/@TF@$G@H@J@tP@dQ@TU@DY@4\@$^	*U*DaY$X2	 rX8X=$(X	 ( z=((X=$(	 @X=((X@ XDX@	@d`@Tf@g@,h@Dk@Tn@
p@,s@Tv@dy@tz@}@L@\@l@@
	@<
	 A2$XKX( QXV	D"c0'#6>`
g<d?eTB@fu,A`,B` fC`}KD`	WJEE?M	D"052
\NCFh[ptE@h(	(C.F)	qG)
sz
ySv	D"?s+pnSGok5V?H[h	D"!/SJGgD"`3ftAD

a8	U
	D"-28 ((\