/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / graphs / progs / axes / AxesPrint

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2b 20 f4 20 3e | 20 41 78 65 73 50 72 69 |...+ . >| AxesPri|
|00000010| 6e 74 20 3a 20 5b 43 5d | 20 45 2e 57 2e 41 79 65 |nt : [C]| E.W.Aye|
|00000020| 72 73 20 31 35 3a 31 32 | 3a 39 30 0d 00 14 37 f4 |rs 15:12|:90...7.|
|00000030| 20 50 52 4f 43 53 20 66 | 6f 72 20 70 6c 6f 74 74 | PROCS f|or plott|
|00000040| 69 6e 67 20 67 72 61 70 | 68 73 20 77 69 74 68 20 |ing grap|hs with |
|00000050| 27 73 65 6e 73 69 62 6c | 65 27 20 73 63 61 6c 69 |'sensibl|e' scali|
|00000060| 6e 67 0d 00 1e 39 f4 20 | 50 52 4f 43 53 20 61 72 |ng...9. |PROCS ar|
|00000070| 65 20 61 74 20 4c 2e 35 | 30 30 30 20 6f 6e 3a 20 |e at L.5|000 on: |
|00000080| 46 69 72 73 74 20 70 61 | 72 74 20 6d 65 72 65 6c |First pa|rt merel|
|00000090| 79 20 66 6f 72 20 64 65 | 6d 6f 2e 0d 00 28 25 f4 |y for de|mo...(%.|
|000000a0| 20 46 6f 72 20 61 6e 79 | 20 38 30 2d 63 6f 6c 75 | For any| 80-colu|
|000000b0| 6d 6e 20 67 72 61 70 68 | 69 63 73 20 6d 6f 64 65 |mn graph|ics mode|
|000000c0| 0d 00 32 32 f4 20 50 52 | 4f 43 69 6e 69 74 20 73 |..22. PR|OCinit s|
|000000d0| 65 74 73 20 75 70 20 70 | 61 72 61 6d 65 74 65 72 |ets up p|arameter|
|000000e0| 73 20 66 6f 72 20 63 75 | 72 72 65 6e 74 20 6d 6f |s for cu|rrent mo|
|000000f0| 64 65 0d 00 3c 20 f4 20 | 50 52 4f 43 73 74 65 70 |de..< . |PROCstep|
|00000100| 20 77 6f 72 6b 73 20 6f | 75 74 20 73 63 61 6c 69 | works o|ut scali|
|00000110| 6e 67 0d 00 46 25 f4 20 | 50 52 4f 43 61 78 65 73 |ng..F%. |PROCaxes|
|00000120| 20 64 72 61 77 73 20 61 | 78 65 73 20 61 6e 64 20 | draws a|xes and |
|00000130| 6c 65 67 65 6e 64 73 0d | 00 50 31 f4 20 46 4e 70 |legends.|.P1. FNp|
|00000140| 6c 6f 74 78 2c 20 46 4e | 70 6c 6f 74 79 20 74 61 |lotx, FN|ploty ta|
|00000150| 6b 65 20 61 6e 64 20 70 | 72 6f 63 65 73 73 20 79 |ke and p|rocess y|
|00000160| 6f 75 72 20 64 61 74 61 | 0d 00 64 07 eb 20 30 0d |our data|..d.. 0.|
|00000170| 00 6e 2e 58 6d 69 6e 3d | 2d 30 2e 30 30 34 3a 58 |.n.Xmin=|-0.004:X|
|00000180| 6d 61 78 3d 30 2e 30 31 | 32 3a f4 20 4d 61 79 20 |max=0.01|2:. May |
|00000190| 63 68 61 6e 67 65 20 74 | 68 65 73 65 21 0d 00 78 |change t|hese!..x|
|000001a0| 15 59 6d 69 6e 3d 32 31 | 31 3a 59 6d 61 78 3d 32 |.Ymin=21|1:Ymax=2|
|000001b0| 32 35 0d 00 82 07 db 3a | 87 0d 00 8c 1e f2 61 78 |25.....:|......ax|
|000001c0| 65 73 28 58 6d 69 6e 2c | 58 6d 61 78 2c 59 6d 69 |es(Xmin,|Xmax,Ymi|
|000001d0| 6e 2c 59 6d 61 78 29 0d | 00 96 33 f4 20 47 65 6e |n,Ymax).|..3. Gen|
|000001e0| 65 72 61 74 65 20 61 6e | 64 20 70 6c 6f 74 20 73 |erate an|d plot s|
|000001f0| 6f 6d 65 20 64 61 74 61 | 20 66 6f 72 20 64 65 6d |ome data| for dem|
|00000200| 6f 6e 73 74 72 61 74 69 | 6f 6e 0d 00 a0 1e ec a4 |onstrati|on......|
|00000210| 70 6c 6f 74 78 28 58 6d | 69 6e 29 2c a4 70 6c 6f |plotx(Xm|in),.plo|
|00000220| 74 79 28 59 6d 69 6e 29 | 0d 00 aa 24 e3 20 58 3d |ty(Ymin)|...$. X=|
|00000230| 58 6d 69 6e 20 b8 20 58 | 6d 61 78 20 88 20 28 58 |Xmin . X|max . (X|
|00000240| 6d 61 78 2d 58 6d 69 6e | 29 2f 32 30 0d 00 b4 18 |max-Xmin|)/20....|
|00000250| 59 3d 59 6d 69 6e 20 2b | b3 28 59 6d 61 78 2d 59 |Y=Ymin +|.(Ymax-Y|
|00000260| 6d 69 6e 29 0d 00 be 19 | df 20 a4 70 6c 6f 74 78 |min)....|. .plotx|
|00000270| 28 58 29 2c a4 70 6c 6f | 74 79 28 59 29 0d 00 c8 |(X),.plo|ty(Y)...|
|00000280| 05 ed 0d 00 d2 0e 40 25 | 3d 26 41 30 41 3a c8 96 |......@%|=&A0A:..|
|00000290| 0d 00 dc 0b e7 20 a5 3a | ee 3a e0 0d 13 87 05 3a |..... .:|.:.....:|
|000002a0| 0d 13 88 12 dd f2 69 6e | 69 74 3a 40 25 3d 26 36 |......in|it:@%=&6|
|000002b0| 30 41 0d 13 8d 3b f4 20 | 73 65 74 20 77 69 64 74 |0A...;. |set widt|
|000002c0| 68 2c 20 63 68 61 72 61 | 63 74 65 72 2d 73 69 7a |h, chara|cter-siz|
|000002d0| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 66 6f 72 |e parame|ters for|
|000002e0| 20 63 75 72 72 65 6e 74 | 20 4d 4f 44 45 0d 13 92 | current| MODE...|
|000002f0| 0a c8 8e 20 eb 20 ca 0d | 13 9c 30 c9 20 30 2c 38 |... . ..|..0. 0,8|
|00000300| 2c 31 31 2c 31 32 2c 31 | 34 3a 77 69 64 74 68 25 |,11,12,1|4:width%|
|00000310| 3d 31 32 37 39 3a 63 68 | 72 77 25 3d 31 36 3a 63 |=1279:ch|rw%=16:c|
|00000320| 68 72 68 25 3d 33 32 0d | 13 a6 2c c9 20 31 36 2c |hrh%=32.|..,. 16,|
|00000330| 31 37 2c 32 34 3a 77 69 | 64 74 68 25 3d 32 31 31 |17,24:wi|dth%=211|
|00000340| 31 3a 63 68 72 77 25 3d | 31 36 3a 63 68 72 68 25 |1:chrw%=|16:chrh%|
|00000350| 3d 33 32 0d 13 b0 2f c9 | 20 31 38 2c 31 39 2c 32 |=32.../.| 18,19,2|
|00000360| 30 2c 32 31 3a 77 69 64 | 74 68 25 3d 31 32 37 39 |0,21:wid|th%=1279|
|00000370| 3a 63 68 72 77 25 3d 31 | 36 3a 63 68 72 68 25 3d |:chrw%=1|6:chrh%=|
|00000380| 31 36 0d 13 ba 3a 7f 3a | f1 27 27 22 55 6e 73 75 |16...:.:|.''"Unsu|
|00000390| 69 74 61 62 6c 65 20 4d | 4f 44 45 22 3a e0 3a f4 |itable M|ODE":.:.|
|000003a0| 20 38 30 20 6f 72 20 31 | 33 32 20 63 68 72 20 67 | 80 or 1|32 chr g|
|000003b0| 72 61 70 68 69 63 73 20 | 6f 6e 6c 79 0d 13 c4 07 |raphics |only....|
|000003c0| cb 3a e1 0d 13 eb 05 3a | 0d 13 ec 15 dd f2 73 74 |.:.....:|......st|
|000003d0| 65 70 28 56 6d 69 6e 2c | 56 6d 61 78 29 0d 13 f6 |ep(Vmin,|Vmax)...|
|000003e0| 38 6d 61 78 3d 94 56 6d | 61 78 3a e7 94 56 6d 69 |8max=.Vm|ax:..Vmi|
|000003f0| 6e 3e 6d 61 78 3a 6d 61 | 78 3d 94 56 6d 69 6e 3a |n>max:ma|x=.Vmin:|
|00000400| f4 20 6e 6f 72 6d 61 6c | 69 73 65 20 76 61 72 69 |. normal|ise vari|
|00000410| 61 62 6c 65 73 0d 14 00 | 32 73 63 61 6c 65 3d 31 |ables...|2scale=1|
|00000420| 30 5e a8 ab 6d 61 78 3a | 56 6d 69 6e 3d 56 6d 69 |0^..max:|Vmin=Vmi|
|00000430| 6e 2f 73 63 61 6c 65 3a | 56 6d 61 78 3d 56 6d 61 |n/scale:|Vmax=Vma|
|00000440| 78 2f 73 63 61 6c 65 0d | 14 0a 09 f7 8d 44 46 54 |x/scale.|.....DFT|
|00000450| 0d 14 14 35 f5 3a f3 20 | 73 74 65 70 3a fd 20 73 |...5.:. |step:. s|
|00000460| 74 65 70 20 3c 20 28 56 | 6d 61 78 2d 56 6d 69 6e |tep < (V|max-Vmin|
|00000470| 29 2f 34 3a f4 20 61 78 | 69 73 20 76 61 6c 75 65 |)/4:. ax|is value|
|00000480| 20 73 74 65 70 0d 14 1e | 23 73 74 61 72 74 25 3d | step...|#start%=|
|00000490| 56 6d 69 6e 2f 73 74 65 | 70 3a 65 6e 64 25 3d 56 |Vmin/ste|p:end%=V|
|000004a0| 6d 61 78 2f 73 74 65 70 | 0d 14 20 33 e7 65 6e 64 |max/step|.. 3.end|
|000004b0| 25 2a 73 74 65 70 20 3c | 20 56 6d 61 78 3a 65 6e |%*step <| Vmax:en|
|000004c0| 64 25 2b 3d 31 3a f4 20 | 69 66 20 72 6f 75 6e 64 |d%+=1:. |if round|
|000004d0| 69 6e 67 20 65 72 72 6f | 72 73 21 0d 14 22 21 e7 |ing erro|rs!.."!.|
|000004e0| 73 74 61 72 74 25 2a 73 | 74 65 70 20 3e 20 56 6d |start%*s|tep > Vm|
|000004f0| 69 6e 3a 73 74 61 72 74 | 25 2d 3d 31 0d 14 28 05 |in:start|%-=1..(.|
|00000500| e1 0d 14 46 6b dc 32 2c | 31 2c 2e 35 2c 2e 32 2c |...Fk.2,|1,.5,.2,|
|00000510| 2e 31 2c 2e 30 35 2c 2e | 30 32 2c 2e 30 31 2c 2e |.1,.05,.|02,.01,.|
|00000520| 30 30 35 2c 2e 30 30 32 | 2c 2e 30 30 31 2c 2e 30 |005,.002|,.001,.0|
|00000530| 30 30 35 2c 2e 30 30 30 | 32 2c 2e 30 30 30 31 2c |005,.000|2,.0001,|
|00000540| 2e 30 30 30 30 35 2c 2e | 30 30 30 30 32 2c 2e 30 |.00005,.|00002,.0|
|00000550| 30 30 30 31 2c 2e 30 30 | 30 30 30 35 2c 2e 30 30 |0001,.00|0005,.00|
|00000560| 30 30 30 32 2c 2e 30 30 | 30 30 30 31 0d 14 4f 05 |0002,.00|0001..O.|
|00000570| 3a 0d 14 50 1f dd f2 61 | 78 65 73 28 58 6d 69 6e |:..P...a|xes(Xmin|
|00000580| 2c 58 6d 61 78 2c 59 6d | 69 6e 2c 59 6d 61 78 29 |,Xmax,Ym|in,Ymax)|
|00000590| 0d 14 5a 09 f2 69 6e 69 | 74 0d 14 64 45 f2 73 74 |..Z..ini|t..dE.st|
|000005a0| 65 70 28 58 6d 69 6e 2c | 58 6d 61 78 29 3a 78 73 |ep(Xmin,|Xmax):xs|
|000005b0| 63 61 6c 65 3d 73 63 61 | 6c 65 3a 78 73 74 61 72 |cale=sca|le:xstar|
|000005c0| 74 25 3d 73 74 61 72 74 | 25 3a 78 65 6e 64 25 3d |t%=start|%:xend%=|
|000005d0| 65 6e 64 25 3a 78 73 74 | 70 3d 73 74 65 70 0d 14 |end%:xst|p=step..|
|000005e0| 6e 45 f2 73 74 65 70 28 | 59 6d 69 6e 2c 59 6d 61 |nE.step(|Ymin,Yma|
|000005f0| 78 29 3a 79 73 63 61 6c | 65 3d 73 63 61 6c 65 3a |x):yscal|e=scale:|
|00000600| 79 73 74 61 72 74 25 3d | 73 74 61 72 74 25 3a 79 |ystart%=|start%:y|
|00000610| 65 6e 64 25 3d 65 6e 64 | 25 3a 79 73 74 70 3d 73 |end%=end|%:ystp=s|
|00000620| 74 65 70 0d 14 78 07 20 | ef 35 0d 14 7d 34 f4 20 |tep..x. |.5..}4. |
|00000630| 43 61 6c 63 20 6f 72 69 | 67 69 6e 2e 20 44 72 61 |Calc ori|gin. Dra|
|00000640| 77 20 61 78 65 73 2c 20 | 74 69 63 6b 73 20 61 6e |w axes, |ticks an|
|00000650| 64 20 73 63 61 6c 65 20 | 76 61 6c 75 65 73 0d 14 |d scale |values..|
|00000660| 82 35 74 3d 79 73 74 70 | 2d 28 79 73 74 70 3c 31 |.5t=ystp|-(ystp<1|
|00000670| 29 3a 78 6f 72 67 25 3d | 63 68 72 77 25 2a 28 32 |):xorg%=|chrw%*(2|
|00000680| 2b a9 c3 74 29 3a 79 6f | 72 67 25 3d 33 2a 63 68 |+..t):yo|rg%=3*ch|
|00000690| 72 68 25 0d 14 8c 35 ec | 78 6f 72 67 25 2c 31 30 |rh%...5.|xorg%,10|
|000006a0| 32 33 3a df 78 6f 72 67 | 25 2c 79 6f 72 67 25 3a |23:.xorg|%,yorg%:|
|000006b0| df 77 69 64 74 68 25 2c | 79 6f 72 67 25 3a f4 20 |.width%,|yorg%:. |
|000006c0| 78 2c 79 20 61 78 65 73 | 0d 14 96 3a e3 49 25 3d |x,y axes|...:.I%=|
|000006d0| 30 b8 28 78 65 6e 64 25 | 2d 78 73 74 61 72 74 25 |0.(xend%|-xstart%|
|000006e0| 29 3a 73 3d 28 77 69 64 | 74 68 25 2d 78 6f 72 67 |):s=(wid|th%-xorg|
|000006f0| 25 29 2f 28 78 65 6e 64 | 25 2d 78 73 74 61 72 74 |%)/(xend|%-xstart|
|00000700| 25 29 0d 14 a0 39 ec 78 | 6f 72 67 25 2b 73 2a 49 |%)...9.x|org%+s*I|
|00000710| 25 2c 79 6f 72 67 25 3a | df 78 6f 72 67 25 2b 73 |%,yorg%:|.xorg%+s|
|00000720| 2a 49 25 2c 79 6f 72 67 | 25 2d 63 68 72 68 25 2f |*I%,yorg|%-chrh%/|
|00000730| 32 3a f4 20 78 2d 74 69 | 63 6b 73 0d 14 aa 2f ec |2:. x-ti|cks.../.|
|00000740| 78 6f 72 67 25 2b 73 2a | 49 25 2d 31 30 2a 63 68 |xorg%+s*|I%-10*ch|
|00000750| 72 77 25 2c 79 6f 72 67 | 25 2d 63 68 72 68 25 3a |rw%,yorg|%-chrh%:|
|00000760| f4 20 78 2d 76 61 6c 75 | 65 73 0d 14 af 18 f1 78 |. x-valu|es.....x|
|00000770| 73 74 70 2a 28 49 25 2b | 78 73 74 61 72 74 25 29 |stp*(I%+|xstart%)|
|00000780| 3a ed 0d 14 b4 3c ec 30 | 2c 63 68 72 68 25 3a f1 |:....<.0|,chrh%:.|
|00000790| 22 20 20 4d 75 6c 74 69 | 70 6c 79 20 59 20 62 79 |"  Multi|ply Y by|
|000007a0| 20 22 3b 79 73 63 61 6c | 65 3a f4 20 4d 75 6c 74 | ";yscal|e:. Mult|
|000007b0| 69 70 6c 69 65 72 20 6c | 65 67 65 6e 64 73 0d 14 |iplier l|egends..|
|000007c0| b9 2d ec 77 69 64 74 68 | 25 2f 32 2c 63 68 72 68 |.-.width|%/2,chrh|
|000007d0| 25 3a f1 22 4d 75 6c 74 | 69 70 6c 79 20 58 20 62 |%:."Mult|iply X b|
|000007e0| 79 20 22 3b 78 73 63 61 | 6c 65 3b 0d 14 be 38 e3 |y ";xsca|le;...8.|
|000007f0| 49 25 3d 30 b8 28 79 65 | 6e 64 25 2d 79 73 74 61 |I%=0.(ye|nd%-ysta|
|00000800| 72 74 25 29 3a 73 3d 28 | 31 30 32 33 2d 79 6f 72 |rt%):s=(|1023-yor|
|00000810| 67 25 29 2f 28 79 65 6e | 64 25 2d 79 73 74 61 72 |g%)/(yen|d%-ystar|
|00000820| 74 25 29 0d 14 c8 39 ec | 78 6f 72 67 25 2c 73 2a |t%)...9.|xorg%,s*|
|00000830| 49 25 2b 79 6f 72 67 25 | 3a df 78 6f 72 67 25 2d |I%+yorg%|:.xorg%-|
|00000840| 63 68 72 77 25 2f 32 2c | 73 2a 49 25 2b 79 6f 72 |chrw%/2,|s*I%+yor|
|00000850| 67 25 3a f4 20 79 2d 74 | 69 63 6b 73 0d 14 d2 32 |g%:. y-t|icks...2|
|00000860| ec 30 2c 73 2a 49 25 2b | 79 6f 72 67 25 3a f1 3b |.0,s*I%+|yorg%:.;|
|00000870| 79 73 74 70 2a 28 49 25 | 2b 79 73 74 61 72 74 25 |ystp*(I%|+ystart%|
|00000880| 29 3a ed 3a f4 20 79 2d | 76 61 6c 75 65 73 0d 14 |):.:. y-|values..|
|00000890| dc 06 ef 34 0d 14 fa 05 | e1 0d 15 18 35 dd a4 70 |...4....|....5..p|
|000008a0| 6c 6f 74 78 28 58 29 3a | f4 20 52 65 74 75 72 6e |lotx(X):|. Return|
|000008b0| 20 78 2d 63 6f 6f 72 64 | 20 66 6f 72 20 4d 4f 56 | x-coord| for MOV|
|000008c0| 45 2c 44 52 41 57 20 6f | 72 20 50 4c 4f 54 0d 15 |E,DRAW o|r PLOT..|
|000008d0| 22 44 3d 78 6f 72 67 25 | 2b 28 77 69 64 74 68 25 |"D=xorg%|+(width%|
|000008e0| 2d 78 6f 72 67 25 29 2a | 28 58 2f 28 78 73 74 70 |-xorg%)*|(X/(xstp|
|000008f0| 2a 78 73 63 61 6c 65 29 | 20 2d 78 73 74 61 72 74 |*xscale)| -xstart|
|00000900| 25 29 2f 28 78 65 6e 64 | 25 2d 78 73 74 61 72 74 |%)/(xend|%-xstart|
|00000910| 25 29 0d 15 7c 35 dd a4 | 70 6c 6f 74 79 28 59 29 |%)..|5..|ploty(Y)|
|00000920| 3a f4 20 52 65 74 75 72 | 6e 20 79 2d 63 6f 6f 72 |:. Retur|n y-coor|
|00000930| 64 20 66 6f 72 20 4d 4f | 56 45 2c 44 52 41 57 20 |d for MO|VE,DRAW |
|00000940| 6f 72 20 50 4c 4f 54 0d | 15 86 42 3d 79 6f 72 67 |or PLOT.|..B=yorg|
|00000950| 25 2b 28 31 30 32 33 2d | 79 6f 72 67 25 29 2a 28 |%+(1023-|yorg%)*(|
|00000960| 59 2f 28 79 73 74 70 2a | 79 73 63 61 6c 65 29 20 |Y/(ystp*|yscale) |
|00000970| 2d 79 73 74 61 72 74 25 | 29 2f 28 79 65 6e 64 25 |-ystart%|)/(yend%|
|00000980| 2d 79 73 74 61 72 74 25 | 29 0d ff                |-ystart%|)..     |
+--------+-------------------------+-------------------------+--------+--------+