|
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: 1536 (0x600)
Types: TextFile
Names: »gonimedit13«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦1248b0c55⟧ »gobib«
└─⟦this⟧
;gosav time.200 lines.2000
i gonimfreq
gonimfreq0=edit gonimfreq0
l3,g3/freq7/freq13/,l./nrc:=/,r/24/28/,l./kb,kc/,r/kb/bK1,bK2,kb/,
l2,r/14/16/,l./<:T/,l1,r/12/13/,
l2,r/20),nl,1,/21),nl,1);/,r/19/20/
l1,d,r/ </write(res,<< -ddddddd.ddd>,<:h1:>,RC(25),nl,1,</,r/24/26/,i/
for i:=4 step 1 until 6 do
write(res,<:b:>,<<d>,i,<< -ddddddd.ddd>,RC(18+i),nl,1);
/,l2,i/
<:kbK:>,<< -ddddddd.ddd>,RC(27),nl,1,<:kcK:>,RC(28),nl,1,
/,l./kb:=/,r/20/21/,r/19/20/
l./D(7):=/,r/0/RC(19)/,
l./b4:=/,r/22/24/,r/21/22/,i?
bK1:= (RC(27)-RC(28))/8; bK2:= (RC(27)+RC(28))/8;
?,l2,r/;/+RC(23);/
l./E:=/,r/F/(D(7)*m0*m0+F)/,
l./RC(23/,r/23/25/,l./RC(24/,r/24/26/,
l./p*b2/,r/h(j,i)/l:= (k2-k)*2+1;
h(j,i):= (m+m2)*(b2+l*bK2)*go*p;
/,d,l1,r/b1/(b1+l*bK1)/,l4,r/h(j,i)/l:= (k2+k)*2+1;
h(j,i):= (m+m2)*(b1+l*bK1)*go*p;
/,d,l1,r/b2/(b2+l*bK2)/,
l./14 do tau/,r/14/16/,l./tau(13/,r/;/;tau(14):= tau(14)+h(1,i)**2;
tau(15):= tau(15)+h(6,i)*h(3,i);tau(16):= tau(16)+h(7,i)*h(3,i);/
l./dy(19/,g/19/20/,i/
dy(19):= dy(19)+tau(14)*lev;
/,l2,g/20/21/,l1,g/21/22/,l1,g/22/24/,i/
dy(23):= dy(23)+(tau(10)+tau(12))*lev;
/,l2,g/23/25/,l1,g/24/26/,l1,i?
dy(27):= dy(27)+(tau(16)+tau(15))/4*lev;
dy(28):= dy(28)+(tau(16)-tau(15))/4*lev;
?,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/24,25/,f
i gonimfreq0
▶EOF◀