DataMuseum.dk

top - metrics - download

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

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

TextFile

;kemlab5 1
eqq2=set 35
eqq2=edit algrotfrekv
l./real eqQ1, eqQ2/,d,i/
real a,b,c; integer f1,f2,g1,g2;
array W(J-1:J+1,1:2), W1(J1-1:J1+1,1:2), eqQ(1:2);
/,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 do
   W(J+i-2,K):= if J=0 then 0 else ((case K of (PB-PA,PC-PA))/
            (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?
K:= if J<>2 then 3 else if Q then 7 else 5;
for i:=1 step 1 until K do begin
   if J1=0 then begin
      f2:= if i=2 then 1 else 0;  f1:= g1:= 1;
      g2:= if i=3 then 1 else 2
   end else begin
      f1:= case i of (J1,J1-1,J1-1,J1,J1+1,J1-1,J1);
      f2:= case i of (J,J-1,J-1,J-1,J,J,J+1);
      g1:= if i=3 then J1 else J1+1;
      g2:= if i=3 then J  else J +1
   end;
   for n:=1,2 do eqQ(n):= W(f2,n)-W1(f1,n)-W(g2,n)+W1(g1,n);
   if hb then begin
     n:= f1; f1:= f2; f2:= n; n:= g1; g1:= g2; g2:= n;
     for n:=1,2 do eqQ(n):= -eqQ(n) end;
   c:= 0; for n:=1,2 do c:= c+eqQ(n)*ki(n+1);
   ny_linie; write(res,false add 32,7,<<dd>,<:(:>,f1,f2,
   <:) - (:>,g1,g2,<:)  :>,<<__-d.dddddd'-d>,eqQ(1),eqQ(2),<<-dddd.ddd>,c)
end;
?,f

r=algol eqq2 index.no
rename r.roteqq2
permanent roteqq2.17
▶EOF◀