File: mulplot.code

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (29 lines) | stat: -rwxr-xr-x 567 bytes parent folder | download | duplicates (2) 
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
 
//multiple Postscript files for Latex
driver('Pos')

t=%pi*(-10:10)/10;

xinit('fig1.ps')
plot3d1(t,t,sin(t)'*cos(t),35,45,'X@Y@Z',[2,2,4]);
xend()

xinit('fig2.ps')
contour(1:5,1:10,rand(5,10),5);
xend()

xinit('fig3.ps')
champ(1:10,1:10,rand(10,10),rand(10,10));
xend()

xinit('fig4.ps')
t=%pi*(-10:10)/10;
deff('[z]=surf(x,y)','z=sin(x)*cos(y)');
rect=[-%pi,%pi,-%pi,%pi,-5,1];
z=feval(t,t,surf);
contour(t,t,z,10,35,45,'X@Y@Z',[1,1,0],rect,-5);
plot3d(t,t,z,35,45,'X@Y@Z',[2,1,3],rect);
title=['plot3d and contour '];
xtitle(title,' ',' ');
xend()

driver('Rec')