-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCOMPLEX.html
110 lines (110 loc) · 4.9 KB
/
COMPLEX.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
<!DOCTYPE html>
<html><head>
<meta http-equiv="content-type"
content="text/html; charset=UTF-8">
<meta name="description"
content="sweave generated">
</head><body><font face="Sorts Mill Goudy">
<p align="justify"><font face="Sorts Mill Goudy">
<h1>COMPLEX - Complex numbers</h1>
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
Basic arithmetic on complex numbers. Not complete yet.
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
<h2>Uses</h2>
</font></p>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«INCLUDES»≡</b>
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«COMPLEX»≡</b>
-PUBLIC COMPLEX(), R(), I()
<font color="#818181"><i>*</i></font>
DATA('COMPLEX(R,I)')
<font color="#818181"><i>*</i></font>
-PUBLIC ADD_COMPLEX(), MUL_COMPLEX(), NEG_COMPLEX(), INV_COMPLEX()
-PUBLIC PRINT_COMPLEX()
<font color="#818181"><i>*</i></font>
DEFINE('ADD_COMPLEX(X,Y)')
DEFINE('MUL_COMPLEX(X,Y)A,B,C,D')
DEFINE('NEG_COMPLEX(X)')
DEFINE('INV_COMPLEX(X)D')
DEFINE('PRINT_COMPLEX(X)SIGN') <b>:(COMPLEX_END)</b>
<font color="#818181"><i>*</i></font>
ADD_COMPLEX
ADD_COMPLEX = COMPLEX(R(X) + R(Y), I(X) + I(Y)) <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
MUL_COMPLEX
A = R(X); B = I(X); C = R(Y); D = I(Y)
MUL_COMPLEX = COMPLEX(A * C - B * D, B * C + A * D) <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
NEG_COMPLEX
NEG_COMPLEX = COMPLEX(-R(X), -I(X)) <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
INV_COMPLEX
D = (R(X) * R(X)) + (I(X) * I(X))
INV_COMPLEX = COMPLEX(1.0 * R(X) / D, 1.0 * -I(X) / D)
+ <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
PRINT_COMPLEX
SIGN = GE(I(X)) '+'
PRINT_COMPLEX = R(X) SIGN I(X) 'i' <b>:(RETURN)</b>
<font color="#818181"><i>*</i></font>
COMPLEX_END
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«unit_test»≡</b>
<font color="#818181"><i>#!/usr/bin/bash</i></font>
exec "snobol4" "-b" "$0" "$@"
-INCLUDE 'COMPLEX.INC'
&CODE = 1
&CODE = 0
END
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«»≡</b>
-MODULE COMPLEX
<b>«INCLUDES»</b>
-IN72
-STITL COMPLEX
-EJECT
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* ##### ####### # # ###### # ####### # # *</i></font>
<font color="#818181"><i>* # # # # ## ## # # # # # # *</i></font>
<font color="#818181"><i>* # # # # # # # # # # # # # *</i></font>
<font color="#818181"><i>* # # # # # # ###### # ##### # *</i></font>
<font color="#818181"><i>* # # # # # # # # # # *</i></font>
<font color="#818181"><i>* # # # # # # # # # # # *</i></font>
<font color="#818181"><i>* ##### ####### # # # ####### ####### # # *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* COMPLEX COMPLEX NUMBERS *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* COMPLEX.lss</i></font>
<font color="#818181"><i>*</i></font>
<b>«COMPLEX»</b>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* CE: .MSNOBOL4;</i></font>
<b>@</b>
</font></pre></div>
<footer><hr><table width="100%" border="0">
<tr><td><p align=left>
Produced by <code>sweave</code>
</p></td><td><p align=center>
Sun Aug 31 15:20:05 EDT 2014</p></td><td><p align=right>
Return to <a href="index.html">index</a>
</p></td></table></footer>
</font></body></html>