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
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>test.octave</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (Octave) - Theme (Breeze Light)"/>
</head><body style="background-color:#ffffff;color:#1f1c1b"><pre>
<span style="color:#898887"># This is test comment</span>
<span style="color:#898887">% this is another comment</span>
a <span style="color:#ca60ca">=</span> <span style="color:#b08000">3</span><span style="color:#ca60ca">;</span> b <span style="color:#ca60ca">=</span> <span style="color:#b08000">34</span><span style="color:#ca60ca">;</span>
<span style="font-weight:bold">function</span> retval <span style="color:#ca60ca">=</span> avg (v)
retval <span style="color:#ca60ca">=</span> <span style="color:#b08000">0</span><span style="color:#ca60ca">;</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">isvector</span> (v))
retval <span style="color:#ca60ca">=</span> <span style="color:#644a9b">sum</span> (v) <span style="color:#ca60ca">/</span> <span style="color:#644a9b">length</span> (v)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">else</span>
<span style="color:#644a9b">error</span> (<span style="color:#bf0303">"avg: expecting vector argument"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">endfunction</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">rem</span> (x<span style="color:#ca60ca">,</span> <span style="color:#b08000">2</span>) <span style="color:#ca60ca">==</span> <span style="color:#b08000">0</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"x is even\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">else</span>
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"x is odd\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">rem</span> (x<span style="color:#ca60ca">,</span> <span style="color:#b08000">2</span>) <span style="color:#ca60ca">==</span> <span style="color:#b08000">0</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"x is even\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">elseif</span> (<span style="color:#644a9b">rem</span> (x<span style="color:#ca60ca">,</span> <span style="color:#b08000">3</span>) <span style="color:#ca60ca">==</span> <span style="color:#b08000">0</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"x is odd and divisible by 3\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">else</span>
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"x is odd\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">end</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">rem</span>(x<span style="color:#ca60ca">,</span><span style="color:#b08000">2</span>) <span style="color:#ca60ca">==</span> <span style="color:#b08000">0</span>) x <span style="color:#ca60ca">=</span> <span style="color:#b08000">5</span><span style="color:#ca60ca">;</span> <span style="font-weight:bold">elseif</span> (<span style="color:#644a9b">rem</span> (x<span style="color:#ca60ca">,</span><span style="color:#b08000">3</span>) <span style="color:#ca60ca">==</span> <span style="color:#b08000">0</span>) x <span style="color:#ca60ca">=</span> <span style="color:#b08000">3</span><span style="color:#ca60ca">;</span> <span style="font-weight:bold">else</span> x <span style="color:#ca60ca">=</span> <span style="color:#b08000">0</span><span style="color:#ca60ca">;</span> <span style="font-weight:bold">end</span>
<span style="color:#644a9b;font-weight:bold">cd</span> ..
<span style="font-weight:bold">while</span> (<span style="color:#644a9b">i</span> <span style="color:#ca60ca"><=</span> <span style="color:#b08000">10</span>)
fib (<span style="color:#644a9b">i</span>) <span style="color:#ca60ca">=</span> fib (<span style="color:#644a9b">i</span><span style="color:#ca60ca">-</span><span style="color:#b08000">1</span>) <span style="color:#ca60ca">+</span> fib (<span style="color:#644a9b">i</span><span style="color:#ca60ca">-</span><span style="color:#b08000">2</span>)<span style="color:#ca60ca">;</span>
<span style="color:#644a9b">i</span><span style="color:#ca60ca">++;</span>
<span style="font-weight:bold">endwhile</span>
<span style="font-weight:bold">classdef</span> polynomial2
<span style="font-weight:bold">properties</span>
<span style="color:#644a9b">poly</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">0</span><span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endproperties</span>
<span style="font-weight:bold">methods</span>
<span style="font-weight:bold">function</span> p <span style="color:#ca60ca">=</span> polynomial2 (a)
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">nargin</span> <span style="color:#ca60ca">></span> <span style="color:#b08000">1</span>)
<span style="color:#644a9b">print_usage</span> ()<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">nargin</span> <span style="color:#ca60ca">==</span> <span style="color:#b08000">1</span>)
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">isa</span> (a<span style="color:#ca60ca">,</span> <span style="color:#bf0303">"polynomial2"</span>))
p.poly <span style="color:#ca60ca">=</span> a.poly<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">elseif</span> (<span style="color:#644a9b">isreal</span> (a) <span style="color:#ca60ca">&&</span> <span style="color:#644a9b">isvector</span> (a))
p.poly <span style="color:#ca60ca">=</span> a(<span style="color:#ca60ca">:</span>)<span style="color:#ca60ca">.';</span> <span style="color:#898887"># force row vector</span>
<span style="font-weight:bold">else</span>
<span style="color:#644a9b">error</span> (<span style="color:#bf0303">"polynomial2: A must be a real vector"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">endfunction</span>
<span style="font-weight:bold">function</span> <span style="color:#644a9b">disp</span> (p)
a <span style="color:#ca60ca">=</span> p.poly<span style="color:#ca60ca">;</span>
first <span style="color:#ca60ca">=</span> <span style="color:#644a9b">true</span><span style="color:#ca60ca">;</span>
<span style="font-weight:bold">for</span> <span style="color:#644a9b">i</span> <span style="color:#ca60ca">=</span> <span style="color:#b08000">1</span> <span style="color:#ca60ca">:</span> <span style="color:#644a9b">length</span> (a)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">if</span> (a(<span style="color:#644a9b">i</span>) <span style="color:#ca60ca">!=</span> <span style="color:#b08000">0</span>)
<span style="font-weight:bold">if</span> (first)
first <span style="color:#ca60ca">=</span> <span style="color:#644a9b">false</span><span style="color:#ca60ca">;</span>
<span style="font-weight:bold">elseif</span> (a(<span style="color:#644a9b">i</span>) <span style="color:#ca60ca">></span> <span style="color:#b08000">0</span> <span style="color:#ca60ca">||</span> <span style="color:#644a9b">isnan</span> (a(<span style="color:#644a9b">i</span>)))
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" +"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (a(<span style="color:#644a9b">i</span>) <span style="color:#ca60ca"><</span> <span style="color:#b08000">0</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" -"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">i</span> <span style="color:#ca60ca">==</span> <span style="color:#b08000">1</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" %.5g"</span><span style="color:#ca60ca">,</span> <span style="color:#644a9b">abs</span> (a(<span style="color:#644a9b">i</span>)))<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">elseif</span> (<span style="color:#644a9b">abs</span> (a(<span style="color:#644a9b">i</span>)) <span style="color:#ca60ca">!=</span> <span style="color:#b08000">1</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" %.5g *"</span><span style="color:#ca60ca">,</span> <span style="color:#644a9b">abs</span> (a(<span style="color:#644a9b">i</span>)))<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">i</span> <span style="color:#ca60ca">></span> <span style="color:#b08000">1</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" X"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">if</span> (<span style="color:#644a9b">i</span> <span style="color:#ca60ca">></span> <span style="color:#b08000">2</span>)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" ^ %d"</span><span style="color:#ca60ca">,</span> <span style="color:#644a9b">i</span> <span style="color:#ca60ca">-</span> <span style="color:#b08000">1</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">endif</span>
<span style="font-weight:bold">endfor</span>
<span style="font-weight:bold">if</span> (first)
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">" 0"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endif</span>
<span style="color:#644a9b">printf</span> (<span style="color:#bf0303">"\n"</span>)<span style="color:#ca60ca">;</span>
<span style="font-weight:bold">endfunction</span>
<span style="font-weight:bold">endmethods</span>
<span style="font-weight:bold">endclassdef</span>
</pre></body></html>
|
