|
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: »gonimedit14«
└─⟦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/freq14/,l./nrc:=/,r/24/28/,
l./b7/,r/b7/b7,b8/,l./<:T/,l1,r/12/13/,
l2,r/20/21/,r/19/20/,l1,r/h1/b8/,r/23/24/,r/22/23/,r/21/22/
l1,r/24/26/,r/</<:h1:>,RC(25),nl,1,</,l1,i/
<:kbJ:>,<< -ddddddd.ddd>,RC(27),nl,1,<:kcJ:>,RC(28),nl,1,
/,l./kb:=/,r/20/21/,r/19/20/
l./D(7):=/,r/0/RC(19)/,
l./b1:=/,d,r//b3:= 0; b8:= RC(24); /,r/22/23/,r/21/22/,
l./E:=/,r/F/(D(7)*m0*m0+F)/,l1,i?
b1:= (kb-kc+(RC(27)-RC(28))*JJ)/4;
b2:= (kb+kc+(RC(27)+RC(28))*JJ)/4;
?,l./RC(23/,r/23/25/,l./RC(24/,r/24/26/,
l./go:= Vk/,r/3;/3-b8*4.5;/,
l./-Vk*p/,r/-Vk/(-Vk+((m+6)**2+m*m)*0.25*b8)/,l2,r/;/-b8*9;/,
l./tau(13/,r/;/;tau(14):= tau(14)+h(1,i)**2;
a(8):= a(8)+h(1,i)*h(5,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/23/,
l1,g/23/25/,i/
dy(24):= dy(24)+a(8)*lev;
/,l2,g/24/26/,l1,i?
dy(27):= dy(27)+(a(7)+a(6))*JJ/4*lev;
dy(28):= dy(28)+(a(7)-a(6))*JJ/4*lev;
?,l./RC(19/,g/20/21/,g/19/20/,
l./i,23,nrc/,r/23,nrc/24,25/,f
i gonimfreq0
▶EOF◀