DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »gonimeditd«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦1248b0c55⟧ »gobib« 
            └─⟦this⟧ 

TextFile

;gosav time.200 lines.5000
i gonimfreq
gonimfreq0=edit gonimfreq0
l3,g3/freq7/freqd/,l./nrc:=/,r/24/25/,l./<:B/,r/C  /B-C/,r/B  /B+C/,
l4,g2/<:T/<:D/,l-1,r/12/13/,l2,r/20/21/,r/19/20/,
l1,r/23/24/,r/22/23/,r/21/22/,l1,r/24/25/,l./A:=/,d,i?
A:= RC(1); B:= (RC(2)+RC(3))/2; C:= (RC(2)-RC(3))/2;
?,l1,r/20/21/,r/19/20/,l./comm/,d1,l4,d./D(13):=/,i?
for i:=1 step 1 until 5 do D(i):= RC(i+6)*'-3;
for i:=7 step 1 until 14 do D(i):= RC(i+5)*'-3;
X:= (B+C)/2; Y:= (B-C)/4; Z:= A-X; D(6):= 0;
?,l2,r/22/23/,r/21/22/,l1,l./RC(23/,r/23/24/,l1,l./RC(24/,r/24/25/,
l./dy(1):=/,l-1,r/ p:=/
/,d,r/p/go/,l1,r/;/;  p:= go+q; q:= go-q;/
l./dy(7/,d./dy(17/,i?
dy(7):= dy(7)-JJ*JJ*lev;
dy(8):= dy(8)-JJ*a(3)*lev;
dy(9):= dy(9)-tau(1)*lev;
dy(10):= dy(10)-JJ*a(4)*2*lev;
dy(11):= dy(11)-tau(2)*2*lev;
dy(12):= dy(12)+a(8)*lev;
dy(13):= dy(13)+JJ*a(1)*lev;
dy(14):= dy(14)+tau(5)*lev;
dy(15):= dy(15)+tau(6)*lev;
dy(16):= dy(16)+JJ*a(2)*lev;
dy(17):= dy(17)+tau(7)*lev;
dy(18):= dy(18)+tau(8)*lev;
dy(19):= dy(19)+tau(9)*lev;
?,l1,g/19/20/,l1,g/20/21/,l1,g/21/22/,l1,g/22/23/,l1,g/23/24/,l1,g/24/25/
l./18 do/,r/18/19/,l./i,23,nrc/,r/23,nrc/24,25/,f
i gonimfreq0
▶EOF◀