home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
81
/
algin5
< prev
next >
Wrap
Text File
|
1987-02-21
|
711b
|
55 lines
order x y
np=1
def gen
x
b1 x^2
b2 x^3
b3 x^4
b4 x^5
def rev
y
c1 y^2
c2 y^3
c3 y^4
c4 y^5
def one = 1
def two = 2
def zero= 0
def yy = y
def dup = rev / yy
com dup = dup - one
maxe = 6
sub gen for y in rev
def cnt = 0
def six = 6
def ex = x
def rrev= y
def yp = y
lab loop
def tem = rev
sub q for x in tem
sub 0 for q in tem
com rev = rev - tem
def rev = rev / ex
com cnt = cnt + one
if cnt.le.two goto loop
def yp = yp * yy
def dup = dup / yy
def cc = dup
sub 0 for y in cc
com dup = dup -cc
sub zero for cc in tem
def tt = -tem
sub tt for cc in rev
def rr = -tem * yp
com rrev= rrev + rr
np = 2
pri rr
np = 0
if cnt.lt.six goto loop
end input