DataMuseum.dk

top - metrics - download

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

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

TextFile

;kemlab5 1
eqq=set 35
eqq=edit algrotfrekv
l./real eqQ1, eqQ2/,d,i/
real a,b,c;  array W, W1(1:3,1:3), eqQ(1:3);
/,l1,r/eqQ/W/
l2,r/,eqQ//,r/S/S, W/
l./eqQ:=/,d,i?
   for i:=1,2,3 do for K:=1,2,3 do
   W(i,K):= if J=0 then 0 else ((case K of (PA,PB,PC))/
            (case i of (J*(J+J-1),-JJ,(J+1)*(J+J+3)))*0.5);
?,l2,r/eqQ1/W1/,l1,r/eqQ2/W/,l1,d4,i?
for i:=1 step 1 until 5 do begin
   p:= case i of (J1-1,J1,J1,J1+1,J1+1);
   q:= case i of (J-1,J-1,J,J,J+1);
   for n:=1,2,3 do eqQ(n):= - W1(2+p-J1,n) + W(2+q-J,n);
   if hb then begin n:= p; p:= q; q:= n;
     for n:=1,2,3 do eqQ(n):= -eqQ(n) end;
   c:= 0; for n:=1,2,3 do c:= c+eqQ(n)*ki(n); p:= abs p;
   if i=1 then a:= c; if i=3 then b:= c;
   ny_linie; write(res,false add 32,7,<<ddd>,p,q,
   <<__-d.dddddd'-d>,eqQ(1),eqQ(2),eqQ(3),<<-dddd.ddd>,c)
end;
?,f

r=algol eqq index.no
rename r.roteqq
permanent roteqq.17
▶EOF◀