summaryrefslogtreecommitdiffstats
path: root/scilab/modules/special_functions
diff options
context:
space:
mode:
authorSylvestre Ledru <sylvestre.ledru@scilab.org>2010-02-12 11:10:06 +0100
committerSylvestre Ledru <sylvestre.ledru@scilab.org>2010-02-12 11:10:06 +0100
commit10963c0a56109ddafb6f2f4a8dbdc925b00ac69c (patch)
tree9f8eefbac0a88917328855a3cf4c046f4e7ca719 /scilab/modules/special_functions
parentbc7b15143690a57f6ee6d6ec9401227e77b18db4 (diff)
parentc8b337d77b6d3f040afc6a76b9c607a838ae62dd (diff)
downloadscilab-10963c0a56109ddafb6f2f4a8dbdc925b00ac69c.zip
scilab-10963c0a56109ddafb6f2f4a8dbdc925b00ac69c.tar.gz
Merge remote branch 'origin/master' into textrendering
Conflicts: scilab/CHANGES_5.3.X scilab/configure scilab/configure.ac
Diffstat (limited to 'scilab/modules/special_functions')
-rw-r--r--scilab/modules/special_functions/Makefile.in1
-rw-r--r--scilab/modules/special_functions/help/en_US/bessel.xml3
-rw-r--r--scilab/modules/special_functions/help/pt_BR/bessel.xml12
-rw-r--r--scilab/modules/special_functions/help/pt_BR/beta.xml4
-rw-r--r--scilab/modules/special_functions/help/pt_BR/gamma.xml2
-rw-r--r--scilab/modules/special_functions/help/pt_BR/legendre.xml6
-rw-r--r--scilab/modules/special_functions/help/pt_BR/oldbessel.xml10
7 files changed, 20 insertions, 18 deletions
diff --git a/scilab/modules/special_functions/Makefile.in b/scilab/modules/special_functions/Makefile.in
index 88149ae..96a58c0 100644
--- a/scilab/modules/special_functions/Makefile.in
+++ b/scilab/modules/special_functions/Makefile.in
@@ -261,6 +261,7 @@ LD = @LD@
261LDFLAGS = @LDFLAGS@ 261LDFLAGS = @LDFLAGS@
262LIBICONV = @LIBICONV@ 262LIBICONV = @LIBICONV@
263LIBINTL = @LIBINTL@ 263LIBINTL = @LIBINTL@
264LIBM = @LIBM@
264LIBOBJS = @LIBOBJS@ 265LIBOBJS = @LIBOBJS@
265LIBS = @LIBS@ 266LIBS = @LIBS@
266LIBTOOL = @LIBTOOL@ 267LIBTOOL = @LIBTOOL@
diff --git a/scilab/modules/special_functions/help/en_US/bessel.xml b/scilab/modules/special_functions/help/en_US/bessel.xml
index ed21558..f69f765 100644
--- a/scilab/modules/special_functions/help/en_US/bessel.xml
+++ b/scilab/modules/special_functions/help/en_US/bessel.xml
@@ -296,7 +296,8 @@ y = besselh(alpha,K,x [,ice])</synopsis>
296 <refsection> 296 <refsection>
297 <title>Used Functions</title> 297 <title>Used Functions</title>
298 298
299 <para>The source codes can be found in routines/calelm</para> 299 <para>The source codes can be found in SCI/modules/special_functions/src/fortran/slatec and
300 SCI/modules/special_functions/src/fortran</para>
300 301
301 <para>Slatec : dbesi.f, zbesi.f, dbesj.f, zbesj.f, dbesk.f, zbesk.f, 302 <para>Slatec : dbesi.f, zbesi.f, dbesj.f, zbesj.f, dbesk.f, zbesk.f,
302 dbesy.f, zbesy.f, zbesh.f</para> 303 dbesy.f, zbesy.f, zbesh.f</para>
diff --git a/scilab/modules/special_functions/help/pt_BR/bessel.xml b/scilab/modules/special_functions/help/pt_BR/bessel.xml
index 843d6d0..8b17a3c 100644
--- a/scilab/modules/special_functions/help/pt_BR/bessel.xml
+++ b/scilab/modules/special_functions/help/pt_BR/bessel.xml
@@ -200,7 +200,7 @@ H^1_alfa(z) = J_alfa(z) + i Y_alfa(z) H^2_alfa(z) = J_alfa(z) - i Y_alfa(z)
200// Funções I de Bessel 200// Funções I de Bessel
201// ================== 201// ==================
202x = linspace(0.01,10,5000)'; 202x = linspace(0.01,10,5000)';
203xbasc() 203clf()
204subplot(2,1,1) 204subplot(2,1,1)
205plot2d(x,besseli(0:4,x), style=2:6) 205plot2d(x,besseli(0:4,x), style=2:6)
206legend('I'+string(0:4),2); 206legend('I'+string(0:4),2);
@@ -213,7 +213,7 @@ xtitle("Algumas funções modificadas de Bessel do primeiro tipo escaladas")
213// Funções J de Bessel 213// Funções J de Bessel
214// ================= 214// =================
215x = linspace(0,40,5000)'; 215x = linspace(0,40,5000)';
216xbasc() 216clf()
217plot2d(x,besselj(0:4,x), style=2:6, leg="J0@J1@J2@J3@J4") 217plot2d(x,besselj(0:4,x), style=2:6, leg="J0@J1@J2@J3@J4")
218legend('I'+string(0:4),1); 218legend('I'+string(0:4),1);
219xtitle("Algumas funções de Bessel do primeiro tipo") 219xtitle("Algumas funções de Bessel do primeiro tipo")
@@ -225,7 +225,7 @@ y1 = besselj(0.5, x);
225y2 = sqrt(2 ./(%pi*x)).*sin(x); 225y2 = sqrt(2 ./(%pi*x)).*sin(x);
226er = abs((y1-y2)./y2); 226er = abs((y1-y2)./y2);
227ind = find(er > 0 & y2 ~= 0); 227ind = find(er > 0 & y2 ~= 0);
228xbasc() 228clf()
229subplot(2,1,1) 229subplot(2,1,1)
230plot2d(x,y1,style=2) 230plot2d(x,y1,style=2)
231xtitle("besselj(0.5,x)") 231xtitle("besselj(0.5,x)")
@@ -236,7 +236,7 @@ xtitle("Erro relativo entre as duas fórmulas para besselj(0.5,x)")
236// Funções K de Bessel 236// Funções K de Bessel
237// ================= 237// =================
238x = linspace(0.01,10,5000)'; 238x = linspace(0.01,10,5000)';
239xbasc() 239clf()
240subplot(2,1,1) 240subplot(2,1,1)
241plot2d(x,besselk(0:4,x), style=0:4, rect=[0,0,6,10]) 241plot2d(x,besselk(0:4,x), style=0:4, rect=[0,0,6,10])
242legend('K'+string(0:4),1); 242legend('K'+string(0:4),1);
@@ -249,7 +249,7 @@ xtitle("Algumas funções modificadas de Bessel do segundo tipo escaladas")
249// Funções Y de Bessel 249// Funções Y de Bessel
250// ================= 250// =================
251x = linspace(0.1,40,5000)'; // funções Y de Bessel não possuem limite para x -> 0+ 251x = linspace(0.1,40,5000)'; // funções Y de Bessel não possuem limite para x -> 0+
252xbasc() 252clf()
253plot2d(x,bessely(0:4,x), style=0:4, rect=[0,-1.5,40,0.6]) 253plot2d(x,bessely(0:4,x), style=0:4, rect=[0,-1.5,40,0.6])
254legend('Y'+string(0:4),4); 254legend('Y'+string(0:4),4);
255xtitle("Algumas funções de Bessel do segundo tipo") 255xtitle("Algumas funções de Bessel do segundo tipo")
@@ -283,7 +283,7 @@ xtitle("Curvas de nível de |H1(0,z)|")
283 <refsection> 283 <refsection>
284 <title>Função Usada</title> 284 <title>Função Usada</title>
285 285
286 <para>Os códigos-fontes podem ser achados em routines/calelm</para> 286 <para>Os códigos-fontes podem ser achados em SCI/modules/special_functions/src/fortran/slatec e SCI/modules/special_functions/src/fortran</para>
287 287
288 <para>Slatec : dbesi.f, zbesi.f, dbesj.f, zbesj.f, dbesk.f, zbesk.f, 288 <para>Slatec : dbesi.f, zbesi.f, dbesj.f, zbesj.f, dbesk.f, zbesk.f,
289 dbesy.f, zbesy.f, zbesh.f</para> 289 dbesy.f, zbesy.f, zbesh.f</para>
diff --git a/scilab/modules/special_functions/help/pt_BR/beta.xml b/scilab/modules/special_functions/help/pt_BR/beta.xml
index ef5ae73..e5ed51e 100644
--- a/scilab/modules/special_functions/help/pt_BR/beta.xml
+++ b/scilab/modules/special_functions/help/pt_BR/beta.xml
@@ -95,7 +95,7 @@ e = beta(ones(x),x) - (1)./x;
95er = abs(e) .* x; 95er = abs(e) .* x;
96ind = find(er ~= 0); 96ind = find(er ~= 0);
97eps = ones(x(ind))*number_properties("eps"); 97eps = ones(x(ind))*number_properties("eps");
98xbasc() 98clf()
99plot2d(x(ind),[er(ind) eps 2*eps],style=[1 2 3],logflag="ll",leg="er@eps_m@2 eps_m") 99plot2d(x(ind),[er(ind) eps 2*eps],style=[1 2 3],logflag="ll",leg="er@eps_m@2 eps_m")
100xtitle("erro relativo aproximado na computação de beta(1,x)") 100xtitle("erro relativo aproximado na computação de beta(1,x)")
101xselect() 101xselect()
@@ -104,7 +104,7 @@ xselect()
104t = linspace(0.2,10,60); 104t = linspace(0.2,10,60);
105X = t'*ones(t); Y = ones(t')*t; 105X = t'*ones(t); Y = ones(t')*t;
106Z = beta(X,Y); 106Z = beta(X,Y);
107xbasc() 107clf()
108plot3d(t, t, Z, flag=[2 4 4], leg="x@y@z", alpha=75, theta=30) 108plot3d(t, t, Z, flag=[2 4 4], leg="x@y@z", alpha=75, theta=30)
109xtitle("A função beta em [0.2,10]x[0.2,10]") 109xtitle("A função beta em [0.2,10]x[0.2,10]")
110xselect() 110xselect()
diff --git a/scilab/modules/special_functions/help/pt_BR/gamma.xml b/scilab/modules/special_functions/help/pt_BR/gamma.xml
index b368e1f..d810014 100644
--- a/scilab/modules/special_functions/help/pt_BR/gamma.xml
+++ b/scilab/modules/special_functions/help/pt_BR/gamma.xml
@@ -85,7 +85,7 @@ gamma(6)-prod(1:5)
85a = -3; b = 5; 85a = -3; b = 5;
86x = linspace(a,b,40000)'; 86x = linspace(a,b,40000)';
87y = gamma(x); 87y = gamma(x);
88xbasc() 88clf()
89c=xget("color") 89c=xget("color")
90xset("color",2) 90xset("color",2)
91plot2d(x, y, style=0, axesflag=5, rect=[a, -10, b, 10]) 91plot2d(x, y, style=0, axesflag=5, rect=[a, -10, b, 10])
diff --git a/scilab/modules/special_functions/help/pt_BR/legendre.xml b/scilab/modules/special_functions/help/pt_BR/legendre.xml
index 9b011c9..d84928a 100644
--- a/scilab/modules/special_functions/help/pt_BR/legendre.xml
+++ b/scilab/modules/special_functions/help/pt_BR/legendre.xml
@@ -149,7 +149,7 @@ y(1,j) = P(n,m;x(j)) se ambos n e m são escalares
149l = nearfloat("pred",1); 149l = nearfloat("pred",1);
150x = linspace(-l,l,200)'; 150x = linspace(-l,l,200)';
151y = legendre(0:5, 0, x); 151y = legendre(0:5, 0, x);
152xbasc() 152clf()
153plot2d(x,y', leg="p0@p1@p2@p3@p4@p5@p6") 153plot2d(x,y', leg="p0@p1@p2@p3@p4@p5@p6")
154xtitle("Os 6 primeiros polinômios de Legendre") 154xtitle("Os 6 primeiros polinômios de Legendre")
155 155
@@ -157,7 +157,7 @@ xtitle("Os 6 primeiros polinômios de Legendre")
157l = nearfloat("pred",1); 157l = nearfloat("pred",1);
158x = linspace(-l,l,200)'; 158x = linspace(-l,l,200)';
159y = legendre(5, 0:5, x, "norm"); 159y = legendre(5, 0:5, x, "norm");
160xbasc() 160clf()
161plot2d(x,y', leg="p5,0@p5,1@p5,2@p5,3@p5,4@p5,5") 161plot2d(x,y', leg="p5,0@p5,1@p5,2@p5,3@p5,4@p5,5")
162xtitle("As funções associadas de Legendre (normalizadas) de grau 5") 162xtitle("As funções associadas de Legendre (normalizadas) de grau 5")
163 163
@@ -192,7 +192,7 @@ f = Y(l,m,theta,phi);
192[x2,y2,z2] = sph2cart(theta,phi,abs(real(f))); [xf2,yf2,zf2] = nf3d(x2,y2,z2); 192[x2,y2,z2] = sph2cart(theta,phi,abs(real(f))); [xf2,yf2,zf2] = nf3d(x2,y2,z2);
193[x3,y3,z3] = sph2cart(theta,phi,abs(imag(f))); [xf3,yf3,zf3] = nf3d(x3,y3,z3); 193[x3,y3,z3] = sph2cart(theta,phi,abs(imag(f))); [xf3,yf3,zf3] = nf3d(x3,y3,z3);
194 194
195xbasc() 195clf()
196subplot(1,3,1) 196subplot(1,3,1)
197plot3d(xf1,yf1,zf1,flag=[2 4 4]); xtitle("|Y31(theta,phi)|") 197plot3d(xf1,yf1,zf1,flag=[2 4 4]); xtitle("|Y31(theta,phi)|")
198subplot(1,3,2) 198subplot(1,3,2)
diff --git a/scilab/modules/special_functions/help/pt_BR/oldbessel.xml b/scilab/modules/special_functions/help/pt_BR/oldbessel.xml
index 1de8ce4..2167127 100644
--- a/scilab/modules/special_functions/help/pt_BR/oldbessel.xml
+++ b/scilab/modules/special_functions/help/pt_BR/oldbessel.xml
@@ -153,7 +153,7 @@ y = oldbessely(alpha,x)</synopsis>
153x = linspace(0.01,10,5000)'; 153x = linspace(0.01,10,5000)';
154y = oldbesseli(0:4,x); 154y = oldbesseli(0:4,x);
155ys = oldbesseli(0:4,x,2); 155ys = oldbesseli(0:4,x,2);
156xbasc() 156clf()
157subplot(2,1,1) 157subplot(2,1,1)
158plot2d(x,y, style=2:6, leg="I0@I1@I2@I3@I4", rect=[0,0,6,10]) 158plot2d(x,y, style=2:6, leg="I0@I1@I2@I3@I4", rect=[0,0,6,10])
159xtitle("Algumas funções modificadas de Bessel do primeiro tipo") 159xtitle("Algumas funções modificadas de Bessel do primeiro tipo")
@@ -164,7 +164,7 @@ xtitle("Algumas funções modificadas de Bessel do primeiro tipo escaladas")
164// exemplo #2 : exibindo algumas funções J de Bessel 164// exemplo #2 : exibindo algumas funções J de Bessel
165x = linspace(0,40,5000)'; 165x = linspace(0,40,5000)';
166y = besselj(0:4,x); 166y = besselj(0:4,x);
167xbasc() 167clf()
168plot2d(x,y, style=2:6, leg="J0@J1@J2@J3@J4") 168plot2d(x,y, style=2:6, leg="J0@J1@J2@J3@J4")
169xtitle("Algumas funções de Bessel do primeiro tipo") 169xtitle("Algumas funções de Bessel do primeiro tipo")
170 170
@@ -176,7 +176,7 @@ y1 = besselj(0.5, x);
176y2 = sqrt(2 ./(%pi*x)).*sin(x); 176y2 = sqrt(2 ./(%pi*x)).*sin(x);
177er = abs((y1-y2)./y2); 177er = abs((y1-y2)./y2);
178ind = find(er > 0 & y2 ~= 0); 178ind = find(er > 0 & y2 ~= 0);
179xbasc() 179clf()
180subplot(2,1,1) 180subplot(2,1,1)
181plot2d(x,y1,style=2) 181plot2d(x,y1,style=2)
182xtitle("besselj(0.5,x)") 182xtitle("besselj(0.5,x)")
@@ -188,7 +188,7 @@ xtitle("erro relativo entre as duas fórmulas para besselj(0.5,x)")
188x = linspace(0.01,10,5000)'; 188x = linspace(0.01,10,5000)';
189y = besselk(0:4,x); 189y = besselk(0:4,x);
190ys = besselk(0:4,x,1); 190ys = besselk(0:4,x,1);
191xbasc() 191clf()
192subplot(2,1,1) 192subplot(2,1,1)
193plot2d(x,y, style=0:4, leg="K0@K1@K2@K3@K4", rect=[0,0,6,10]) 193plot2d(x,y, style=0:4, leg="K0@K1@K2@K3@K4", rect=[0,0,6,10])
194xtitle("Algumas funções modificadas de Bessel do segundo tipo") 194xtitle("Algumas funções modificadas de Bessel do segundo tipo")
@@ -199,7 +199,7 @@ xtitle("Algumas funções modificadas de Bessel do segundo tipo escaladas")
199// exemplo #5: plot de várias funções Y de Bessel 199// exemplo #5: plot de várias funções Y de Bessel
200x = linspace(0.1,40,5000)'; // funções Y de Bessel não possuem limite para x -> 0+ 200x = linspace(0.1,40,5000)'; // funções Y de Bessel não possuem limite para x -> 0+
201y = bessely(0:4,x); 201y = bessely(0:4,x);
202xbasc() 202clf()
203plot2d(x,y, style=0:4, leg="Y0@Y1@Y2@Y3@Y4", rect=[0,-1.5,40,0.6]) 203plot2d(x,y, style=0:4, leg="Y0@Y1@Y2@Y3@Y4", rect=[0,-1.5,40,0.6])
204xtitle("Algumas funções de Bessel do segundo tipo") 204xtitle("Algumas funções de Bessel do segundo tipo")
205 ]]></programlisting> 205 ]]></programlisting>