Chebyshev coefficients: Difference between revisions
Chebyshev coefficients en Yabasic
(Chebyshev coefficients en QBasic) |
(Chebyshev coefficients en Yabasic) |
||
Line 166:
8 : 6.596299062522348e-010
9 : -1.002201654998203e-011</pre>
==={{header|Yabasic}}===
{{trans|FreeBASIC}}
<lang yabasic>a = 0: b = 1: n = 10
dim cheby(n)
dim coef(n)
for i = 0 to n-1
coef(i) = cos(cos(pi/n*(i+1/2))*(b-a)/2+(b+a)/2)
next i
for i = 0 to n-1
w = 0
for j = 0 to n-1
w = w + coef(j) * cos(pi/n*i*(j+1/2))
next j
cheby(i) = w*2/n
print i, " : ", cheby(i)
next i
end</lang>
{{out}}
<pre>0 : 1.64717
1 : -0.232299
2 : -0.0537151
3 : 0.00245824
4 : 0.000282119
5 : -7.72223e-06
6 : -5.89856e-07
7 : 1.15214e-08
8 : 6.5963e-10
9 : -1.0022e-11</pre>
| |||