|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5376 (0x1500)
Types: TextFile
Names: »gonimedit16«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦1248b0c55⟧ »gobib«
└─⟦this⟧
;gosav time.200 lines.5000
i gonimfreq
gonimfreq0=edit gonimfreq0
l3,g3/freq7/freq16/,l./nrc:=/,r/24/33/,
l./,b7,/,r/b7/b7,b7a,b9/,l1,r/;/,p1,p2;/,l./<:T/,l1,r/12/13/,
l2,r/20),nl,1,/21),nl,1);/,r/19/20/
l1,d,r/ </write(res,<< -ddddddd.ddd>,<:b9:>,RC(25),nl,1,
<:h1:>,RC(26),nl,1,</,r/24/27/,l-1,i/
for i:=4 step 1 until 6 do
write(res,<:b:>,<<d>,i,<< -ddddddd.ddd>,RC(18+i),nl,1);
/,l3,i/
<:d1:>,RC(28),nl,1,<:d2:>,RC(29),nl,1,<:d3:>,RC(30),nl,1,
<:kbJ:>,<< -ddddddd.ddd>,RC(31),nl,1,<:kcJ:>,RC(32),nl,1,
<:kab:>,RC(33),nl,1,
/,l./kb:=/,d,i?
F:= RC(4); Z:=RC(5); X:= Z*Z; E:= (A-B)*(C-A)+9*X;
p1:= -(9*F+C-A)*Z/E; p2:= ((A-C)*F-X)*3/E;
kb:= RC(20)-p1*RC(33); kc:= RC(21)-p2*RC(33);
?,l./D(7):=/,r?0?RC(19)/4?,
l./b1:=/,d,r??b3:= RC(33)/4; ?,r/22/24/,r/21/22/,l1,g/b7/b7a/,r/;/+RC(23);/,
l./N<8/,g/8/10/,l./V:=/,r/b4/(RC(28)*'-3*JJ+b4)/,r/F/(D(7)*m0*m0+F)/,l1,i?
b1:= (kb+kc+(RC(31)+RC(32))*JJ)/4;
b2:= (kb-kc+(RC(31)-RC(32))*JJ)/4;
b7:= b7a+RC(29)*'-3*JJ;
b9:= RC(25)+RC(30)*'-3*JJ;
?,l./RC(23/,r/23/26/,l./RC(24/,r/24/27/,
l./b6/,r/b6/(b6+b9)/,l2,g2/b6/(b6-b9)/,
l./b2/,r/ h(/
h(/,r/*b2//,r/(m+m2)/((m+m2)*b2+(k+k-1)*b3)/
l2,r/*3*b1/
*(b1*3-(k+k-1)*b3)/,
l./(m+m2/,r/ h(/
h(/,r/*b1//,r/(m+m2)/((m+m2)*b1+(k+k+1)*b3)/
l2,r/*3*b2/
*(b2*3-(k+k+1)*b3)/,
l./b6/,r/b6/(b6-b9)/,l1,g5/b6/(b6+b9)/,l1,r/b6/(b6-b9)/
l./8 do h(/,g1/8/10/,l./psum/,r/psum/psum:= gu/,
l./q:= sqrt/,r/q/go/,l1,g/q/go/,r?);?); go:= go/2?
l4,r/</>/,l4,r/e/end e/,i/
l:= index(m,-k+2);
if l>0 then begin q:= if plus then -gu else gu;
h(9,l):= h(9,l)+q*y; if k>1 then
h(9,i):= h(9,i)+q*u(l);
if k=1 then begin l:= i-1; h(9,l):= h(9,l)-q*u(l) end;
end;
l:= index(m,-k-2);
if l>0 then begin q:= if plus then go else -go;
h(9,l):= h(9,l)+q*y;
h(9,i):= h(9,i)+q*u(l);
/,l./q:= sqrt/,r/(m+m2)*//,r/q/w/,r/;/; q:= (m+m2)*w; w:= (k+k-1)*w;/
l2,i/
h(10,j):= h(10,j)+w*y; h(10,i):= h(10,i)+w*u(j);
/,l2,r/ q:=/
/,d,i/
if -,plus then begin q:= -q; w:= -w end;
/,l2,i/
h(10,j):= h(10,j)-w*y; h(10,i):= h(10,i)-w*u(j);
/,l./q:= sqrt/,r/(m+m2)*//,r/q/w/,r/;/; q:= (m+m2)*w; w:= (k+k+1)*w;/
l2,i/
h(10,j):= h(10,j)+w*y; h(10,i):= h(10,i)+w*u(j);
/,l2,r/ q:=/
/,d,i/
if -,plus then begin q:= -q; w:= -w end;
/,l2,i/
h(10,j):= h(10,j)-w*y; h(10,i):= h(10,i)-w*u(j);
/,l./p:= 1/,r/;/; gu:= go;/,l-1,r/e/end e/,i/
end;
j:= index(m2,k-2);
if j>0 then begin if k=0 and m=0 then gu:= go;
h(9,j):= h(9,j)-gu*y;
h(9,i):= h(9,i)-gu*u(j);
if m=0 and k>0 then begin
j:= index(m2,-k+2); q:= if plus then gu else -gu;
if k=2 then q:= q*sqrt(2);
h(9,j):= h(9,j)+q*y;
h(9,i):= h(9,i)+q*u(j);
end end;
j:= index(m2,k+2);
if j>0 then begin
h(9,j):= h(9,j)+go*y;
h(9,i):= h(9,i)+go*u(j);
if m=0 and k>0 then begin
j:= index(m2,-k-2); q:= if plus then -go else go;
h(9,j):= h(9,j)+q*y;
h(9,i):= h(9,i)+q*u(j);
/,l6,r/8/10/,l./dy(19/,g/19/20/,i?
dy(19):= dy(19)+a(8)*lev/4;
?,l2,g/20/21/,l1,g/21/22/,l1,g/22/24/,i/
dy(23):= dy(23)+gu*lev;
/,l2,g/23/26/,i/
dy(25):= dy(25)+a(9)*lev;
/,l2,g/24/27/,l1,i?
dy(28):= dy(28)+JJ*JJ*a(5)*'-3*lev;
dy(29):= dy(29)+JJ*tau(12)*2*'-3*lev;
dy(30):= dy(30)+a(9)*JJ*'-3*lev;
dy(31):= dy(31)+(a(6)+a(7))*JJ/4*lev;
dy(32):= dy(32)+(a(6)-a(7))*JJ/4*lev;
dy(33):= dy(33)+((a(10)-a(6)*(p1+p2)-a(7)*(p1-p2))/4
-(p1*p*kb+p2*q*kc)/F)*lev;
?,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/26,27/,f
i gonimfreq0
▶EOF◀