DataMuseum.dk

top - metrics - download

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

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

TextFile

;gosav
imomtext=set 20
imomtext=edit alglavib
v n
d./GOS/,i/
æ12æ



imom

Inertimomentprogram 4-9-1974.  GOS.
/,l3,d1,i/
      1) A textstring in < >.
/,l2,d5,r/6/3/,l1,r/7/4/,l./8)/,r/8/5/,l1,r/9/6/,l4,r/7/4/
l6,r/ns,//,r/NF,BL,//,r/,bout//
l1,r/;/, np, ptrans;/,l1,r/,/;
/,d,l1,r/;/;
/,d,r//np:= true; /,l1,r/;/;
/,d,r/,NF,BL//,r/3;/3; ptrans:= N>0;/,l3,d,l1,d2
l./newtype/,i/
ptrans:= false;
/,l./It, my/,r/, my//
l./-,eckart/,r/begin/begin array IP(1:3);/,l1,d2
l./tridql/,l1,i/
   for i:=1,i+1 while k=0 do begin
      k:= sign(It(1,i)); if k<>0 then
      k:= k*sign(It(2,i mod 3+1)*It(3,(i+1) mod 3+1)
                -It(3,i mod 3+1)*It(2,(i+1) mod 3+1))
   end;
   if k=-1 then begin
      for j:=1,2,3 do It(3,j):= -It(3,j) end;
   if ptrans then begin
      write(res,nl,2,<:Transformation matrix::>,nl,1);
      for i:=1,2,3 do begin
         write(res,nl,1,sp,10);
         for j:=1,2,3 do write(res,<<  -d.dddddd>,It(i,j))
      end; write(res,nl,1)
   end;
/,l./Masses and/,r?nl,2?nl,1,<:Kappa                 ::>,
   <<   -d.dddddddd>,(2*Ia*Ic/Ib-Ia-Ic)/(Ic-Ia),
   nl,2?
l./bmatrix/,l-1,d./end G,Z/,l1,r/if/read(in,p); if/
r/stop;/stop;
eckart:= p<0; /,l1,i/
if np then begin
/,l3,r/;/; np:= -,np;/,i/
end;
/,f

imom=set 90
imom=algol imomtext index.no list.no
permanent imom.17
▶EOF◀