|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5376 (0x1500)
Types: TextFile
Names: »gonitrometh«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦1248b0c55⟧ »gobib«
└─⟦this⟧
;gosav time.180 lines.5000
nittext=set 50
nittext=edit algvibrot
g10/vibrot/vibnit/,g/no/yes/,r/yes)/no)/,l-2,r/148/160/
l./4 else 6/,r/6/9/,l./Ic;/,r/;/,It,If;/,l2,r/9/55/
l./close(X/,i/
It:= sum((UX(3*i-1)**2+UX(3*i)**2)*Ma(i),i,1,3);
If:= Ia-It;
/,l3,r/9/55/
l./inrec(X/,l1,r/ step 1 until 3/,2,3,7/,l3,
r/N/if j=7 then 6 else N/,l4,r/ step 1 until nt/,5,6,8,9/,
l1,r/l/k/,r/k/l/,r/k mod/if j>6 then 1 else l mod/,
l2,r/N/if j>6 then 6 else N/,r/ W/
W/,l4,r/zeta/zeta or centrifugal/
l1,r/>56/*2>53/,l./nt=6/,r/=/>/,l3,r/nt do/6 do/,l./end zeta/,i/
cr; cr; write(res,<: Jtt Jbt Jct:>); cr;
for i:=red step -1 until 1 do begin
cr; write(res,<:Q:>,<<dd>,m+red+1-i);
for j:=7 step 1 until nt do if abs J(i,j)<2.5'-7 then
write(res,<: 0 :>) else
write(res,<<-ddd.dddddd>,J(i,j)*2) end;
/,l2,d,l1,d4,l./;/,r<;<.
my'-elements as derivatives of my with respect to the Q's
and tau-sums are formed;
begin integer n;
integer array no(1:4,1:4); array my,my1(1:4,1:4),h(1:4);
<,l./i:=red/,d,r/f(i)/f(n)/,i'
for i:=1 step 1 until 4 do
for j:=1 step 1 until 4 do my(i,j):= my1(i,j):= 0;
my(1,1):= 1/If; my(2,2):= 1/Ib; my(3,3):= 1/Ic;
my(1,4):= my(4,1):= -my(1,1); my(4,4):= Ia/(If*It);
no(1,1):= 1; no(2,2):= 2; no(3,3):= 3; no(4,4):= no(1,4):= 7;
no(1,2):= 4; no(1,3):= 6; no(2,3):= 5; no(2,4):= 8; no(3,4):= 9;
for i:=2 step 1 until 4 do
for j:=i-1 step -1 until 1 do no(i,j):= no(j,i);
for n:=red step -1 until 1 do begin
for i:=1 step 1 until 4 do
for j:=1 step 1 until 4 do
my1(i,j):= sum(my(i,k)*J(n,no(k,j)),k,1,4);
for i:=1 step 1 until 4 do begin
for j:=i step 1 until 4 do
h(j):= sum(my1(i,k)*my(k,j),k,1,4);
for j:=i step 1 until 4 do my1(i,j):= h(j)
end;
if ibl<BL then begin
m:= 0;
for i:=1 step 1 until 4 do
for j:=i step 1 until 4 do
for k:=i step 1 until 4 do
for l:=if k>i then k else j step 1 until 4 do begin
m:=m+1; t(m):= t(m) - my1(i,j)*my1(k,l)*f(n)
end end;
',l./J(i,/,r/J(i,j)*//,r'/'*',l1,d,i/
(case j of (my1(1,1),my1(2,2),my1(3,3),my1(1,2),
my1(2,3),my1(4,4),my1(1,4),my1(2,4),my1(3,4)));
/,l1,r/;/ n end my;/,l./writepage/,d,i/
writepage; cr;
/,l1,r/)/,It)/,l1,r<if Ia>0 then<It:= h*Ia/(It*If);<,
r/Ia;/If;/,l1,r/)/,It)/
l1,d,r/9/55/,r/*2/*1.3537747'6;
/,d10,i?
cr; cr; write(res,<:Centrifugal Distortion Constants (kHz)::>);
l:= 0; cr; cr; write(res,
<: aa ab ac at bb:>);
rep1: cr;
for j:=l+1 step 1 until 10 do begin
cr; write(res,case j of
(<:aa:>,<:ab:>,<:ac:>,<:at:>,<:bb:>,
<:bc:>,<:bt:>,<:cc:>,<:ct:>,<:tt:>));
m:= if j<l+5 then j else l+5;
for i:=l+1 step 1 until m do begin
h:= t((i-1)*(20-i)//2+j);
if abs h<5'-6 then write(res,<: 0 :>)
else write(res,<< -ddddd.ddddd>,h)
end end;
if l=0 then begin
cr; cr; cr; write(res,
<: bc bt cc ct tt:>);
l:= 5; cr; goto rep1;
end;
?,l./writepage/,d,r//writepage; /,l1,r//m:= 1; n:= 5; /
l1,r/</
</,r/:>/ my-bc:>/,g/my/ my/,l1,d,i/
rep2: cr; cr;
/,l3,r/nt do/n do/,r/1/m/,l./ 0/,r/:/: /,
l1,g1/<</<< /,l./for m:=1/,d./end GS/,i/
if m=1 then begin
m:= 6; n:= 9; cr; cr; write(res,
<: my-tt my-at my-bt my-ct:>);
goto rep2
end end end end ha end ig;
/,f
clear vibnit
i nittext
;gosav time.300 lines.5000
vibnit
<Nitromethane, alfa=0 10.09.79, gos.>
11 1 -7 4 5 5 4 1
4 5 6 1.489 1.224 117.35
6 4 5 7 1.224o 117.35 0
6 5 4 1 1.088t 107.2 -90
6 5 4 2 1.088t 107.2 30
6 5 4 3 1.088t 107.2 150
3 str: 1,4 2,4 3,4
1 str: 4,5
2 str: 5,6 5,7
1 comb: 5(0.38898443 0.38898443 0.38898443
-0.42664323 -0.42664323 -0.42664323)
6 bend: 2,4,3 1,4,3 1,4,2 1,4,5 2,4,5 3,4,5
1 outo: 7,6,5,4
2 comb: 8(-1,-1 0.5,-0.5)
2 bend: 4,5,6 4,5,7
6 tors: 1,4,5,6 2,4,5,6 3,4,5,6 1,4,5,7 2,4,5,7 3,4,5,7
1 comb: 9(1/6,1/6,1/6,1/6,1/6,1/6)
0
1)1,1,1 4)1 2)1 7)1,0 3)1,1
1)0,1,-1 5)0,1,-1,0,0,0 5)0,0,0,0,1,-1 7)0,1 3)1,-1
6)1 1)2,-1,-1 5)2,-1,-1,0,0,0 5)0,0,0,2,-1,-1
10) 1
4.972 0.094
0.653 -0.528
4.458
1.318
11.08
4.950 -0.133 0.133
0.514 0.029
0.859
2.158
8.336
0.28
4.950 -0.133 0.133
0.514 0.029
0.859
0.01
<>
HHHCNOO
;gosav time.300 lines.5000
vibnit
<Nitromethane, alfa=30, 10.09.79, gos.>
11 1 -7 4 5 5 4 1
4 5 6 1.489 1.224 117.35
6 4 5 7 1.224o 117.35 0
6 5 4 1 1.088t 107.2 -60
6 5 4 2 1.088t 107.2 60
6 5 4 3 1.088t 107.2 180
3 str: 1,4 2,4 3,4
1 str: 4,5
2 str: 5,6 5,7
1 comb: 5(0.38898443 0.38898443 0.38898443
-0.42664323 -0.42664323 -0.42664323)
6 bend: 2,4,3 1,4,3 1,4,2 1,4,5 2,4,5 3,4,5
1 outo: 7,6,5,4
2 comb: 8(-1,-1 0.5,-0.5)
2 bend: 4,5,6 4,5,7
6 tors: 1,4,5,6 2,4,5,6 3,4,5,6 1,4,5,7 2,4,5,7 3,4,5,7
1 comb: 9(1/6,1/6,1/6,1/6,1/6,1/6)
0
1)1,1,1 4)1 2)1 7)1,0 3)1,1
1)1,1,-2 5)1,1,-2,0,0,0 5)0,0,0,1,1,-2 7)0,1 3)1,-1
6)1 1)1,-1,0 5)1,-1,0,0,0,0 5)0,0,0,1,-1,0
10) 1
4.972 0.094
0.653 -0.528
4.458
1.318
11.08
4.950 -0.133 0.133
0.514 0.029
0.859
2.158
8.336
0.28
4.950 -0.133 0.133
0.514 0.029
0.859
0.01
<>
HHHCNOO
;gosav time.300 lines.10000
rotfrekvens
<Nitromethane, 1-10-80, GOS.>
1011
4.7
13341.8314 10544.3226 5875.7548
-59.94125 -41.68162 -3.964058 -123.5968 -9.223654 -5.671099
0 50 10
10000 120000
10 1
3.46 0 0
-1.184 0.305 0.879
1 0
▶EOF◀