|
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: 14592 (0x3900)
Types: TextFile
Names: »simp1699«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »simp1699«
;ali time 5 0
mode list.yes
lookup simproctxt
clear user simproc
simproc=set 25 disc3
scope user simproc
lookup rydlist
if ok.yes
mode listing.yes
simproc=algol details.8.8
81 06 19 10 06 56
2 A VIII 3p
external real procedure simproc(t,maxdiagram,N,pvalue);
value t,maxdiagram; real t,pvalue; integer maxdiagram;
array N;
if t<-.5 then simproc:= 18 else
begin
real
E1 ,N1 ,E2 ,N2 ,E3 ,N3 ,E4 ,N4 ,E5 ,N5 ,E6 ,N6 ,E7 ,N7 ,E8 ,N8 ,
E9 ,N9 ,E10 ,N10 ,E11 ,N11 ,E12 ,N12 ,E13 ,N13 ,E14 ,N14 ,E15 ,N15 ,E16 ,N16 ,
E17 ,N17 ,E18 ,N18 ,E19 ,N19 ,E20 ,N20 ,E21 ,N21 ,E22 ,N22 ,E23 ,N23 ,E24 ,N24 ,
E25 ,N25 ,E26 ,N26 ,E27 ,N27 ,E28 ,N28 ,E29 ,N29 ,E30 ,N30 ,E31 ,N31 ,E32 ,N32 ,
E33 ,N33 ,E34 ,N34 ,E35 ,N35 ,E36 ,N36 ,E37 ,N37 ,E38 ,N38 ,E39 ,N39 ,E40 ,N40 ,
E41 ,N41 ,E42 ,N42 ,E43 ,N43 ,E44 ,N44 ,E45 ,N45 ,E46 ,N46 ,E47 ,N47 ,E48 ,N48 ,
E49 ,N49 ,E50 ,N50 ,E51 ,N51 ,E52 ,N52 ,E53 ,N53 ,E54 ,N54 ,E55 ,N55 ,E56 ,N56 ,
E57 ,N57 ,E58 ,N58 ,E59 ,N59 ,E60 ,N60 ,E61 ,N61 ,E62 ,N62 ,E63 ,N63 ,E64 ,N64 ,
E65 ,N65 ,E66 ,N66 ,E67 ,N67 ,E68 ,N68 ,E69 ,N69 ,E70 ,N70 ,E71 ,N71 ,E72 ,N72 ,
E73 ,N73 ,E74 ,N74 ,E75 ,N75 ,E76 ,N76 ,E77 ,N77 ,E78 ,N78 ,E79 ,N79 ,E80 ,N80 ,
E81 ,N81 ,E82 ,N82 ,E83 ,N83 ,E84 ,N84 ,E85 ,N85 ,E86 ,N86 ,E87 ,N87 ,E88 ,N88 ,
E89 ,N89 ,E90 ,N90 ,E91 ,N91 ,E92 ,N92 ,E93 ,N93 ,E94 ,N94 ,E95 ,N95 ,E96 ,N96 ,
E97 ,N97 ,E98 ,N98 ,E99 ,N99 ,E100,N100,E101,N101,E102,N102,E103,N103,E104,N104,
E105,N105,E106,N106,E107,N107,E108,N108,E109,N109,E110,N110,E111,N111,E112,N112,
E113,N113,E114,N114,E115,N115,E116,N116,r;
r:=0;
comment maxdiagram= 15
2 A VIII 3p
delta t(slit) 0.0965 ns
n* max 16.10
states in calculation 116
transitions 11
transitions dropped 1139
minimum branching ratio 99.00
minimum coefficient 1.00' -9
3s 2.464 = 0, 3p 2.631 = 1, 3d 2.919 = 2, 4s 3.476 = 3,
4p 3.648 = 4, 4d 3.909 = 5, 4f 3.994 = 6, 5s 4.514 = 7,
5p 4.653 = 8, 5d 4.905 = 9, 5f 4.992 = 10, 5g 5.000 = 11,
6s 5.485 = 12, 6p 5.649 = 13, 6d 5.903 = 14, 6f 5.994 = 15,
6g 6.000 = 16, 6h 6.000 = 17, 7s 6.485 = 18, 7p 6.649 = 19,
7d 6.901 = 20, 7f 6.994 = 21, 7h 7.000 = 22, 7i 7.000 = 23,
7g 7.000 = 24, 8s 7.485 = 25, 8p 7.649 = 26, 8d 7.900 = 27,
8f 7.994 = 28, 8h 8.000 = 29, 8k 8.000 = 30, 8i 8.000 = 31,
8g 8.000 = 32, 9s 8.485 = 33, 9p 8.649 = 34, 9d 8.900 = 35,
9f 8.994 = 36, 9l 9.000 = 37, 9i 9.000 = 38, 9h 9.000 = 39,
9k 9.000 = 40, 9g 9.000 = 41, 10s 9.485 = 42, 10p 9.649 = 43,
10d 9.899 = 44, 10f 9.994 = 45, 10g 10.000 = 46, 10m 10.000 = 47,
10l 10.000 = 48, 10i 10.000 = 49, 10h 10.000 = 50, 10k 10.000 = 51,
11s 10.485 = 52, 11p 10.649 = 53, 11d 10.899 = 54, 11f 10.994 = 55,
11g 11.000 = 56, 11i 11.000 = 57, 11l 11.000 = 58, 11h 11.000 = 59,
11k 11.000 = 60, 11m 11.000 = 61, 11n 11.000 = 62, 12s 11.485 = 63,
12p 11.649 = 64, 12d 11.898 = 65, 12f 11.994 = 66, 12i 12.000 = 67,
12h 12.000 = 68, 12o 12.000 = 69, 12l 12.000 = 70, 12n 12.000 = 71,
12m 12.000 = 72, 12k 12.000 = 73, 12g 12.000 = 74, 13s 12.485 = 75,
13p 12.649 = 76, 13d 12.898 = 77, 13f 12.994 = 78, 13k 13.000 = 79,
13o 13.000 = 80, 13l 13.000 = 81, 13m 13.000 = 82, 13n 13.000 = 83,
13i 13.000 = 84, 13h 13.000 = 85, 13g 13.000 = 86, 14s 13.485 = 87,
14p 13.649 = 88, 14d 13.898 = 89, 14f 13.994 = 90, 14l 14.000 = 91,
14i 14.000 = 92, 14g 14.000 = 93, 14k 14.000 = 94, 14n 14.000 = 95,
14h 14.000 = 96, 14m 14.000 = 97, 15s 14.485 = 98, 15p 14.649 = 99,
15d 14.898 =100, 15f 14.994 =101, 15m 15.000 =102, 15h 15.000 =103,
15i 15.000 =104, 15k 15.000 =105, 15g 15.000 =106, 15l 15.000 =107,
16s 15.485 =108, 16p 15.649 =109, 16d 15.898 =110, 16f 15.994 =111,
16i 16.000 =112, 16l 16.000 =113, 16k 16.000 =114, 16h 16.000 =115,
16g 16.000 =116;
E1 :=exp(-t/ 0.38459281)*1.0105307; N1 :=N(18);
E2 :=exp(-t/ 0.12954388)*1.0951272; N2 :=N(36);
E3 :=exp(-t/ 0.03243170)*3.2862757; N3 :=N( 1);
E4 :=exp(-t/ 0.05746631)*1.5411357; N4 :=N(19);
E5 :=exp(-t/ 0.05959986)*1.4981558; N5 :=N(37);
E6 :=exp(-t/ 0.01530833)*4.3406532'1; N6 :=N(54);
E7 :=exp(-t/ 0.05129475)*1.7038576; N7 :=N( 2);
E8 :=exp(-t/ 0.07402967)*1.3084012; N8 :=N(20);
E9 :=exp(-t/ 0.07125189)*1.3351631; N9 :=N(38);
E10:=exp(-t/ 0.02822207)*4.4645924; N10:=N(55);
E11:=exp(-t/ 0.05682945)*1.5550811; N11:=N(71);
E12:=exp(-t/ 0.06871133)*1.3628934; N12:=N( 3);
E13:=exp(-t/ 0.10036293)*1.1614382; N13:=N(21);
E14:=exp(-t/ 0.09897576)*1.1662115; N14:=N(39);
E15:=exp(-t/ 0.04715002)*1.8602678; N15:=N(56);
E16:=exp(-t/ 0.09699048)*1.1734253; N16:=N(72);
E17:=exp(-t/ 0.14833234)*1.0720792; N17:=N(87);
E18:=exp(-t/ 0.10217861)*1.1554989; N18:=N( 4);
E19:=exp(-t/ 0.14394037)*1.0766452; N19:=N(22);
E20:=exp(-t/ 0.13755421)*1.0841064; N20:=N(40);
E21:=exp(-t/ 0.07323754)*1.3156891; N21:=N(57);
E22:=exp(-t/ 0.23437034)*1.0285081; N22:=N(88);
E23:=exp(-t/ 0.32949519)*1.0143634; N23:=N(102);
E24:=exp(-t/ 0.15194442)*1.0686247; N24:=N(73);
E25:=exp(-t/ 0.14668224)*1.0737453; N25:=N( 5);
E26:=exp(-t/ 0.20170521)*1.0386037; N26:=N(23);
E27:=exp(-t/ 0.18843151)*1.0443078; N27:=N(41);
E28:=exp(-t/ 0.10736173)*1.1402576; N28:=N(58);
E29:=exp(-t/ 0.34794214)*1.0128750; N29:=N(89);
E30:=exp(-t/ 0.65497766)*1.0036233; N30:=N(116);
E31:=exp(-t/ 0.48976919)*1.0064856; N31:=N(103);
E32:=exp(-t/ 0.22398871)*1.0312371; N32:=N(74);
E33:=exp(-t/ 0.20443709)*1.0375674; N33:=N( 6);
E34:=exp(-t/ 0.27675092)*1.0203964; N34:=N(24);
E35:=exp(-t/ 0.25405817)*1.0242303; N35:=N(42);
E36:=exp(-t/ 0.15124282)*1.0692758; N36:=N(59);
E37:=exp(-t/ 1.19852346)*1.0010813; N37:=N(129);
E38:=exp(-t/ 0.69229925)*1.0032428; N38:=N(104);
E39:=exp(-t/ 0.49251215)*1.0064135; N39:=N(90);
E40:=exp(-t/ 0.93085387)*1.0017929; N40:=N(117);
E41:=exp(-t/ 0.31656183)*1.0155666; N41:=N(75);
E42:=exp(-t/ 0.27646705)*1.0204386; N42:=N( 7);
E43:=exp(-t/ 0.36920233)*1.0114300; N43:=N(25);
E44:=exp(-t/ 0.33618859)*1.0137948; N44:=N(43);
E45:=exp(-t/ 0.20529795)*1.0372495; N45:=N(60);
E46:=exp(-t/ 0.43080400)*1.0083873; N46:=N(76);
E47:=exp(-t/ 2.05538069)*1.0003676; N47:=N(141);
E48:=exp(-t/ 1.63770273)*1.0005790; N48:=N(130);
E49:=exp(-t/ 0.94526049)*1.0017387; N49:=N(105);
E50:=exp(-t/ 0.67136843)*1.0034484; N50:=N(91);
E51:=exp(-t/ 1.27230355)*1.0009595; N51:=N(118);
E52:=exp(-t/ 0.36415282)*1.0117503; N52:=N( 8);
E53:=exp(-t/ 0.48204392)*1.0066956; N53:=N(26);
E54:=exp(-t/ 0.43530242)*1.0082144; N54:=N(44);
E55:=exp(-t/ 0.27070767)*1.0213231; N55:=N(61);
E56:=exp(-t/ 0.56905531)*1.0048018; N56:=N(77);
E57:=exp(-t/ 1.24957083)*1.0009947; N57:=N(106);
E58:=exp(-t/ 2.17639350)*1.0003278; N58:=N(131);
E59:=exp(-t/ 0.88718893)*1.0019739; N59:=N(92);
E60:=exp(-t/ 1.68207810)*1.0005489; N60:=N(119);
E61:=exp(-t/ 2.72918525)*1.0002085; N61:=N(142);
E62:=exp(-t/ 3.34095011)*1.0001391; N62:=N(152);
E63:=exp(-t/ 0.47058147)*1.0070264; N63:=N( 9);
E64:=exp(-t/ 0.61821137)*1.0040677; N64:=N(27);
E65:=exp(-t/ 0.55541213)*1.0050410; N65:=N(45);
E66:=exp(-t/ 0.35022595)*1.0127070; N66:=N(62);
E67:=exp(-t/ 1.61421552)*1.0005960; N67:=N(107);
E68:=exp(-t/ 1.14712419)*1.0011804; N68:=N(93);
E69:=exp(-t/ 5.20269789)*1.0000574; N69:=N(162);
E70:=exp(-t/ 2.81391348)*1.0001961; N70:=N(132);
E71:=exp(-t/ 4.33880969)*1.0000825; N71:=N(153);
E72:=exp(-t/ 3.52348471)*1.0001251; N72:=N(143);
E73:=exp(-t/ 2.17136396)*1.0003294; N73:=N(120);
E74:=exp(-t/ 0.73656390)*1.0028645; N74:=N(78);
E75:=exp(-t/ 0.59578256)*1.0043801; N75:=N(10);
E76:=exp(-t/ 0.77708864)*1.0025733; N76:=N(28);
E77:=exp(-t/ 0.69483400)*1.0032192; N77:=N(46);
E78:=exp(-t/ 0.44282101)*1.0079372; N78:=N(63);
E79:=exp(-t/ 2.75145806)*1.0002051; N79:=N(121);
E80:=exp(-t/ 6.60613351)*1.0000356; N80:=N(163);
E81:=exp(-t/ 3.56752506)*1.0001220; N81:=N(133);
E82:=exp(-t/ 4.46376915)*1.0000779; N82:=N(144);
E83:=exp(-t/ 5.49185764)*1.0000515; N83:=N(154);
E84:=exp(-t/ 2.04335171)*1.0003719; N84:=N(108);
E85:=exp(-t/ 1.45044546)*1.0007382; N85:=N(94);
E86:=exp(-t/ 0.93167712)*1.0017898; N86:=N(79);
E87:=exp(-t/ 0.74250761)*1.0028188; N87:=N(11);
E88:=exp(-t/ 0.96302711)*1.0016751; N88:=N(29);
E89:=exp(-t/ 0.85691347)*1.0021159; N89:=N(47);
E90:=exp(-t/ 0.55053634)*1.0051308; N90:=N(64);
E91:=exp(-t/ 4.43213058)*1.0000790; N91:=N(134);
E92:=exp(-t/ 2.54235615)*1.0002402; N92:=N(109);
E93:=exp(-t/ 1.15887431)*1.0011566; N93:=N(80);
E94:=exp(-t/ 3.42050027)*1.0001327; N94:=N(122);
E95:=exp(-t/ 6.84349244)*1.0000332; N95:=N(155);
E96:=exp(-t/ 1.80383048)*1.0004773; N96:=N(95);
E97:=exp(-t/ 5.55803553)*1.0000503; N97:=N(145);
E98:=exp(-t/ 0.91008354)*1.0018757; N98:=N(12);
E99:=exp(-t/ 1.17501949)*1.0011250; N99:=N(30);
E100:=exp(-t/ 1.04145572)*1.0014322; N100:=N(48);
E101:=exp(-t/ 0.67355944)*1.0034260; N101:=N(65);
E102:=exp(-t/ 6.81667482)*1.0000334; N102:=N(146);
E103:=exp(-t/ 2.20572612)*1.0003192; N103:=N(96);
E104:=exp(-t/ 3.10938886)*1.0001606; N104:=N(110);
E105:=exp(-t/ 4.18158732)*1.0000888; N105:=N(123);
E106:=exp(-t/ 1.41782911)*1.0007726; N106:=N(81);
E107:=exp(-t/ 5.42305143)*1.0000528; N107:=N(135);
E108:=exp(-t/ 1.10264393)*1.0012776; N108:=N(13);
E109:=exp(-t/ 1.41972119)*1.0007705; N109:=N(31);
E110:=exp(-t/ 1.25599396)*1.0009846; N110:=N(49);
E111:=exp(-t/ 0.81699578)*1.0023279; N111:=N(66);
E112:=exp(-t/ 3.76143982)*1.0001097; N112:=N(111);
E113:=exp(-t/ 6.54987365)*1.0000362; N113:=N(136);
E114:=exp(-t/ 5.05216296)*1.0000608; N114:=N(124);
E115:=exp(-t/ 2.67000861)*1.0002178; N115:=N(97);
E116:=exp(-t/ 1.71842641)*1.0005259; N116:=N(82);
<*
timing of diagrams
cputime used 7
real time used 10
cpu % 66.14
blocksread 60
dropped 0
*>
if maxdiagram>=1 then
begin
pvalue:=simproc:=r:=r
+N1*(E1);
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 12.30
blocksread 28
written 1
dropped 0
*>
if maxdiagram>=2 then
begin
simproc:=r:=r
+N2*(E1*1.50791777 -E2*1.50791777 )
+N3*(E1*1.09209336 -E3*1.09209336 );
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 18.34
blocksread 28
written 3
dropped 0
*>
if maxdiagram>=3 then
begin
simproc:=r:=r
+N6*(E1*1.56980125 -E2*1.70930749 +E6*1.39506237' -1);
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 17.51
blocksread 29
written 4
dropped 0
*>
if maxdiagram>=4 then
begin
simproc:=r:=r
+N11*(E1*1.84198170 -E2*3.04520382 -E6*5.14342443' -2+E11*1.25465636 );
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 19.24
blocksread 27
written 5
dropped 0
*>
if maxdiagram>=5 then
begin
simproc:=r:=r
+N17*(E1*2.99844035 +E2*2.09962677' 1+E6*5.91902561' -3-E11*7.79225979' -1
-E17*2.32214011' 1);
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 21.99
blocksread 30
written 6
dropped 0
*>
if maxdiagram>=6 then
begin
simproc:=r:=r
+N23*(E1*2.09297355' 1-E2*1.36030021' 1-E6*2.88396573' -4+E11*1.62407583' -1
+E17*1.90131965' 1-E23*2.65020491' 1);
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 23.68
blocksread 28
written 7
dropped 0
*>
if maxdiagram>=7 then
begin
simproc:=r:=r
+N30*(-E1*2.97702546' 1+E2*3.35377320 +E6*6.90180143' -6
-E11*1.54301785' -2-E17*5.56656086 +E23*2.68287806' 1
+E30*5.16968492 );
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 31.39
blocksread 28
written 8
dropped 0
*>
if maxdiagram>=8 then
begin
simproc:=r:=r
+N37*(E1*1.40668324' 1-E2*4.06425734' -1-E6*8.92948975' -8
+E11*7.68059181' -4+E17*7.86238819' -1-E23*1.01722287' 1
-E30*6.22951773 +E37*1.95433298 );
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 34.53
blocksread 29
written 9
dropped 0
*>
if maxdiagram>=9 then
begin
simproc:=r:=r
+N47*(-E1*3.23799491 +E2*2.73387485' -2+E6*6.70052707'-10
-E11*2.18400111' -5-E17*6.11545308' -2+E23*1.94201786
+E30*2.91358623 -E37*2.73361048 +E47*1.14983892 );
<*
timing of diagrams
cputime used 0
real time used 1
cpu % 39.05
blocksread 30
written 10
dropped 0
*>
if maxdiagram>=10 then
begin
simproc:=r:=r
+N62*(E1*4.21231078' -1-E2*1.10280900' -3-E6*3.08433395'-12
+E11*3.77926379' -7+E17*2.84130315' -3-E23*2.12483855' -1
-E30*7.10481564' -1+E37*1.52924548 -E47*1.83837348
+E62*8.09123461' -1);
<*
timing of diagrams
cputime used 1
real time used 1
cpu % 46.76
blocksread 29
written 11
dropped 0
*>
if maxdiagram>=11 then
begin
simproc:=r:=r
+N69*(-E1*3.36236846' -2+E2*2.81604227' -5+E6*9.10207532'-15
-E11*4.17370726' -9-E17*8.33847793' -5+E23*1.43668165' -2
+E30*1.02325898' -1-E37*4.57731453' -1+E47*1.20056452
-E62*1.45199105 +E69*6.26144189' -1);;;;;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
<*
timing of diagrams
cputime used 1
real time used 2
cpu % 46.47
blocksread 32
terms total 12
terms dropped B 0 B min 1.0' -9
brmin 99.00
tau max 20 tau0
blocksread 494
simproc
*>
;
end;
▶EOF◀