DataMuseum.dk

top - metrics - download

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

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

TextFile

;gosav
txtk=set 50
txtk=edit algrotfit0
d./if ok/,r/(//,g2/rotfit/ekappa/,r/)//,
l1,d,i/

Ekappa program:
   Input rules:
   1) A textstring in < >.
   2) An integer m = 0 or 1. If m = 0 the calculations may
      be repeated.
   3) The computing time in min.
   4) Kappa.
   5) Quantum numbers of transitions as for ROTFIT:
        J1 k11 k12  J2 k21 k22 type
   6) Terminate list by -1;
/,l./read(in,m1/,r/Rot/Rot(2)/,
l1,r/Rot(4);/0; Rot(1):= 1; Rot(3):= -1;/,
l1,r/;/;
/,d3,r/write(/
Q1:= 1; Q:= 1; m:= 0;
write(res,<:kappa = :>,<<-d.ddd>,Rot(2));
/,d./1971)/,d2,r/=/= Rot(2)>0; N1:= 1;
/,d1,l./array DR/,d1,l2,d4,l1,d1,l./Fixed Con/,d./end read/
l./igen:/,l3,d1,l4,d./Rot(4)/,r//DW:= 0; /
l./if ha th/,d./tau-xxxx/,d./end/,
l./505376/,d./Transition/,d4,r/ w/read(in,N1); writecr;
w/,r/calc/     delta E(kappa)   ln(delta E(kappa)):>);
writecr;
/,d./end; writecr;/,l./array atot/,d,l./if iterer/,d./end/,i/
begin
/,l4,r/, Li//,l./imp/,d2,l./S(i+1):=/,d./end vers4/,d,
l1,d5,l1,d./sextic/,
d,l1,d./if aires/,d./if iterer/,d./end/,i/
  <<-ddd.dddddddd>,dE,<:      :>,if dE<=0 then 0 else ln(dE));
/,l2,d./goto igen/,i/
end atot end ai;
/,f
i txtk
▶EOF◀