github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-01 09:31:05 +00:00
Code Issues Releases Wiki Activity
Files
master
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Library-Test-1/Library-Test-1-ROUND.lst

247 lines
12 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
0200 BAC-220 STANDARD VERSION 2/1/62
0200 COMMENT TEST PROGRAM 1 FOR BALGOL LIBRARY FUNCTIONS
0200 2018-01-18 P.KIMPEL$
0200
0200 INTEGER DEGREES$
0200 REAL RADS, TORADS$
0200 REAL VSQRT, VSIN, VCOS, VTAN, VASIN, VACOS, VATAN$
0200
0200 OUTPUT RESULTS(DEGREES, RADS, VSQRT, VSIN, VCOS, VTAN,
0220 VASIN, VACOS, VATAN)$
0231 FORMAT F(I2,2F14.8,6F15.8,W2),
0231 HEAD(* D RADS*,B10,*SQRT*,B11,*SIN*,B12,*COS*,B12,*TAN*,
0231 B12,*ASIN*,B11,*ACOS*,B11,*ATAN*,W2)$
0231
0255 TORADS = 3.1415926/180$
0257 WRITE($$ HEAD)$
0257
0261 FOR DEGREES = (1, 1, 89)$
0272 BEGIN
0272 RADS = DEGREES.TORADS$
0278 VSQRT = SQRT(RADS)$
0282 VSIN = SIN(RADS)$
0286 VCOS = COS(RADS)$
0290 VTAN = TAN(RADS)$
0294 VASIN = ARCSIN(VSIN)$
0298 VACOS = ARCCOS(VCOS)$
0302 VATAN = ARCTAN(VTAN)$
0306 WRITE($$ RESULTS, F)$
0314 END$
0315 FINISH$
COMPILED PROGRAM ENDS AT 0316
PROGRAM VARIABLES BEGIN AT 4387
D RADS SQRT SIN COS TAN ASIN ACOS ATAN
1 .17453292,-01 .13211091, 00 .17452406,-01 .99984771, 00 .17455064,-01 .17453293,-01 .17452499,-01 .17453292,-01
2 .34906584,-01 .18683303, 00 .34899493,-01 .99939083, 00 .34920765,-01 .34906582,-01 .34906526,-01 .34906581,-01
3 .52359876,-01 .22882280, 00 .52335953,-01 .99862954, 00 .52407775,-01 .52359873,-01 .52359794,-01 .52359873,-01
4 .69813168,-01 .26422182, 00 .69756469,-01 .99756406, 00 .69926806,-01 .69813166,-01 .69813042,-01 .69813164,-01
5 .87266460,-01 .29540897, 00 .87155739,-01 .99619469, 00 .87488660,-01 .87266460,-01 .87266564,-01 .87266459,-01
6 .10471975, 00 .32360431, 00 .10452846, 00 .99452189, 00 .10510423, 00 .10471975, 00 .10471981, 00 .10471975, 00
7 .12217304, 00 .34953259, 00 .12186933, 00 .99254615, 00 .12278454, 00 .12217304, 00 .12217307, 00 .12217303, 00
8 .13962633, 00 .37366605, 00 .13917309, 00 .99026809, 00 .14054082, 00 .13962633, 00 .13962619, 00 .13962633, 00
9 .15707962, 00 .39633269, 00 .15643445, 00 .98768835, 00 .15838442, 00 .15707962, 00 .15707957, 00 .15707961, 00
10 .17453292, 00 .41777137, 00 .17364818, 00 .98480776, 00 .17632698, 00 .17453292, 00 .17453289, 00 .17453292, 00
11 .19198621, 00 .43816230, 00 .19080899, 00 .98162719, 00 .19438030, 00 .19198621, 00 .19198618, 00 .19198621, 00
12 .20943950, 00 .45764560, 00 .20791168, 00 .97814762, 00 .21255654, 00 .20943950, 00 .20943941, 00 .20943949, 00
13 .22689279, 00 .47633264, 00 .22495105, 00 .97437009, 00 .23086818, 00 .22689280, 00 .22689269, 00 .22689279, 00
14 .24434608, 00 .49431373, 00 .24192189, 00 .97029576, 00 .24932798, 00 .24434610, 00 .24434596, 00 .24434607, 00
15 .26179938, 00 .51166334, 00 .25881903, 00 .96592582, 00 .26794917, 00 .26179938, 00 .26179941, 00 .26179937, 00
16 .27925267, 00 .52844360, 00 .27563734, 00 .96126170, 00 .28674536, 00 .27925268, 00 .27925267, 00 .27925266, 00
17 .29670596, 00 .54470720, 00 .29237169, 00 .95630476, 00 .30573066, 00 .29670596, 00 .29670595, 00 .29670595, 00
18 .31415925, 00 .56049909, 00 .30901698, 00 .95105652, 00 .32491967, 00 .31415926, 00 .31415925, 00 .31415924, 00
19 .33161254, 00 .57585807, 00 .32556813, 00 .94551859, 00 .34432758, 00 .33161254, 00 .33161248, 00 .33161253, 00
20 .34906584, 00 .59081792, 00 .34202011, 00 .93969264, 00 .36397019, 00 .34906583, 00 .34906578, 00 .34906581, 00
21 .36651913, 00 .60540821, 00 .35836793, 00 .93358039, 00 .38386402, 00 .36651913, 00 .36651923, 00 .36651913, 00
22 .38397242, 00 .61965506, 00 .37460655, 00 .92718383, 00 .40402618, 00 .38397240, 00 .38397247, 00 .38397240, 00
23 .40142571, 00 .63358163, 00 .39073110, 00 .92050483, 00 .42447479, 00 .40142571, 00 .40142576, 00 .40142571, 00
24 .41887900, 00 .64720860, 00 .40673660, 00 .91354544, 00 .44522864, 00 .41887899, 00 .41887906, 00 .41887898, 00
25 .43633230, 00 .66055452, 00 .42261823, 00 .90630778, 00 .46630762, 00 .43633230, 00 .43633231, 00 .43633228, 00
26 .45378559, 00 .67363607, 00 .43837113, 00 .89879404, 00 .48773257, 00 .45378560, 00 .45378561, 00 .45378559, 00
27 .47123888, 00 .68646839, 00 .45399047, 00 .89100652, 00 .50952541, 00 .47123887, 00 .47123890, 00 .47123887, 00
28 .48869217, 00 .69906519, 00 .46947154, 00 .88294760, 00 .53170940, 00 .48869217, 00 .48869217, 00 .48869217, 00
29 .50614546, 00 .71143900, 00 .48480959, 00 .87461972, 00 .55430900, 00 .50614546, 00 .50614544, 00 .50614544, 00
30 .52359876, 00 .72360123, 00 .49999998, 00 .86602543, 00 .57735022, 00 .52359876, 00 .52359870, 00 .52359874, 00
31 .54105205, 00 .73556238, 00 .51503804, 00 .85716726, 00 .60086060, 00 .54105203, 00 .54105213, 00 .54105205, 00
32 .55850534, 00 .74733214, 00 .52991924, 00 .84804806, 00 .62486934, 00 .55850533, 00 .55850541, 00 .55850535, 00
33 .57595863, 00 .75891938, 00 .54463900, 00 .83867053, 00 .64940758, 00 .57595862, 00 .57595871, 00 .57595864, 00
34 .59341192, 00 .77033234, 00 .55919288, 00 .82903755, 00 .67450850, 00 .59341193, 00 .59341197, 00 .59341193, 00
35 .61086522, 00 .78157866, 00 .57357642, 00 .81915203, 00 .70020753, 00 .61086522, 00 .61086524, 00 .61086523, 00
36 .62831851, 00 .79266543, 00 .58778523, 00 .80901699, 00 .72654250, 00 .62831851, 00 .62831851, 00 .62831851, 00
37 .64577180, 00 .80359928, 00 .60181501, 00 .79863552, 00 .75355402, 00 .64577182, 00 .64577178, 00 .64577180, 00
38 .66322509, 00 .81438633, 00 .61566145, 00 .78801077, 00 .78128557, 00 .66322510, 00 .66322506, 00 .66322508, 00
39 .68067838, 00 .82503234, 00 .62932038, 00 .77714599, 00 .80978398, 00 .68067839, 00 .68067835, 00 .68067837, 00
40 .69813168, 00 .83554274, 00 .64278758, 00 .76604448, 00 .83909955, 00 .69813167, 00 .69813163, 00 .69813165, 00
41 .71558497, 00 .84592255, 00 .65605901, 00 .75470953, 00 .86928677, 00 .71558498, 00 .71558504, 00 .71558501, 00
42 .73303826, 00 .85617652, 00 .66913057, 00 .74314479, 00 .90040403, 00 .73303825, 00 .73303831, 00 .73303828, 00
43 .75049155, 00 .86630914, 00 .68199834, 00 .73135368, 00 .93251508, 00 .75049156, 00 .75049158, 00 .75049157, 00
44 .76794484, 00 .87632459, 00 .69465834, 00 .71933979, 00 .96568874, 00 .76794485, 00 .76794487, 00 .76794485, 00
45 .78539814, 00 .88622689, 00 .70710676, 00 .70710678, 00 .99999997, 00 .78539814, 00 .78539816, 00 .78539815, 00
46 .80285143, 00 .89601975, 00 .71933979, 00 .69465838, 00 .10355302, 01 .80285143, 00 .80285138, 00 .80285138, 00
47 .82030472, 00 .90570672, 00 .73135368, 00 .68199838, 00 .10723686, 01 .82030467, 00 .82030468, 00 .82030468, 00
48 .83775801, 00 .91529119, 00 .74314481, 00 .66913053, 00 .11106126, 01 .83775802, 00 .83775811, 00 .83775806, 00
49 .85521130, 00 .92477633, 00 .75470955, 00 .65605896, 00 .11503684, 01 .85521127, 00 .85521140, 00 .85521131, 00
50 .87266460, 00 .93416516, 00 .76604442, 00 .64278756, 00 .11917536, 01 .87266457, 00 .87266465, 00 .87266461, 00
51 .89011789, 00 .94346057, 00 .77714593, 00 .62932047, 00 .12348969, 01 .89011783, 00 .89011776, 00 .89011780, 00
52 .90757118, 00 .95266528, 00 .78801074, 00 .61566145, 00 .12799416, 01 .90757118, 00 .90757122, 00 .90757118, 00
53 .92502447, 00 .96178189, 00 .79863548, 00 .60181501, 00 .13270448, 01 .92502444, 00 .92502448, 00 .92502448, 00
54 .94247776, 00 .97081291, 00 .80901697, 00 .58778525, 00 .13763818, 01 .94247774, 00 .94247777, 00 .94247774, 00
55 .95993106, 00 .97976068, 00 .81915203, 00 .57357645, 00 .14281479, 01 .95993103, 00 .95993103, 00 .95993103, 00
56 .97738435, 00 .98862749, 00 .82903755, 00 .55919293, 00 .14825608, 01 .97738434, 00 .97738431, 00 .97738431, 00
57 .99483764, 00 .99741547, 00 .83867053, 00 .54463908, 00 .15398647, 01 .99483757, 00 .99483758, 00 .99483758, 00
58 .10122909, 01 .10061267, 01 .84804806, 00 .52991919, 00 .16003346, 01 .10122909, 01 .10122910, 01 .10122910, 01
59 .10297442, 01 .10147631, 01 .85716728, 00 .51503801, 00 .16642796, 01 .10297442, 01 .10297443, 01 .10297443, 01
60 .10471975, 01 .10233267, 01 .86602538, 00 .49999995, 00 .17320509, 01 .10471975, 01 .10471976, 01 .10471975, 01
61 .10646508, 01 .10318191, 01 .87461968, 00 .48480959, 00 .18040478, 01 .10646508, 01 .10646508, 01 .10646508, 01
62 .10821041, 01 .10402423, 01 .88294757, 00 .46947154, 00 .18807265, 01 .10821041, 01 .10821041, 01 .10821041, 01
63 .10995573, 01 .10485977, 01 .89100646, 00 .45399050, 00 .19626103, 01 .10995573, 01 .10995574, 01 .10995574, 01
64 .11170106, 01 .10568872, 01 .89879400, 00 .43837116, 00 .20503036, 01 .11170106, 01 .11170107, 01 .11170106, 01
65 .11344639, 01 .10651121, 01 .90630774, 00 .42261829, 00 .21445066, 01 .11344639, 01 .11344639, 01 .11344639, 01
66 .11519172, 01 .10732740, 01 .91354541, 00 .40673669, 00 .22460363, 01 .11519172, 01 .11519172, 01 .11519172, 01
67 .11693705, 01 .10813743, 01 .92050482, 00 .39073119, 00 .23558519, 01 .11693705, 01 .11693705, 01 .11693705, 01
68 .11868238, 01 .10894144, 01 .92718383, 00 .37460653, 00 .24750872, 01 .11868238, 01 .11868239, 01 .11868239, 01
69 .12042771, 01 .10973956, 01 .93358040, 00 .35836790, 00 .26050893, 01 .12042771, 01 .12042772, 01 .12042772, 01
70 .12217304, 01 .11053191, 01 .93969260, 00 .34202011, 00 .27474776, 01 .12217304, 01 .12217305, 01 .12217305, 01
71 .12391837, 01 .11131862, 01 .94551856, 00 .32556813, 00 .29042110, 01 .12391837, 01 .12391838, 01 .12391838, 01
72 .12566370, 01 .11209982, 01 .95105651, 00 .30901699, 00 .30776835, 01 .12566370, 01 .12566370, 01 .12566370, 01
73 .12740903, 01 .11287561, 01 .95630475, 00 .29237172, 00 .32708524, 01 .12740903, 01 .12740903, 01 .12740903, 01
74 .12915436, 01 .11364610, 01 .96126170, 00 .27563724, 00 .34874159, 01 .12915436, 01 .12915437, 01 .12915437, 01
75 .13089969, 01 .11441140, 01 .96592582, 00 .25881894, 00 .37320522, 01 .13089969, 01 .13089970, 01 .13089970, 01
76 .13264501, 01 .11517161, 01 .97029571, 00 .24192196, 00 .40107797, 01 .13264501, 01 .13264501, 01 .13264501, 01
77 .13439034, 01 .11592684, 01 .97437005, 00 .22495114, 00 .43314741, 01 .13439034, 01 .13439034, 01 .13439034, 01
78 .13613567, 01 .11667719, 01 .97814758, 00 .20791164, 00 .47046311, 01 .13613567, 01 .13613568, 01 .13613568, 01
79 .13788100, 01 .11742274, 01 .98162717, 00 .19080896, 00 .51445548, 01 .13788100, 01 .13788101, 01 .13788101, 01
80 .13962633, 01 .11816358, 01 .98480774, 00 .17364816, 00 .56712823, 01 .13962633, 01 .13962634, 01 .13962634, 01
81 .14137166, 01 .11889981, 01 .98768833, 00 .15643446, 00 .63137516, 01 .14137166, 01 .14137167, 01 .14137167, 01
82 .14311699, 01 .11963151, 01 .99026807, 00 .13917312, 00 .71153687, 01 .14311700, 01 .14311699, 01 .14311699, 01
83 .14486232, 01 .12035876, 01 .99254616, 00 .12186938, 00 .81443440, 01 .14486233, 01 .14486232, 01 .14486232, 01
84 .14660765, 01 .12108164, 01 .99452189, 00 .10452851, 00 .95143601, 01 .14660765, 01 .14660765, 01 .14660765, 01
85 .14835298, 01 .12180023, 01 .99619469, 00 .87155655,-01 .11430063, 02 .14835297, 01 .14835299, 01 .14835299, 01
86 .15009831, 01 .12251461, 01 .99756404, 00 .69756404,-01 .14300680, 02 .15009830, 01 .15009832, 01 .15009832, 01
87 .15184364, 01 .12322485, 01 .99862954, 00 .52335903,-01 .19081156, 02 .15184365, 01 .15184365, 01 .15184365, 01
88 .15358896, 01 .12393101, 01 .99939083, 00 .34899618,-01 .28636153, 02 .15358898, 01 .15358896, 01 .15358896, 01
89 .15533429, 01 .12463318, 01 .99984770, 00 .17452389,-01 .57290019, 02 .15533432, 01 .15533430, 01 .15533430, 01
Reference in New Issue View Git Blame Copy Permalink