;goto lb1

de
filter

do lb1 x21=2,35
;x77=(623.42*x21*x21)+13769.2
;x77=(336.521*x21*x21)+40054.3+(8.52532*x21*x21*x21)
x77=(-653.643*x21*x21)+74387.4+(56.5339*x21*x21*x21)


sd x21,x77
filter
lb1

sd e
filter



fd
L11_minus70S
_1
filter
fq np
_1
test
7
.12,.25

en d