remove obsolete function xbasc
Allan CORNET [Mon, 8 Feb 2010 08:35:14 +0000 (09:35 +0100)]
51 files changed:
scilab/modules/cacsd/help/pt_BR/m_circle.xml
scilab/modules/elementary_functions/help/pt_BR/binomial.xml
scilab/modules/elementary_functions/help/pt_BR/dsearch.xml
scilab/modules/elementary_functions/help/pt_BR/ndgrid.xml
scilab/modules/elementary_functions/src/c/sci_tools.c
scilab/modules/graphic_export/help/pt_BR/driver.xml
scilab/modules/graphics/help/en_US/Graphics.xml
scilab/modules/graphics/help/en_US/xbasc.xml [deleted file]
scilab/modules/graphics/help/fr_FR/Graphics.xml
scilab/modules/graphics/help/fr_FR/xbasc.xml [deleted file]
scilab/modules/graphics/help/pt_BR/Graphics.xml
scilab/modules/graphics/help/pt_BR/Sfgrayplot.xml
scilab/modules/graphics/help/pt_BR/colorbar.xml
scilab/modules/graphics/help/pt_BR/contour.xml
scilab/modules/graphics/help/pt_BR/contourf.xml
scilab/modules/graphics/help/pt_BR/fec.xml
scilab/modules/graphics/help/pt_BR/graduate.xml
scilab/modules/graphics/help/pt_BR/grayplot_properties.xml
scilab/modules/graphics/help/pt_BR/histplot.xml
scilab/modules/graphics/help/pt_BR/isoview.xml
scilab/modules/graphics/help/pt_BR/oldplot.xml
scilab/modules/graphics/help/pt_BR/plot2d_old_version.xml
scilab/modules/graphics/help/pt_BR/replot.xml
scilab/modules/graphics/help/pt_BR/square.xml
scilab/modules/graphics/help/pt_BR/xbasc.xml [deleted file]
scilab/modules/graphics/help/pt_BR/xclear.xml
scilab/modules/graphics/help/pt_BR/xgetech.xml
scilab/modules/graphics/help/pt_BR/xset.xml
scilab/modules/graphics/help/pt_BR/xsetech.xml
scilab/modules/graphics/help/pt_BR/xstring.xml
scilab/modules/graphics/macros/xbasc.sci [deleted file]
scilab/modules/interpolation/help/pt_BR/cshep2d.xml
scilab/modules/interpolation/help/pt_BR/eval_cshep2d.xml
scilab/modules/interpolation/help/pt_BR/interp.xml
scilab/modules/interpolation/help/pt_BR/interp2d.xml
scilab/modules/interpolation/help/pt_BR/linear_interpn.xml
scilab/modules/interpolation/help/pt_BR/lsq_splin.xml
scilab/modules/interpolation/help/pt_BR/splin.xml
scilab/modules/interpolation/help/pt_BR/splin2d.xml
scilab/modules/interpolation/help/pt_BR/splin3d.xml
scilab/modules/pvm/src/c/pvm_proc_ctrl.c
scilab/modules/scicos/demos/live.dat
scilab/modules/scicos/macros/scicos_scicos/Nyquist_.sci
scilab/modules/scicos/macros/scicos_scicos/Window_.sci
scilab/modules/scicos/macros/scicos_scicos/do_xsetech.sci
scilab/modules/scicos/macros/scicos_scicos/systshow.sci
scilab/modules/special_functions/help/pt_BR/bessel.xml
scilab/modules/special_functions/help/pt_BR/beta.xml
scilab/modules/special_functions/help/pt_BR/gamma.xml
scilab/modules/special_functions/help/pt_BR/legendre.xml
scilab/modules/special_functions/help/pt_BR/oldbessel.xml

index 3a53422..9bb3182 100644 (file)
@@ -86,7 +86,7 @@ h=syslin('c',(s^2+2*0.9*10*s+100)/(s^2+2*0.3*10.1*s+102.01))
 nyquist(h,0.01,100,'(s^2+2*0.9*10*s+100)/(s^2+2*0.3*10.1*s+102.01)')
 m_circle();
 //Exemplo 2:
-xbasc();
+clf();
 h1=h*syslin('c',(s^2+2*0.1*15.1*s+228.01)/(s^2+2*0.9*15*s+225))
 nyquist([h1;h],0.01,100,['h1';'h'])
 m_circle([-8 -6 -4]);
index 7789b80..bc8f8d0 100644 (file)
 
     <programlisting role="example"><![CDATA[ 
 // primeiro exemplo
-n=10;p=0.3; xbasc(); plot2d3(0:n,binomial(p,n));
+n=10;p=0.3; clf(); plot2d3(0:n,binomial(p,n));
 
 // segundo exemplo 
 n=50;p=0.4;
 mea=n*p; sigma=sqrt(n*p*(1-p));
 x=( (0:n)-mea )/sigma;
-xbasc()
+clf()
 plot2d(x, sigma*binomial(p,n));
 deff('y=Gauss(x)','y=1/sqrt(2*%pi)*exp(-(x.^2)/2)')
 plot2d(x, Gauss(x), style=2);
index dc4000d..354cf24 100644 (file)
@@ -169,14 +169,14 @@ m = 50000 ; n = 10;
 X = grand(m,1,"def");
 val = linspace(0,1,n+1)';
 [ind, occ] = dsearch(X, val);
-xbasc() ; plot2d2(val, [occ/m;0])  // sem normalização: y deve ser próximo de 1/n
+clf() ; plot2d2(val, [occ/m;0])  // sem normalização: y deve ser próximo de 1/n
 
 // exemplo #2 (estatística elementar para B(N,p))
 N = 8 ; p = 0.5; m = 50000;
 X = grand(m,1,"bin",N,p); val = (0:N)';
 [ind, occ] = dsearch(X, val, "d");
 Pexp = occ/m; Pexa = binomial(p,N); 
-xbasc() ; hm = 1.1*max(max(Pexa),max(Pexp));
+clf() ; hm = 1.1*max(max(Pexa),max(Pexp));
 plot2d3([val val+0.1], [Pexa' Pexp],[1 2],"111",  ...
         "Pexact@Pexp", [-1 0 N+1 hm],[0 N+2 0 6])
 xtitle(  "Distribuição binomial B("+string(N)+","+string(p)+") :" ...
@@ -197,7 +197,7 @@ deff("y=Kl(t,k,x)","y=(t-x(k)).*Ll(t,k,x).^2")
 deff("y=Kr(t,k,x)","y=(t-x(k+1)).*Lr(t,k,x).^2")
 // plotando a curva
 Y = y(ind).*Hl(X,ind) + y(ind+1).*Hr(X,ind) + d(ind).*Kl(X,ind) + d(ind+1).*Kr(X,ind);
-xbasc(); plot2d(X,Y,2) ; plot2d(x,y,-9,"000") 
+clf(); plot2d(X,Y,2) ; plot2d(x,y,-9,"000") 
 xtitle("Um polinômio seccionado de hermite")
 // NOTE : a verificação pode ser feita adicionando-se : 
 // YY = interp(X,x,y,d); plot2d(X,YY,3,"000")
index 5fdf370..09d6cc0 100644 (file)
@@ -106,7 +106,7 @@ y = linspace(-1,1,ny);
 //deff("z=f(x,y)","z=128*x.^2 .*(1-x).^2 .*y.^2 .*(1-y).^2");
 deff("z=f(x,y)","z=x.^2 + y.^3")
 Z = f(X,Y);
-xbasc()
+clf()
 plot3d(x,y,Z, flag=[2 6 4]); xselect()
 
 // criando um grid 3d simples
@@ -127,7 +127,7 @@ for j=1:ny
                      matrix(Z(:,j,:),[nx,nz]));
    XF = [XF xf]; YF = [YF yf]; ZF = [ZF zf];
 end
-xbasc()
+clf()
 plot3d(XF,YF,ZF, flag=[0 6 3], leg="X@Y@Z")
 xtitle("A 3d grid !"); xselect()
  ]]></programlisting>
index c0e496c..25ec1fb 100644 (file)
@@ -30,7 +30,7 @@
      use HeapAlloc and VirtualAlloc (for scilab stack)
      Correction Bug 1576
      n=10000
-     xbasc();
+     clf();
      plot2d([0,1],[0,n],0)
      xpols=[zeros(1,n); ones(2,n); zeros(1,n)];
      ypols=[2:n+1; 2:n+1; 1:n; 1:n];
index 8db3e37..b7a328f 100644 (file)
@@ -54,7 +54,7 @@ current_driver=driver()</synopsis>
     <para>Esta função seleciona um driver gráfico, ou, sem argumentos, retorna
     o nome do driver gráfico corrente. Na maioria das vezes, o usuário pode
     ignorar esta função e modificar o driver por uma chamada a funções de alto
-    nível como <literal>xbasc</literal>. O driver selecionado pode ser um dos
+    nível como <literal>clf</literal>. O driver selecionado pode ser um dos
     seguintes:</para>
 
     <variablelist>
@@ -129,7 +129,7 @@ convert -delay 10  img*.gif anim.gif
     <title>Ver Também</title>
 
     <simplelist type="inline">
-      <member><link linkend="xbasc">xbasc</link></member>
+      <member><link linkend="clf">clf</link></member>
     </simplelist>
   </refsection>
 
index fbac612..e5a03f8 100644 (file)
     <title>Graphics primitives</title>
     <variablelist>
       <varlistentry>
-        <term><link linkend="xbasc">xbasc</link></term>
+        <term><link linkend="clf">clf</link></term>
         <listitem>
           <para>Clear a graphics window and erase the associated recorded graphics</para>
         </listitem>
diff --git a/scilab/modules/graphics/help/en_US/xbasc.xml b/scilab/modules/graphics/help/en_US/xbasc.xml
deleted file mode 100644 (file)
index a537e5a..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="xbasc">
-  <info>
-    <pubdate>$LastChangedDate$</pubdate>
-  </info>
-  <refnamediv>
-    <refname>xbasc</refname>
-    <refpurpose> clears a graphics window.</refpurpose>
-  </refnamediv>
-  <refsynopsisdiv>
-    <title>Calling Sequence</title>
-    <synopsis>xbasc([window-id])</synopsis>
-  </refsynopsisdiv>
-  <refsection>
-    <title>Parameters</title>
-    <variablelist>
-      <varlistentry>
-        <term>window-id</term>
-        <listitem>
-          <para>integer scalar or vector</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-  <refsection>
-    <title>Description</title>
-    <para>
-    Without any argument, this function clears the current graphic figure by deleting all its children.
-    Otherwise it clears the graphic figures whose ids are included 
-    in the vector <literal>window-id</literal>. For example 
-    <literal>xbasc(1:3)</literal> clears windows 1, 2 and 3. If one of the windows does not 
-    exist, then it is automatically created.
-    </para>
-       <para>
-         <literal>xbasc</literal> function delete every children of specified windows including
-         menus and uicontrols added by user.
-         To prevent menus and uicontrols from being deleted, the <literal>delete(gca())</literal> command
-         might be used instead.
-       </para>
-    <para>
-               The <literal>xbasc</literal> function is obsolete and will be removed in Scilab 5.3.
-               To erase a figure, please use instead the <literal>clf</literal> or <literal>delete</literal> functions.
-       </para>
-
-  </refsection>
-  <refsection>
-    <title>See Also</title>
-    <simplelist type="inline">
-      <member>
-        <link linkend="clf">clf</link>
-      </member>
-      <member>
-        <link linkend="xclear">xclear</link>
-      </member>
-    </simplelist>
-  </refsection>
-</refentry>
index e3bd4ba..c3ee495 100644 (file)
 
     <variablelist>
       <varlistentry>
-        <term><link linkend="xbasc">xbasc</link></term>
+        <term><link linkend="clf">clf</link></term>
 
         <listitem>
           <para>efface une fenêtre graphique et les graphiques
diff --git a/scilab/modules/graphics/help/fr_FR/xbasc.xml b/scilab/modules/graphics/help/fr_FR/xbasc.xml
deleted file mode 100644 (file)
index 5393483..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="fr" xml:id="xbasc">
-  <info>
-    <pubdate>$LastChangedDate$</pubdate>
-  </info>
-  <refnamediv>
-    <refname>xbasc</refname>
-    <refpurpose> efface une fenêtre graphique.</refpurpose>
-  </refnamediv>
-  <refsynopsisdiv>
-    <title>Séquence d'appel</title>
-    <synopsis>xbasc([window-id])</synopsis>
-  </refsynopsisdiv>
-  <refsection>
-    <title>Paramètres</title>
-    <variablelist>
-      <varlistentry>
-        <term>window-id  </term>
-        <listitem>
-          <para>entier ou vecteur d'entiers
-         </para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-  <refsection>
-    <title>Description</title>
-    <para>
-      Sans argument, cette fonction efface la figure graphique courante en supprimant tous ses enfants.
-      Sinon elle efface les figures graphiques dont les numéros sont donnés 
-      dans le vecteur <literal>window-id</literal>. Par exemple 
-      <literal>xbasc(1:3)</literal> efface les fenêtres 1, 2 et 3. Si une des
-      fenêtres n'existe pas, elle est automatiquement créée.
-    </para>
-       <para>
-         La fonction <literal>xbasc</literal> efface tous les enfants des figures spécifiées, y compris
-         les menus et uicontrols ajoutés par l'utilisteur.
-         Pour éviter d'effacer les menus et les uicontrols, la commande <literal>delete(gca())</literal>
-         peut être utilisée à la place.
-       </para>
-    <para>
-               La fonction <literal>xbasc</literal> est obsolète et sera retirée dans la version 5.3.
-               Pour effacer une fenêtre graphique, les fonctions <literal>clf</literal> ou <literal>delete</literal> peuvent être utilisées
-               à la place.
-       </para>
-  </refsection>
-  <refsection>
-    <title>Voir Aussi</title>
-    <simplelist type="inline">
-      <member>
-        <link linkend="clf">clf</link>
-      </member>
-      <member>
-        <link linkend="xclear">xclear</link>
-      </member>
-    </simplelist>
-  </refsection>
-</refentry>
index b983a4e..e5831c2 100644 (file)
     <title>Primitivas gráficas</title>
 
     <variablelist>
-      <varlistentry>
-        <term>xbasc</term>
-
-        <listitem>
-          <para>limpa uma janela de gráficos</para>
-        </listitem>
-      </varlistentry>
 
       <varlistentry>
         <term>xclear</term>
index 0fbc82a..0312352 100644 (file)
@@ -124,7 +124,7 @@ function z=surf1(x,y), z=x*y, endfunction
 function z=surf2(x,y), z=x^2-y^2, endfunction
 function z=surf3(x,y), z=x^3+y^2, endfunction
 function z=surf4(x,y), z=x^2+y^2, endfunction
-xbasc()
+clf()
 xset("colormap",[jetcolormap(64);hotcolormap(64)])
 x = linspace(-1,1,60);
 y = linspace(-1,1,60);
@@ -150,7 +150,7 @@ xselect()
 
 // exemplo #2: esboço de surf3 e adição de algumas linhas de contorno
 function z=surf3(x,y), z=x^3+y^2, endfunction
-xbasc()
+clf()
 x = linspace(-1,1,60);
 y = linspace(-1,1,60);
 xset("colormap",hotcolormap(128))
@@ -165,7 +165,7 @@ xselect()
 // exemplo #3: esboço de surf3 e uso dos argumentos opcionais zminmax e colout
 //             para restringir o esboço em -0.5&lt;= z &lt;= 1
 function z=surf3(x,y), z=x^3+y^2, endfunction
-xbasc()
+clf()
 x = linspace(-1,1,60);
 y = linspace(-1,1,60);
 xset("colormap",jetcolormap(128))
index 1b91e84..94aa0c3 100644 (file)
@@ -92,7 +92,7 @@
 x = linspace(0,1,81);
 z = cos(2*%pi*x)'*sin(2*%pi*x);
 zm = min(z); zM = max(z);
-xbasc()
+clf()
 xset("colormap",jetcolormap(64))
 colorbar(zm,zM)
 Sgrayplot(x,x,z)
@@ -104,7 +104,7 @@ z = cos(2*%pi*x)'*sin(2*%pi*x);
 zm = min(z); zM = max(z);
 zz = abs(0.5*cos(2*%pi*x)'*cos(2*%pi*x));
 zzm = min(zz); zzM = max(zz);
-xbasc();
+clf();
 xset("colormap",jetcolormap(64))
 
 drawlater() ;
@@ -132,7 +132,7 @@ zz = abs(0.5*cos(2*%pi*x)'*cos(2*%pi*x));
 zzm = min(zz); zzM = max(zz);
 [xf,yf,zf]=genfac3d(x,x,zz);
 nb_col = 64;
-xbasc()
+clf()
 xset("colormap",hotcolormap(nb_col))
 drawlater() ;
 colorbar(zzm,zzM,fmt="%.1f")
index 3ebe589..64bc771 100644 (file)
@@ -399,10 +399,10 @@ function z=my_surface(x,y),z=x*sin(x)^2*cos(y),endfunction
 contour(t,t,my_surface,10)
 // mudando o formato da impressão dos níveis
 xset("fpf","%.1f")
-xbasc()
+clf()
 contour(t,t,my_surface,10)
 // 3D
-xbasc()
+clf()
 z=feval(t,t,my_surface);
 plot3d(t,t,z);contour(t,t,z+0.2*abs(z),20,flag=[0 2 4]);
  ]]></programlisting>
index a8886f4..7cc172d 100644 (file)
@@ -162,11 +162,11 @@ b = [zeros(2*n,1); (1:m-2*n)'/(m-2*n)];
 h = [r g b];
 xset('colormap',h);
 xset('fpf',' ');
-xbasc();
+clf();
 contourf([],[],z,[-6:-1,-logspace(-5,0,10),logspace(-5,0,10),1:8],0*ones(1,m))
 
 xset('fpf','');
-xbasc();
+clf();
 contourf([],[],z,[-6:-1,-logspace(-5,0,10),logspace(-5,0,10),1:8]);
  ]]></programlisting>
   </refsection>
index 2d0cb55..8fae6a5 100644 (file)
@@ -214,7 +214,7 @@ y = [0 0 1  1];
 T = [1 1 2 3 1;
      2 3 4 1 1];
 z = [0 1 0 -1];  // valores da função em cada vértice
-xbasc()
+clf()
 xset("colormap",jetcolormap(64))
 subplot(1,2,1)
    colorbar(-1,1)
@@ -228,7 +228,7 @@ xselect()
 
 // este exemplo mostra o efeito de zminmax e usa os
 // dados de exemplos anteriores (você tem que executá-los primeiro)
-xbasc()
+clf()
 xset("colormap",jetcolormap(64))
 colorbar(-0.5,0.5)  // cuidado, a barra de cores deve ser ajustada na mão!
 fec(x,y,T,z,strf="040", zminmax=[-0.5 0.5], mesh=%t)
@@ -237,7 +237,7 @@ xselect()
 
 // este exemplo mostra os efeitos de zminmax e colout. Utiliza
 // também os dados de exemplos anteriores (você tem que executá-los primeiro)
-xbasc()
+clf()
 xset("colormap",jetcolormap(64))
 subplot(2,2,1)
    colorbar(-0.5,0.5)
@@ -260,7 +260,7 @@ xselect()
 // este exemplo mostra um recurso de colminmax:
 // utilizando dois mapas de cores para dois subesboços.
 // Também utiliza dados de exemplos anteriores.
-xbasc()
+clf()
 xset("colormap",[hotcolormap(64);jetcolormap(64)])
 subplot(1,2,1)
    colorbar(-1,1,[1 64])
index 93605eb..1a456f1 100644 (file)
 
     <programlisting role="example"><![CDATA[ 
 y=(0:0.33:145.78)';
-xbasc();plot2d1('enn',0,y)
+clf();plot2d1('enn',0,y)
 [ymn,ymx,np]=graduate(mini(y),maxi(y))
 rect=[1,ymn,prod(size(y)),ymx];
-xbasc();plot2d1('enn',0,y,1,'011',' ',rect,[10,3,10,np])
+clf();plot2d1('enn',0,y,1,'011',' ',rect,[10,3,10,np])
  ]]></programlisting>
   </refsection>
 
index 521493e..a2aca1b 100644 (file)
@@ -173,7 +173,7 @@ h=a.children
 h.data_mapping="direct";
    
 // um esboço 2D de uma matriz utilizando cores
-xbasc()
+clf()
 a=get("current_axes");
 a.data_bounds=  [0,0;4,4];
   
index 89bb4d8..600b3be 100644 (file)
@@ -132,7 +132,7 @@ clf();histplot(20,d,leg='rand(1,10000,''normal'')',style=16, rect=[-3,0,3,0.5]);
 // exemplo #2: histograma de uma amsostra binomial (B(6,0.5)) aleatória
 d = grand(1000,1,"bin", 6, 0.5);
 c = linspace(-0.5,6.5,8);
-xbasc()
+clf()
 subplot(2,1,1)
    histplot(c, d, style=2)
    xtitle("histograma normalizado")
@@ -144,7 +144,7 @@ subplot(2,1,2)
 lambda = 2;
 X = grand(100000,1,"exp", 1/lambda);
 Xmax = max(X);
-xbasc()
+clf()
 histplot(40, X, style=2)
 x = linspace(0,max(Xmax),100)';
 plot2d(x,lambda*exp(-lambda*x),strf="000",style=5)
index cbc0aed..0829099 100644 (file)
@@ -70,7 +70,7 @@
     <programlisting role="example"><![CDATA[ 
 t=[0:0.1:2*%pi]';
 plot2d(sin(t),cos(t))
-xbasc()
+clf()
 isoview(-1,1,-1,1)
 plot2d(sin(t),cos(t),1,"001")
 xset("default")
index bbf4198..fad4aac 100644 (file)
@@ -82,11 +82,11 @@ x=0:0.1:2*%pi;
 // esboço simples
 oldplot(sin(x))
 // usando legendas
-xbasc()
+clf()
 oldplot(x,sin(x),"sin","tempo","esboço de seno")
 // esboço de duas funções
 
-xbasc()
+clf()
 oldplot([sin(x);cos(x)])
  ]]></programlisting>
   </refsection>
index fce3349..7a6a955 100644 (file)
 //esboço simples
 x=[0:0.1:2*%pi]';
 plot2d(sin(x))
-xbasc()
+clf()
 plot2d(x,sin(x))
 //esboços múltiplos
-xbasc()
+clf()
 plot2d(x,[sin(x) sin(2*x) sin(3*x)])
 // esboços múltiplos fornecendo as dimensões da moldura
 // sintaxe antiga e sintaxe nova
-xbasc()
+clf()
 plot2d(x,[sin(x) sin(2*x) sin(3*x)],1:3,"011","",[0,0,6,0.5])
-xbasc()
+clf()
 plot2d(x,[sin(x) sin(2*x) sin(3*x)],rect=[0,0,6,0.5])
 //esboços múltiplos com legendas e tiques dados// velha sintaxe e nova sintaxe
-xbasc()
+clf()
 plot2d(x,[sin(x) sin(2*x) sin(3*x)],..
       [1,2,3],"111","L1@L2@L3",[0,-2,2*%pi,2],[2,10,2,10]);
-xbasc()
+clf()
 plot2d(x,[sin(x) sin(2*x) sin(3*x)],..
   [1,2,3],leg="L1@L2@L3",nax=[2,10,2,10],rect=[0,-2,2*%pi,2])
 // isovisualização
-xbasc()
+clf()
 plot2d(x,sin(x),1,"041")
 // escala
-xbasc()
+clf()
 plot2d(x,sin(x),1,"061")
 // auto-escala com esboços anteriores
-xbasc()
+clf()
 plot2d(x,sin(x),1)
 plot2d(x,2*sin(x),2) 
 plot2d(2*x,cos(x),3)
 // eixo à direita 
-xbasc()
+clf()
 plot2d(x,sin(x),1,"183","sin(x)")
 // eixo centrado 
-xbasc()
+clf()
 plot2d(x,sin(x),1,"184","sin(x)")
 // eixo centrado em(0,0
-xbasc()
+clf()
 plot2d(x-4,sin(x),1,"185","sin(x)")
  ]]></programlisting>
   </refsection>
@@ -464,7 +464,7 @@ plot2d(x-4,sin(x),1,"185","sin(x)")
 
       <member><link linkend="plot2d4">plot2d4</link></member>
 
-      <member><link linkend="xbasc">xbasc</link></member>
+      <member><link linkend="clf">clf</link></member>
 
       <member><link linkend="xset">xset</link></member>
     </simplelist>
index 0487856..a41948e 100644 (file)
@@ -103,8 +103,6 @@ replot([-3,-2,8,4],f.children(2))
     <simplelist type="inline">
       <member><link linkend="xbasr">xbasr</link></member>
 
-      <member><link linkend="xbasc">xbasc</link></member>
-
       <member><link linkend="clf">clf</link></member>
     </simplelist>
   </refsection>
index 893ab2a..d923d0b 100644 (file)
@@ -67,7 +67,7 @@
     <programlisting role="example"><![CDATA[ 
 t=[0:0.1:2*%pi]';
 plot2d(sin(t),cos(t))
-xbasc()
+clf()
 square(-1,-1,1,1)
 plot2d(sin(t),cos(t))
 xset("default")
diff --git a/scilab/modules/graphics/help/pt_BR/xbasc.xml b/scilab/modules/graphics/help/pt_BR/xbasc.xml
deleted file mode 100644 (file)
index 5e9860b..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-<refentry version="5.0-subset Scilab" xml:id="xbasc" xml:lang="en"
-          xmlns="http://docbook.org/ns/docbook"
-          xmlns:xlink="http://www.w3.org/1999/xlink"
-          xmlns:svg="http://www.w3.org/2000/svg"
-          xmlns:ns3="http://www.w3.org/1999/xhtml"
-          xmlns:mml="http://www.w3.org/1998/Math/MathML"
-          xmlns:db="http://docbook.org/ns/docbook">
-  <info>
-    <pubdate>$LastChangedDate$</pubdate>
-  </info>
-
-  <refnamediv>
-    <refname>xbasc</refname>
-
-    <refpurpose>limpa uma janela de gráficos</refpurpose>
-  </refnamediv>
-
-  <refsynopsisdiv>
-    <title>Seqüência de Chamamento</title>
-
-    <synopsis>xbasc([window-id])</synopsis>
-  </refsynopsisdiv>
-
-  <refsection>
-    <title>Parâmetros</title>
-
-    <variablelist>
-      <varlistentry>
-        <term>window-id</term>
-
-        <listitem>
-          <para>escalar inteiro ou vetor de escalares inteiros</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-
-  <refsection>
-    <title>Descrição</title>
-
-    <para>Sem argumentos, esta função limpa a janela de gráficos corrente e
-    apaga os gráficos gravados. Em outro caso, ela limpa as janelas de
-    gráficos cujos números estão inclusos no vetor
-    <literal>window-id</literal>. Por exemplo <literal>xbasc(1:3)</literal>
-    limpa as janelas 1, 2 e 3 e apaga seus gráficos gravados correspondentes.
-    Se uma dessas janelas não existir, ela é automaticamente criada.</para>
-
-    <para><literal>xbasc</literal> deleta cada galho das janelas
-    especificadas, incluindo menus e uicontrols adicionados pelo usuário. Para
-    evitar que menus e uicontrols sejam apagados, o comando
-    <literal>delete(gca())</literal> pode ser utilizado ao invés.</para>
-
-    <para>A função <literal>xbasc</literal> está obsoleta. Para apagar uma
-    figura, por favor, use ao invés <literal>clf</literal> ou
-    <literal>delete</literal>.</para>
-  </refsection>
-
-  <refsection>
-    <title>Ver Também</title>
-
-    <simplelist type="inline">
-      <member><link linkend="clf">clf</link></member>
-
-      <member><link linkend="xclear">xclear</link></member>
-    </simplelist>
-  </refsection>
-</refentry>
index e163673..f5fc25a 100644 (file)
@@ -65,7 +65,7 @@
     <title>Ver Também</title>
 
     <simplelist type="inline">
-      <member><link linkend="xbasc">xbasc</link></member>
+      <member><link linkend="clf">clf</link></member>
     </simplelist>
   </refsection>
 
index 33c7a3f..12353d6 100644 (file)
@@ -104,7 +104,7 @@ xsetech([0,0,1.0,0.5])
 // obtendo as escalas gráficas da segunda sub-janela
 xsetech([0,0.5,1.0,0.5])
 [wrect,frect,logflag,arect]=xgetech();
-xbasc();
+clf();
 xset('default')
  ]]></programlisting>
   </refsection>
index ebe75d2..285d3d0 100644 (file)
@@ -96,7 +96,7 @@ xset()</synopsis>
           <para>alterna o modo de limpeza automática para gráficos entre "on"
           e "off" . Quando o modo de limpeza automática é "on", esboços
           sucessivos não são superpostos, ie, uma operação
-          <literal>xbasc()</literal> (a janela de gráficos é limpa e os
+          <literal>clf()</literal> (a janela de gráficos é limpa e os
           gráficos gravados associados são apagados) é realizada antes de cada
           função gráfica de alto-nível. O valor padrão é "off".</para>
         </listitem>
@@ -280,7 +280,7 @@ xset()</synopsis>
           enviados à janela de gráficos através do comando
           <literal>xset("wshow")</literal>. O pixmap é limpo com o comando
           <literal>xset("wwpc")</literal>. Note que o comando usual
-          <literal>xbasc()</literal> também limpa o pixmap.</para>
+          <literal>clf()</literal> também limpa o pixmap.</para>
         </listitem>
       </varlistentry>
 
index 319911c..a0122ab 100644 (file)
@@ -104,7 +104,7 @@ xsetech()</synopsis>
     padrão de <literal>rect</literal> é <literal>[0,0,1,1]</literal> (na
     criação de janelas, quando se volta para o valor padrão com
     <literal>xset('default')</literal> ou quando se limpa eventos gráficos
-    gravados <literal>xbasc()</literal>).</para>
+    gravados <literal>clf()</literal>).</para>
 
     <para><literal>arect=[x_left, x_right,y_up,y_down]</literal> é utilizado
     para ajustar a moldura gráfica dentro da sub-janela. A moldura gráfica é
@@ -134,7 +134,7 @@ xsetech([0,0.5,1.0,0.5])
 // e nós a modificamos utilizando o argumento rect em plot2d 
 plot2d([1:10]',[1:10]',1,"011"," ",[-6,-6,6,6])
 // quatro esboços em uma única janela de gráficos
-xbasc()
+clf()
 xset("font",2,0)
 xsetech([0,0,0.5,0.5]); plot3d()
 xsetech([0.5,0,0.5,0.5]); plot2d()
@@ -143,14 +143,14 @@ xsetech([0,0.5,0.5,0.5]); histplot()
 // de volta aos valores padrões para a sub-janela
 xsetech([0,0,1,1])
 // um esboço com arect modificado 
-xbasc()
+clf()
 xset("default")
 xsetech(arect=[0,0,0,0]) 
 x=1:0.1:10;plot2d(x',sin(x)')
-xbasc()
+clf()
 xsetech(arect=[1/8,1/8,1/16,1/4])
 x=1:0.1:10;plot2d(x',sin(x)')
-xbasc()
+clf()
 xset("default")
  ]]></programlisting>
   </refsection>
index 5f6b7bb..455b4da 100644 (file)
@@ -96,7 +96,7 @@ alphabet=["a" "b" "c" "d" "e" "f" "g" ..
           "h" "i" "j" "k" "l" "m" "n" ..
           "o" "p" "q" "r" "s" "t" "u" ..
           "v" "w" "x" "y" "z"];
-xbasc()
+clf()
 plot2d([0;1],[0;2],0)
 xstring(0.1,1.8,alphabet)     // alfabeto
 xstring(0.1,1.6,alphabet,0,1) // alfabeto em uma caixa
diff --git a/scilab/modules/graphics/macros/xbasc.sci b/scilab/modules/graphics/macros/xbasc.sci
deleted file mode 100644 (file)
index f680643..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ENPC
-// Copyright (C) 2007 - INRIA
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at    
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-function xbasc(win_num)
-
-warnobsolete('clf', '5.3');
-
-// This function is obsolete.
-//xbasc([win_num])
-// Clear the graphic window win_num and erase the recorded graphics of
-// window win_num
-// if win_num is omited, it's the current graphic window
-// win_num can also be a vector of window Id to clear a set of windows
-//!
-
-  [lhs,rhs]=argn(0);
-  if (rhs == 0) then
-    // clear the current figure
-    clf();
-  elseif (rhs == 1) then 
-     // clear a set of figures
-    if (type(win_num) <> 1) then
-         error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A vector expected.\n"), "xbasc", 1));
-         return;
-       end
-       
-       if (winsid() == []) then
-         // no current figure
-         curFig = [];
-       else
-         curFig = gcf();
-       end
-       
-    for figNum = win_num,
-      clf(scf(figNum));
-    end
-       
-       // restore current figure
-       if (curFig <> []) then
-         scf(curFig);
-       end
-       
-  else
-       error(999, msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"), "xbasc", 0, 1));
-       return;
-  end
-endfunction 
-
-
index c0b5145..12c3c2f 100644 (file)
@@ -90,7 +90,7 @@ m = 30;
 xx = linspace(0,2*%pi,m);
 [X,Y] = ndgrid(xx,xx);
 Z = eval_cshep2d(X,Y, tl_coef);
-xbasc()
+clf()
 plot3d(xx,xx,Z,flag=[2 6 4])
 param3d1(xy(:,1),xy(:,2),list(z,-9), flag=[0 0])
 xtitle("Interpolação cúbica de Shepard de cos(x)cos(y) com pontos de interpolação escolhidos aleatoriamente")
index f29b4d4..bd25c81 100644 (file)
@@ -129,7 +129,7 @@ color = 2*ones(1,size(zf,2));
 // índices correspondentes à faceta na região de interpolação
 ind=find( mean(xf,"r")>0 & mean(xf,"r")<1 & mean(yf,"r")>0 & mean(yf,"r")<1 );
 color(ind)=3;
-xbasc();
+clf();
 plot3d(xf,yf,list(zf,color), flag=[2 6 4])
 legends(["região de extrapolação","região de interpolação"],[2 3],1)
 xselect()
index ca436ba..419fea9 100644 (file)
@@ -177,7 +177,7 @@ df = splin(x,y, "fast");
 xx = linspace(a,b,800)';
 [yyk, yy1k, yy2k] = interp(xx, x, y, dk); 
 [yyf, yy1f, yy2f] = interp(xx, x, y, df); 
-xbasc()
+clf()
 subplot(3,1,1)
 plot2d(xx, [yyk yyf])
 plot2d(x, y, style=-9)
@@ -202,7 +202,7 @@ yy0 = interp(xx,x,y,d,"C0");
 yy1 = interp(xx,x,y,d,"linear");
 yy2 = interp(xx,x,y,d,"natural");
 yy3 = interp(xx,x,y,d,"periodic");  
-xbasc()
+clf()
 plot2d(xx,[yy0 yy1 yy2 yy3],style=2:5,frameflag=2,leg="C0@linear@natural@periodic")
 xtitle(" Modos diferentes de avaliar um spline fora de seu domínio")
  ]]></programlisting>
index 1f09d3d..245beb2 100644 (file)
@@ -178,7 +178,7 @@ zz1 = interp2d(XX,YY, x, y, C, "C0");
 zz2 = interp2d(XX,YY, x, y, C, "by_zero");
 zz3 = interp2d(XX,YY, x, y, C, "periodic");
 zz4 = interp2d(XX,YY, x, y, C, "natural");
-xbasc()
+clf()
 subplot(2,2,1)
 plot3d(xx, yy, zz1, flag=[2 6 4])
 xtitle("Extrapolação com o outmode C0")
index 6c6479e..184406d 100644 (file)
@@ -164,7 +164,7 @@ x = linspace(0,2*%pi,11);
 y = sin(x);
 xx = linspace(-2*%pi,4*%pi,400)';
 yy = linear_interpn(xx, x, y, "periodic");
-xbasc()
+clf()
 plot2d(xx,yy,style=2)
 plot2d(x,y,style=-9, strf="000")
 xtitle("Interpolação linear de sin(x) com 11 pontos de interpolação")
@@ -176,7 +176,7 @@ z = 2*sin(x')*sin(y);
 xx = linspace(0,2*%pi, 40);
 [xp,yp] = ndgrid(xx,xx);
 zp = linear_interpn(xp,yp, x, y, z);
-xbasc()
+clf()
 plot3d(xx, xx, zp, flag=[2 6 4])
 [xg,yg] = ndgrid(x,x);
 param3d1(xg,yg, list(z,-9*ones(1,n)), flag=[0 0])
@@ -200,7 +200,7 @@ zp2 = linear_interpn(XP, YP, x, y, z, "periodic");
 zp3 = linear_interpn(XP, YP, x, y, z, "C0");
 zp4 = linear_interpn(XP, YP, x, y, z, "by_zero");
 zp5 = linear_interpn(XP, YP, x, y, z, "by_nan");
-xbasc()
+clf()
 subplot(2,3,1)
    plot3d(x, y, z, leg="x@y@z", flag = [2 4 4])
    xtitle("função inicial 0.4 cos(2 pi x) cos(pi y)")
@@ -251,7 +251,7 @@ nb_col = 128;
 vmin = min(VF); vmax = max(VF);
 color = dsearch(VF,linspace(vmin,vmax,nb_col+1));
 xset("colormap",jetcolormap(nb_col));
-xbasc()
+clf()
 xset("hidden3d",xget("background"))
 colorbar(vmin,vmax)
 plot3d(XF, YF, list(ZF,color), flag=[-1 6 4])
index 01c2409..dbc34e6 100644 (file)
@@ -146,7 +146,7 @@ x = linspace(a,b,n)';
 // plotando
 ye = sin(xd);
 ys = interp(xd, x, y, d);
-xbasc()
+clf()
 plot2d(xd,[ye yd ys],style=[2 -2 3], ...
        leg="função exata@medidas experimentais (perturbação gaussiana)@spline ajustado")
 xtitle("Um spline de mínimos quadrados")
index 505d2d9..bfbb73e 100644 (file)
@@ -228,7 +228,7 @@ d = splin(x, y);
 xx = linspace(a, b, m)';
 yyi = interp(xx, x, y, d);
 yye = runge(xx);
-xbasc()
+clf()
 plot2d(xx, [yyi yye], style=[2 5], leg="interpolação por@função exata")
 plot2d(x, y, -9)
 xtitle("Intepolação da função de Runge")
@@ -243,7 +243,7 @@ xx = linspace(a,b,m)';
 yk = interp(xx, x, y, splin(x,y,"not_a_knot"));
 yf = interp(xx, x, y, splin(x,y,"fast"));
 ym = interp(xx, x, y, splin(x,y,"monotone"));
-xbasc()
+clf()
 plot2d(xx, [yf ym yk], style=[5 2 3], strf="121", ...
        leg="fast@monotone@spline not a knot")
 plot2d(x,y,-9, strf="000")  // para mostrar pontos de interpolação
index e16947e..c13e95d 100644 (file)
@@ -164,7 +164,7 @@ xx = linspace(0,2*%pi,m); yy = xx;
 [XX,YY] = ndgrid(xx,yy);
 zz = interp2d(XX,YY, x, y, C);
 emax = max(abs(zz - cos(xx')*cos(yy)));
-xbasc()
+clf()
 plot3d(xx, yy, zz, flag=[2 4 4])
 [X,Y] = ndgrid(x,y);
 param3d1(X,Y,list(z,-9*ones(1,n)), flag=[0 0])
@@ -183,7 +183,7 @@ ZP2 = linear_interpn(XP, YP, x, y, z);
 ZP3 = interp2d(XP, YP, x, y, splin2d(x, y, z, "natural"));
 ZP4 = interp2d(XP, YP, x, y, splin2d(x, y, z, "monotone"));
 xset("colormap", jetcolormap(64))
-xbasc()
+clf()
 subplot(2,2,1)
 plot3d1(xp, yp, ZP1, flag=[2 2 4])
 xtitle("not_a_knot")
@@ -213,7 +213,7 @@ xp = linspace(a,b, np);
 zp1 = interp2d(XP, YP, x, x, splin2d(x,x,z));
 zp2 = interp2d(XP, YP, x, x, splin2d(x,x,z,"monotone"));
 // plot
-xbasc()
+clf()
 xset("colormap",jetcolormap(128))
 subplot(1,2,1)
 plot3d1(xp, xp, zp1, flag=[-2 6 4])
index e147499..6d703ff 100644 (file)
@@ -150,7 +150,7 @@ nb_col = 128;
 vmin = min(VF); vmax = max(VF);
 color = dsearch(VF,linspace(vmin,vmax,nb_col+1));
 xset("colormap",jetcolormap(nb_col));
-xbasc(); xset("hidden3d",xget("background"));
+clf(); xset("hidden3d",xget("background"));
 colorbar(vmin,vmax)
 plot3d(XF, YF, list(ZF,color), flag=[-1 6 4])
 xtitle("interpolação por spline 3d da função "+func)
index e277d86..cfefe03 100644 (file)
@@ -30,7 +30,7 @@
      use HeapAlloc and VirtualAlloc (for scilab stack)
      Correction Bug 1576
      n=10000
-     xbasc();
+     clf();
      plot2d([0,1],[0,n],0)
      xpols=[zeros(1,n); ones(2,n); zeros(1,n)];
      ypols=[2:n+1; 2:n+1; 1:n; 1:n];
index dfa427c..284f4f8 100644 (file)
@@ -1,9 +1,9 @@
 -->xset('wpos',0,0);xset('window',10);xset('wpos',605,0);xset('window',0);
--->xbasc(10);titlepage(['New Diagram edition';' '],10)
+-->clf(10);titlepage(['New Diagram edition';' '],10)
  -2,0,450,-1,'execstr(Edit_0(1))'//xclick
  1//tk_choose
 -->xset('window',1);xset('wpos',0,489);xset('window',0);
--->xbasc(10);titlepage(['Selection of the INPUT/OUTPUT';'palette';'to get some blocks'],10)
+-->clf(10);titlepage(['Selection of the INPUT/OUTPUT';'palette';'to get some blocks'],10)
  -2,0,450,-1,'execstr(Edit_0(5))'//xclick
  0,173.40222,36.077753,1,'void'//xclick
  191.87817,421.51899,-1//xgemouse
  149.23858,166.32911,-1//xgemouse
  150.25381,166.32911,-1//xgemouse
  150.25381,166.32911,0//xgemouse
--->xbasc(10);titlepage(['Block connection using';'Link menu';'and Align'],10)
+-->clf(10);titlepage(['Block connection using';'Link menu';'and Align'],10)
  -2,0,450,-1,'execstr(Edit_0(8))'//xclick
  0,170.55838,113.92405,0,'void'//xclick
  0,170.55838,168.60759//xclick
  359.39086,195.94937,-1//xgemouse
  360.40609,194.81013,-1//xgemouse
  361.42132,194.81013,0//xgemouse
--->xbasc(10);titlepage(['Setup simulation parameter';'and first run'],10)
+-->clf(10);titlepage(['Setup simulation parameter';'and first run'],10)
  -2,0,450,-1,'execstr(Simulate_0(1))'//xclick
  100//x_mdialog
  0.0001
  0.1
  o
  -2,0,450,-1,'execstr(Simulate_0(4))'//xclick
--->xbasc(10);titlepage(['Diagram Modification ';' '],10)
+-->clf(10);titlepage(['Diagram Modification ';' '],10)
  -2,0,450,-1,'execstr(Edit_0(10))'//xclick
  0,271.06599,95.696203,0,'void'//xclick
--->xbasc(10);titlepage(['Opening Linear palette ';'to get the + block'],10)
+-->clf(10);titlepage(['Opening Linear palette ';'to get the + block'],10)
  -2,0,450,-1,'execstr(Edit_0(1))'//xclick
  2//tk_choose
 -->xset('window',2);xset('wpos',585,483);xset('window',0);
--->xbasc(10);titlepage(['Updating diagram ..';' '],10)
+-->clf(10);titlepage(['Updating diagram ..';' '],10)
  -2,0,450,-1,'execstr(Edit_0(5))'//xclick
  0,196.04966,27.341772,2,'void'//xclick
  221.3198,389.62025,-1//xgemouse
  297.46193,97.974684,-1//xgemouse
  295.43147,97.974684,-1//xgemouse
  294.41624,97.974684,0//xgemouse
--->xbasc(10);titlepage(['New diagram ..';'simulation '],10)
+-->clf(10);titlepage(['New diagram ..';'simulation '],10)
  -2,0,450,-1,'execstr(Simulate_0(4))'//xclick
--->xbasc(10);titlepage(['Changing blocks aspect';'with Block.. menu'],10)
+-->clf(10);titlepage(['Changing blocks aspect';'with Block.. menu'],10)
  -2,0,450,-1,'execstr(Object_0(5))'//xclick
  0,172.58883,87.721519,0,'void'//xclick
  15//getcolor
index 298d0f1..2173012 100644 (file)
@@ -22,7 +22,7 @@
 function Nyquist_()
     syst=analyse(scs_m)
     %sl=bloc2ss(syst)
-    xset('window',curwin+1);xbasc()
+    xset('window',curwin+1);clf()
     nyquist( %sl)
     xset('window',curwin);
 endfunction
index 2067c62..1661c02 100644 (file)
@@ -28,7 +28,7 @@ function Window_()
     edited=or(params<>scs_m.props)
     
     if or(scs_m.props.wpar<>params.wpar) then
-      xset('alufunction',3);xbasc();xselect();xset('alufunction',6);
+      xset('alufunction',3);clf();xselect();xset('alufunction',6);
       window_set_size()
 
       scs_m.props.wpar=params.wpar
index ca3c636..4449535 100644 (file)
@@ -20,7 +20,7 @@
 //
 
 function do_xsetech(wdm)
-xset('alufunction',3);xbasc();xselect();
+xset('alufunction',3);clf();xselect();
 
 f_xsetech(wdm)
 
index 3d51050..7ff5543 100644 (file)
@@ -22,7 +22,7 @@
 function win=systshow(scs_m,win)
   [lhs,rhs]=argn(0)
   if rhs<2 then win=xget('window'),end
-  xset('window',win);xbasc()
+  xset('window',win);clf()
   wpar=scs_m.props
 
   wsiz=wpar.wpar
index 843d6d0..a2d12bf 100644 (file)
@@ -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)
 //  Funções I de Bessel
 // ==================
 x = linspace(0.01,10,5000)';
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,besseli(0:4,x), style=2:6)
 legend('I'+string(0:4),2);
@@ -213,7 +213,7 @@ xtitle("Algumas fun
 // Funções J de Bessel
 // =================
 x = linspace(0,40,5000)';
-xbasc()
+clf()
 plot2d(x,besselj(0:4,x), style=2:6, leg="J0@J1@J2@J3@J4")
 legend('I'+string(0:4),1);
 xtitle("Algumas funções de Bessel do primeiro tipo")
@@ -225,7 +225,7 @@ y1 = besselj(0.5, x);
 y2 = sqrt(2 ./(%pi*x)).*sin(x);
 er = abs((y1-y2)./y2);
 ind = find(er > 0 & y2 ~= 0);
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,y1,style=2)
 xtitle("besselj(0.5,x)")
@@ -236,7 +236,7 @@ xtitle("Erro relativo entre as duas f
 // Funções K de Bessel
 // =================
 x = linspace(0.01,10,5000)';
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,besselk(0:4,x), style=0:4, rect=[0,0,6,10])
 legend('K'+string(0:4),1);
@@ -249,7 +249,7 @@ xtitle("Algumas fun
 // Funções Y de Bessel
 // =================
 x = linspace(0.1,40,5000)'; // funções Y de Bessel não possuem limite para x -> 0+
-xbasc()
+clf()
 plot2d(x,bessely(0:4,x), style=0:4, rect=[0,-1.5,40,0.6])
 legend('Y'+string(0:4),4);
 xtitle("Algumas funções de Bessel do segundo tipo")
index ef5ae73..e5ed51e 100644 (file)
@@ -95,7 +95,7 @@ e = beta(ones(x),x) - (1)./x;
 er = abs(e) .* x;
 ind = find(er ~= 0);
 eps = ones(x(ind))*number_properties("eps");
-xbasc()
+clf()
 plot2d(x(ind),[er(ind) eps 2*eps],style=[1 2 3],logflag="ll",leg="er@eps_m@2 eps_m")
 xtitle("erro relativo aproximado na computação de beta(1,x)")
 xselect()
@@ -104,7 +104,7 @@ xselect()
 t = linspace(0.2,10,60);
 X = t'*ones(t); Y = ones(t')*t;
 Z = beta(X,Y);
-xbasc()
+clf()
 plot3d(t, t, Z, flag=[2 4 4], leg="x@y@z", alpha=75, theta=30)
 xtitle("A função beta em [0.2,10]x[0.2,10]")
 xselect()
index b368e1f..d810014 100644 (file)
@@ -85,7 +85,7 @@ gamma(6)-prod(1:5)
 a = -3; b = 5;
 x = linspace(a,b,40000)';
 y = gamma(x);
-xbasc()
+clf()
 c=xget("color")
 xset("color",2)
 plot2d(x, y, style=0, axesflag=5, rect=[a, -10, b, 10])
index 9b011c9..d84928a 100644 (file)
@@ -149,7 +149,7 @@ y(1,j) = P(n,m;x(j))      se ambos n e m s
 l = nearfloat("pred",1);
 x = linspace(-l,l,200)';
 y = legendre(0:5, 0,  x);
-xbasc()
+clf()
 plot2d(x,y', leg="p0@p1@p2@p3@p4@p5@p6")
 xtitle("Os 6 primeiros polinômios de Legendre")
 
@@ -157,7 +157,7 @@ xtitle("Os 6 primeiros polin
 l = nearfloat("pred",1);
 x = linspace(-l,l,200)';
 y = legendre(5, 0:5, x, "norm");
-xbasc()
+clf()
 plot2d(x,y', leg="p5,0@p5,1@p5,2@p5,3@p5,4@p5,5")
 xtitle("As funções associadas de Legendre (normalizadas) de grau 5")
 
@@ -192,7 +192,7 @@ f = Y(l,m,theta,phi);
 [x2,y2,z2] = sph2cart(theta,phi,abs(real(f))); [xf2,yf2,zf2] = nf3d(x2,y2,z2);
 [x3,y3,z3] = sph2cart(theta,phi,abs(imag(f))); [xf3,yf3,zf3] = nf3d(x3,y3,z3);
 
-xbasc()
+clf()
 subplot(1,3,1)
 plot3d(xf1,yf1,zf1,flag=[2 4 4]); xtitle("|Y31(theta,phi)|")
 subplot(1,3,2)
index 1de8ce4..2167127 100644 (file)
@@ -153,7 +153,7 @@ y = oldbessely(alpha,x)</synopsis>
 x = linspace(0.01,10,5000)';
 y = oldbesseli(0:4,x);
 ys = oldbesseli(0:4,x,2);
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,y, style=2:6, leg="I0@I1@I2@I3@I4", rect=[0,0,6,10])
 xtitle("Algumas funções modificadas de Bessel do primeiro tipo")
@@ -164,7 +164,7 @@ xtitle("Algumas fun
 // exemplo #2 : exibindo algumas funções J de Bessel
 x = linspace(0,40,5000)';
 y = besselj(0:4,x);
-xbasc()
+clf()
 plot2d(x,y, style=2:6, leg="J0@J1@J2@J3@J4")
 xtitle("Algumas funções de Bessel do primeiro tipo")
 
@@ -176,7 +176,7 @@ y1 = besselj(0.5, x);
 y2 = sqrt(2 ./(%pi*x)).*sin(x);
 er = abs((y1-y2)./y2);
 ind = find(er > 0 & y2 ~= 0);
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,y1,style=2)
 xtitle("besselj(0.5,x)")
@@ -188,7 +188,7 @@ xtitle("erro relativo entre as duas f
 x = linspace(0.01,10,5000)';
 y = besselk(0:4,x);
 ys = besselk(0:4,x,1);
-xbasc()
+clf()
 subplot(2,1,1)
 plot2d(x,y, style=0:4, leg="K0@K1@K2@K3@K4", rect=[0,0,6,10])
 xtitle("Algumas funções modificadas de Bessel do segundo tipo")
@@ -199,7 +199,7 @@ xtitle("Algumas fun
 // exemplo #5: plot de várias funções Y de Bessel
 x = linspace(0.1,40,5000)'; // funções  Y de Bessel não possuem limite para x -> 0+
 y = bessely(0:4,x);
-xbasc()
+clf()
 plot2d(x,y, style=0:4, leg="Y0@Y1@Y2@Y3@Y4", rect=[0,-1.5,40,0.6])
 xtitle("Algumas funções de Bessel do segundo tipo")
  ]]></programlisting>