/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / csource5 / 349_01 / sss.arc / SSSP2.H

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 7b 20 66 69 6c 65 20 73 | 73 73 70 32 2e 68 20 7d |{ file s|ssp2.h }|
|00000010| 0d 0a 20 0d 0a 7b 20 20 | 53 53 53 20 2d 20 53 69 |.. ..{  |SSS - Si|
|00000020| 6d 75 6c 61 74 69 6f 6e | 20 53 75 62 72 6f 75 74 |mulation| Subrout|
|00000030| 69 6e 65 20 53 65 74 2e | 20 56 65 72 73 69 6f 6e |ine Set.| Version|
|00000040| 20 31 2e 30 30 0d 0a 20 | 20 20 43 6f 70 79 72 69 | 1.00.. |  Copyri|
|00000050| 67 68 74 20 28 43 29 20 | 4d 2e 20 41 2e 20 50 6f |ght (C) |M. A. Po|
|00000060| 6c 6c 61 74 73 63 68 65 | 6b 20 31 39 39 30 2e 20 |llatsche|k 1990. |
|00000070| 20 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 | All rig|hts rese|
|00000080| 72 76 65 64 2e 0d 0a 7d | 0d 0a 20 0d 0a 66 75 6e |rved...}|.. ..fun|
|00000090| 63 74 69 6f 6e 20 20 41 | 28 69 20 3a 69 6e 74 65 |ction  A|(i :inte|
|000000a0| 67 65 72 29 3a 72 65 61 | 6c 38 00 5b 43 5d 3b 00 |ger):rea|l8.[C];.|
|000000b0| 65 78 74 65 72 6e 3b 0d | 0a 66 75 6e 63 74 69 6f |extern;.|.functio|
|000000c0| 6e 20 20 41 49 43 28 69 | 72 2c 69 20 3a 69 6e 74 |n  AIC(i|r,i :int|
|000000d0| 65 67 65 72 29 3a 72 65 | 61 6c 38 00 5b 43 5d 3b |eger):re|al8.[C];|
|000000e0| 00 65 78 74 65 72 6e 3b | 0d 0a 66 75 6e 63 74 69 |.extern;|..functi|
|000000f0| 6f 6e 20 20 41 49 51 28 | 6e 71 2c 69 72 2c 69 20 |on  AIQ(|nq,ir,i |
|00000100| 3a 69 6e 74 65 67 65 72 | 29 3a 72 65 61 6c 38 00 |:integer|):real8.|
|00000110| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|00000120| 6e 63 74 69 6f 6e 20 20 | 42 45 28 74 68 65 74 61 |nction  |BE(theta|
|00000130| 2c 70 68 69 20 3a 72 65 | 61 6c 38 29 3a 72 65 61 |,phi :re|al8):rea|
|00000140| 6c 38 00 5b 43 5d 3b 00 | 65 78 74 65 72 6e 3b 0d |l8.[C];.|extern;.|
|00000150| 0a 66 75 6e 63 74 69 6f | 6e 20 20 42 49 28 6e 3a |.functio|n  BI(n:|
|00000160| 20 69 6e 74 65 67 65 72 | 3b 00 70 3a 20 72 65 61 | integer|;.p: rea|
|00000170| 6c 38 29 3a 69 6e 74 65 | 67 65 72 00 5b 43 5d 3b |l8):inte|ger.[C];|
|00000180| 00 65 78 74 65 72 6e 3b | 0d 0a 66 75 6e 63 74 69 |.extern;|..functi|
|00000190| 6f 6e 20 20 43 44 28 78 | 2c 20 70 3a 20 75 73 65 |on  CD(x|, p: use|
|000001a0| 72 5f 61 72 72 3b 20 6e | 3a 69 6e 74 65 67 65 72 |r_arr; n|:integer|
|000001b0| 29 3a 72 65 61 6c 38 20 | 5b 43 5d 3b 20 65 78 74 |):real8 |[C]; ext|
|000001c0| 65 72 6e 3b 0d 0a 70 72 | 6f 63 65 64 75 72 65 20 |ern;..pr|ocedure |
|000001d0| 43 4c 45 41 52 51 28 69 | 20 3a 69 6e 74 65 67 65 |CLEARQ(i| :intege|
|000001e0| 72 29 00 5b 43 5d 3b 00 | 65 78 74 65 72 6e 3b 0d |r).[C];.|extern;.|
|000001f0| 0a 70 72 6f 63 65 64 75 | 72 65 20 43 4c 45 41 52 |.procedu|re CLEAR|
|00000200| 53 28 69 20 3a 69 6e 74 | 65 67 65 72 29 00 5b 43 |S(i :int|eger).[C|
|00000210| 5d 3b 00 65 78 74 65 72 | 6e 3b 0d 0a 70 72 6f 63 |];.exter|n;..proc|
|00000220| 65 64 75 72 65 20 43 52 | 45 41 54 45 28 67 3a 20 |edure CR|EATE(g: |
|00000230| 72 65 61 6c 38 3b 20 69 | 3a 20 69 6e 74 67 65 72 |real8; i|: intger|
|00000240| 29 20 5b 43 5d 3b 20 65 | 78 74 65 72 6e 3b 0d 0a |) [C]; e|xtern;..|
|00000250| 70 72 6f 63 65 64 75 72 | 65 20 44 49 53 50 4f 53 |procedur|e DISPOS|
|00000260| 00 5b 43 5d 3b 00 65 78 | 74 65 72 6e 3b 0d 0a 66 |.[C];.ex|tern;..f|
|00000270| 75 6e 63 74 69 6f 6e 20 | 20 44 50 28 70 72 6f 62 |unction | DP(prob|
|00000280| 3a 75 73 65 72 5f 61 72 | 72 3b 20 6e 76 61 6c 3a |:user_ar|r; nval:|
|00000290| 69 6e 74 65 67 65 72 29 | 3a 72 65 61 6c 38 20 5b |integer)|:real8 [|
|000002a0| 43 5d 3b 20 65 78 74 65 | 72 6e 3b 0d 0a 66 75 6e |C]; exte|rn;..fun|
|000002b0| 63 74 69 6f 6e 20 20 45 | 52 28 65 78 70 6f 6e 5f |ction  E|R(expon_|
|000002c0| 6d 65 61 6e 20 3a 72 65 | 61 6c 38 3b 6b 20 3a 69 |mean :re|al8;k :i|
|000002d0| 6e 74 65 67 65 72 29 3a | 72 65 61 6c 38 00 5b 43 |nteger):|real8.[C|
|000002e0| 5d 3b 00 65 78 74 65 72 | 6e 3b 0d 0a 66 75 6e 63 |];.exter|n;..func|
|000002f0| 74 69 6f 6e 20 20 45 58 | 28 6d 65 61 6e 20 3a 72 |tion  EX|(mean :r|
|00000300| 65 61 6c 38 29 3a 72 65 | 61 6c 38 00 5b 43 5d 3b |eal8):re|al8.[C];|
|00000310| 00 65 78 74 65 72 6e 3b | 0d 0a 66 75 6e 63 74 69 |.extern;|..functi|
|00000320| 6f 6e 20 20 47 41 28 62 | 65 74 61 2c 61 6c 70 68 |on  GA(b|eta,alph|
|00000330| 61 20 3a 72 65 61 6c 38 | 29 3a 72 65 61 6c 38 00 |a :real8|):real8.|
|00000340| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|00000350| 6e 63 74 69 6f 6e 20 20 | 49 44 45 3a 69 6e 74 65 |nction  |IDE:inte|
|00000360| 67 65 72 00 5b 43 5d 3b | 00 65 78 74 65 72 6e 3b |ger.[C];|.extern;|
|00000370| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 20 49 44 49 43 |..functi|on  IDIC|
|00000380| 28 69 72 20 3a 69 6e 74 | 65 67 65 72 29 3a 69 6e |(ir :int|eger):in|
|00000390| 74 65 67 65 72 00 5b 43 | 5d 3b 00 65 78 74 65 72 |teger.[C|];.exter|
|000003a0| 6e 3b 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 20 49 44 |n;..func|tion  ID|
|000003b0| 49 51 28 6e 71 2c 69 72 | 20 3a 69 6e 74 65 67 65 |IQ(nq,ir| :intege|
|000003c0| 72 29 3a 69 6e 74 65 67 | 65 72 00 5b 43 5d 3b 00 |r):integ|er.[C];.|
|000003d0| 65 78 74 65 72 6e 3b 0d | 0a 70 72 6f 63 65 64 75 |extern;.|.procedu|
|000003e0| 72 65 20 49 4e 49 51 55 | 45 28 6d 61 78 5f 71 2c |re INIQU|E(max_q,|
|000003f0| 6d 61 78 5f 61 74 74 72 | 2c 6d 61 78 5f 73 74 61 |max_attr|,max_sta|
|00000400| 74 20 3a 69 6e 74 65 67 | 65 72 29 00 5b 43 5d 3b |t :integ|er).[C];|
|00000410| 00 65 78 74 65 72 6e 3b | 0d 0a 70 72 6f 63 65 64 |.extern;|..proced|
|00000420| 75 72 65 20 49 4e 49 53 | 54 41 28 6e 20 3a 69 6e |ure INIS|TA(n :in|
|00000430| 74 65 67 65 72 3b 20 76 | 61 72 20 6e 61 6d 65 20 |teger; v|ar name |
|00000440| 3a 73 74 72 32 30 3b 69 | 66 5f 74 69 6d 65 5f 70 |:str20;i|f_time_p|
|00000450| 2c 6e 5f 63 65 6c 6c 73 | 3a 69 6e 74 65 67 65 72 |,n_cells|:integer|
|00000460| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..     |        |
|00000470| 20 20 20 20 66 6c 2c 63 | 77 3a 72 65 61 6c 38 29 |    fl,c|w:real8)|
|00000480| 00 5b 43 5d 3b 00 65 78 | 74 65 72 6e 3b 0d 0a 66 |.[C];.ex|tern;..f|
|00000490| 75 6e 63 74 69 6f 6e 20 | 20 4e 43 3a 69 6e 74 65 |unction | NC:inte|
|000004a0| 67 65 72 00 5b 43 5d 3b | 00 65 78 74 65 72 6e 3b |ger.[C];|.extern;|
|000004b0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 20 4e 43 45 4e |..functi|on  NCEN|
|000004c0| 3a 69 6e 74 65 67 65 72 | 00 5b 43 5d 3b 00 65 78 |:integer|.[C];.ex|
|000004d0| 74 65 72 6e 3b 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |tern;..f|unction |
|000004e0| 20 4e 45 49 43 28 69 72 | 20 3a 69 6e 74 65 67 65 | NEIC(ir| :intege|
|000004f0| 72 29 3a 69 6e 74 65 67 | 65 72 00 5b 43 5d 3b 00 |r):integ|er.[C];.|
|00000500| 65 78 74 65 72 6e 3b 0d | 0a 66 75 6e 63 74 69 6f |extern;.|.functio|
|00000510| 6e 20 20 4e 45 58 54 45 | 56 3a 69 6e 74 65 67 65 |n  NEXTE|V:intege|
|00000520| 72 00 5b 43 5d 3b 00 65 | 78 74 65 72 6e 3b 0d 0a |r.[C];.e|xtern;..|
|00000530| 66 75 6e 63 74 69 6f 6e | 20 20 4e 50 28 6d 65 61 |function|  NP(mea|
|00000540| 6e 20 3a 72 65 61 6c 38 | 29 3a 69 6e 74 65 67 65 |n :real8|):intege|
|00000550| 72 00 5b 43 5d 3b 00 65 | 78 74 65 72 6e 3b 0d 0a |r.[C];.e|xtern;..|
|00000560| 66 75 6e 63 74 69 6f 6e | 20 20 4e 51 28 6e 71 31 |function|  NQ(nq1|
|00000570| 3a 20 69 6e 74 65 67 65 | 72 29 3a 69 6e 74 65 67 |: intege|r):integ|
|00000580| 65 72 00 5b 43 5d 3b 00 | 65 78 74 65 72 6e 3b 0d |er.[C];.|extern;.|
|00000590| 0a 66 75 6e 63 74 69 6f | 6e 20 20 50 52 49 51 28 |.functio|n  PRIQ(|
|000005a0| 6e 71 2c 69 72 20 3a 69 | 6e 74 65 67 65 72 29 3a |nq,ir :i|nteger):|
|000005b0| 72 65 61 6c 38 00 5b 43 | 5d 3b 00 65 78 74 65 72 |real8.[C|];.exter|
|000005c0| 6e 3b 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 20 51 41 |n;..func|tion  QA|
|000005d0| 56 47 28 69 20 3a 69 6e | 74 65 67 65 72 29 3a 72 |VG(i :in|teger):r|
|000005e0| 65 61 6c 38 00 5b 43 5d | 3b 00 65 78 74 65 72 6e |eal8.[C]|;.extern|
|000005f0| 3b 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 20 51 44 43 |;..funct|ion  QDC|
|00000600| 28 69 20 3a 69 6e 74 65 | 67 65 72 29 3a 63 68 61 |(i :inte|ger):cha|
|00000610| 72 00 5b 43 5d 3b 00 65 | 78 74 65 72 6e 3b 0d 0a |r.[C];.e|xtern;..|
|00000620| 66 75 6e 63 74 69 6f 6e | 20 20 51 4d 41 58 28 69 |function|  QMAX(i|
|00000630| 20 3a 69 6e 74 65 67 65 | 72 29 3a 72 65 61 6c 38 | :intege|r):real8|
|00000640| 00 5b 43 5d 3b 00 65 78 | 74 65 72 6e 3b 0d 0a 66 |.[C];.ex|tern;..f|
|00000650| 75 6e 63 74 69 6f 6e 20 | 20 51 4d 49 4e 28 69 20 |unction | QMIN(i |
|00000660| 3a 69 6e 74 65 67 65 72 | 29 3a 72 65 61 6c 38 00 |:integer|):real8.|
|00000670| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|00000680| 6e 63 74 69 6f 6e 20 20 | 51 4e 55 4d 28 69 20 3a |nction  |QNUM(i :|
|00000690| 69 6e 74 65 67 65 72 29 | 3a 72 65 61 6c 38 00 5b |integer)|:real8.[|
|000006a0| 43 5d 3b 00 65 78 74 65 | 72 6e 3b 0d 0a 66 75 6e |C];.exte|rn;..fun|
|000006b0| 63 74 69 6f 6e 20 20 51 | 53 54 44 28 69 20 3a 69 |ction  Q|STD(i :i|
|000006c0| 6e 74 65 67 65 72 29 3a | 72 65 61 6c 38 00 5b 43 |nteger):|real8.[C|
|000006d0| 5d 3b 00 65 78 74 65 72 | 6e 3b 0d 0a 70 72 6f 63 |];.exter|n;..proc|
|000006e0| 65 64 75 72 65 20 51 55 | 45 55 45 28 6e 71 20 3a |edure QU|EUE(nq :|
|000006f0| 69 6e 74 65 67 65 72 3b | 20 70 3a 20 72 65 61 6c |integer;| p: real|
|00000700| 38 29 00 5b 43 5d 3b 00 | 65 78 74 65 72 6e 3b 0d |8).[C];.|extern;.|
|00000710| 0a 66 75 6e 63 74 69 6f | 6e 20 20 52 41 3a 72 65 |.functio|n  RA:re|
|00000720| 61 6c 38 00 5b 43 5d 3b | 00 65 78 74 65 72 6e 3b |al8.[C];|.extern;|
|00000730| 0d 0a 70 72 6f 63 65 64 | 75 72 65 20 52 45 4d 56 |..proced|ure REMV|
|00000740| 46 43 28 69 72 3a 20 69 | 6e 74 65 67 65 72 29 00 |FC(ir: i|nteger).|
|00000750| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 70 72 |[C];.ext|ern;..pr|
|00000760| 6f 63 65 64 75 72 65 20 | 52 45 4d 56 46 51 28 6e |ocedure |REMVFQ(n|
|00000770| 71 2c 69 72 3a 20 69 6e | 74 65 67 65 72 29 00 5b |q,ir: in|teger).[|
|00000780| 43 5d 3b 00 65 78 74 65 | 72 6e 3b 0d 0a 66 75 6e |C];.exte|rn;..fun|
|00000790| 63 74 69 6f 6e 20 20 52 | 4c 28 6d 65 61 6e 2c 73 |ction  R|L(mean,s|
|000007a0| 64 20 3a 72 65 61 6c 38 | 29 3a 72 65 61 6c 38 00 |d :real8|):real8.|
|000007b0| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|000007c0| 6e 63 74 69 6f 6e 20 20 | 52 4e 28 6d 65 61 6e 2c |nction  |RN(mean,|
|000007d0| 73 64 20 3a 72 65 61 6c | 38 29 3a 72 65 61 6c 38 |sd :real|8):real8|
|000007e0| 00 5b 43 5d 3b 00 65 78 | 74 65 72 6e 3b 0d 0a 66 |.[C];.ex|tern;..f|
|000007f0| 75 6e 63 74 69 6f 6e 20 | 20 53 41 56 47 28 69 20 |unction | SAVG(i |
|00000800| 3a 69 6e 74 65 67 65 72 | 29 3a 72 65 61 6c 38 00 |:integer|):real8.|
|00000810| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 70 72 |[C];.ext|ern;..pr|
|00000820| 6f 63 65 64 75 72 65 20 | 53 43 48 45 44 28 74 69 |ocedure |SCHED(ti|
|00000830| 6d 65 20 3a 72 65 61 6c | 38 3b 00 6e 65 2c 69 64 |me :real|8;.ne,id|
|00000840| 20 3a 69 6e 74 65 67 65 | 72 29 00 5b 43 5d 3b 00 | :intege|r).[C];.|
|00000850| 65 78 74 65 72 6e 3b 0d | 0a 70 72 6f 63 65 64 75 |extern;.|.procedu|
|00000860| 72 65 20 53 45 54 41 28 | 69 20 3a 69 6e 74 65 67 |re SETA(|i :integ|
|00000870| 65 72 3b 00 76 20 3a 72 | 65 61 6c 38 29 00 5b 43 |er;.v :r|eal8).[C|
|00000880| 5d 3b 00 65 78 74 65 72 | 6e 3b 0d 0a 70 72 6f 63 |];.exter|n;..proc|
|00000890| 65 64 75 72 65 20 53 45 | 54 41 4e 54 28 79 3a 20 |edure SE|TANT(y: |
|000008a0| 69 6e 74 65 67 65 72 29 | 00 5b 43 5d 3b 00 65 78 |integer)|.[C];.ex|
|000008b0| 74 65 72 6e 3b 0d 0a 70 | 72 6f 63 65 64 75 72 65 |tern;..p|rocedure|
|000008c0| 20 53 45 54 44 45 42 28 | 65 72 72 20 3a 69 6e 74 | SETDEB(|err :int|
|000008d0| 65 67 65 72 29 00 5b 43 | 5d 3b 00 65 78 74 65 72 |eger).[C|];.exter|
|000008e0| 6e 3b 0d 0a 70 72 6f 63 | 65 64 75 72 65 20 53 45 |n;..proc|edure SE|
|000008f0| 54 49 44 45 28 69 64 20 | 3a 69 6e 74 65 67 65 72 |TIDE(id |:integer|
|00000900| 29 00 5b 43 5d 3b 00 65 | 78 74 65 72 6e 3b 0d 0a |).[C];.e|xtern;..|
|00000910| 70 72 6f 63 65 64 75 72 | 65 20 53 45 54 51 44 43 |procedur|e SETQDC|
|00000920| 28 6e 20 3a 69 6e 74 65 | 67 65 72 3b 20 76 61 72 |(n :inte|ger; var|
|00000930| 20 64 69 73 63 20 3a 73 | 74 72 36 29 00 5b 43 5d | disc :s|tr6).[C]|
|00000940| 3b 00 65 78 74 65 72 6e | 3b 0d 0a 70 72 6f 63 65 |;.extern|;..proce|
|00000950| 64 75 72 65 20 53 45 54 | 53 45 45 28 20 69 20 3a |dure SET|SEE( i :|
|00000960| 69 6e 74 65 67 65 72 29 | 00 5b 43 5d 3b 00 65 78 |integer)|.[C];.ex|
|00000970| 74 65 72 6e 3b 0d 0a 70 | 72 6f 63 65 64 75 72 65 |tern;..p|rocedure|
|00000980| 20 53 45 54 54 28 74 20 | 3a 72 65 61 6c 38 29 00 | SETT(t |:real8).|
|00000990| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 70 72 |[C];.ext|ern;..pr|
|000009a0| 6f 63 65 64 75 72 65 20 | 53 48 4f 57 51 28 6d 3a |ocedure |SHOWQ(m:|
|000009b0| 20 69 6e 74 65 67 65 72 | 29 00 5b 43 5d 3b 00 65 | integer|).[C];.e|
|000009c0| 78 74 65 72 6e 3b 0d 0a | 70 72 6f 63 65 64 75 72 |xtern;..|procedur|
|000009d0| 65 20 53 49 4d 45 4e 44 | 28 74 69 6d 65 20 3a 72 |e SIMEND|(time :r|
|000009e0| 65 61 6c 38 3b 20 69 64 | 20 3a 69 6e 74 65 67 65 |eal8; id| :intege|
|000009f0| 72 29 00 5b 43 5d 3b 00 | 65 78 74 65 72 6e 3b 0d |r).[C];.|extern;.|
|00000a00| 0a 66 75 6e 63 74 69 6f | 6e 20 20 53 4d 41 58 28 |.functio|n  SMAX(|
|00000a10| 69 20 3a 69 6e 74 65 67 | 65 72 29 3a 72 65 61 6c |i :integ|er):real|
|00000a20| 38 00 5b 43 5d 3b 00 65 | 78 74 65 72 6e 3b 0d 0a |8.[C];.e|xtern;..|
|00000a30| 66 75 6e 63 74 69 6f 6e | 20 20 53 4d 49 4e 28 69 |function|  SMIN(i|
|00000a40| 20 3a 69 6e 74 65 67 65 | 72 29 3a 72 65 61 6c 38 | :intege|r):real8|
|00000a50| 00 5b 43 5d 3b 00 65 78 | 74 65 72 6e 3b 0d 0a 66 |.[C];.ex|tern;..f|
|00000a60| 75 6e 63 74 69 6f 6e 20 | 20 53 4e 55 4d 28 69 20 |unction | SNUM(i |
|00000a70| 3a 69 6e 74 65 67 65 72 | 29 3a 72 65 61 6c 38 00 |:integer|):real8.|
|00000a80| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|00000a90| 6e 63 74 69 6f 6e 20 20 | 53 53 54 44 28 69 20 3a |nction  |SSTD(i :|
|00000aa0| 69 6e 74 65 67 65 72 29 | 3a 72 65 61 6c 38 00 5b |integer)|:real8.[|
|00000ab0| 43 5d 3b 00 65 78 74 65 | 72 6e 3b 0d 0a 70 72 6f |C];.exte|rn;..pro|
|00000ac0| 63 65 64 75 72 65 20 53 | 55 4d 52 59 28 76 61 72 |cedure S|UMRY(var|
|00000ad0| 20 66 6e 20 3a 73 74 72 | 36 30 29 00 5b 43 5d 3b | fn :str|60).[C];|
|00000ae0| 00 65 78 74 65 72 6e 3b | 0d 0a 66 75 6e 63 74 69 |.extern;|..functi|
|00000af0| 6f 6e 20 20 54 3a 72 65 | 61 6c 38 00 5b 43 5d 3b |on  T:re|al8.[C];|
|00000b00| 00 65 78 74 65 72 6e 3b | 0d 0a 70 72 6f 63 65 64 |.extern;|..proced|
|00000b10| 75 72 65 20 54 41 4c 4c | 59 28 6e 20 3a 69 6e 74 |ure TALL|Y(n :int|
|00000b20| 65 67 65 72 3b 20 6f 62 | 73 65 72 76 61 74 69 6f |eger; ob|servatio|
|00000b30| 6e 20 3a 72 65 61 6c 38 | 29 00 5b 43 5d 3b 00 65 |n :real8|).[C];.e|
|00000b40| 78 74 65 72 6e 3b 0d 0a | 66 75 6e 63 74 69 6f 6e |xtern;..|function|
|00000b50| 20 20 54 49 43 28 69 72 | 20 3a 69 6e 74 65 67 65 |  TIC(ir| :intege|
|00000b60| 72 29 3a 72 65 61 6c 38 | 00 5b 43 5d 3b 00 65 78 |r):real8|.[C];.ex|
|00000b70| 74 65 72 6e 3b 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |tern;..f|unction |
|00000b80| 20 54 52 28 6d 69 6e 69 | 6d 75 6d 2c 6d 6f 64 65 | TR(mini|mum,mode|
|00000b90| 2c 6d 61 78 69 6d 75 6d | 20 3a 72 65 61 6c 38 29 |,maximum| :real8)|
|00000ba0| 3a 72 65 61 6c 38 00 5b | 43 5d 3b 00 65 78 74 65 |:real8.[|C];.exte|
|00000bb0| 72 6e 3b 0d 0a 66 75 6e | 63 74 69 6f 6e 20 20 55 |rn;..fun|ction  U|
|00000bc0| 4e 28 6d 69 6e 69 6d 75 | 6d 2c 6d 61 78 69 6d 75 |N(minimu|m,maximu|
|00000bd0| 6d 20 3a 72 65 61 6c 38 | 29 3a 72 65 61 6c 38 00 |m :real8|):real8.|
|00000be0| 5b 43 5d 3b 00 65 78 74 | 65 72 6e 3b 0d 0a 66 75 |[C];.ext|ern;..fu|
|00000bf0| 6e 63 74 69 6f 6e 20 20 | 57 45 28 62 65 74 61 2c |nction  |WE(beta,|
|00000c00| 61 6c 70 68 61 20 3a 72 | 65 61 6c 38 29 3a 72 65 |alpha :r|eal8):re|
|00000c10| 61 6c 38 00 5b 43 5d 3b | 00 65 78 74 65 72 6e 3b |al8.[C];|.extern;|
|00000c20| 0d 0a 20 1a 1a          |                         |.. ..   |        |
+--------+-------------------------+-------------------------+--------+--------+