← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to demos/ode/lorenz2.dem

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
demos/ode/lorenz2.dem
1
 
kp=xget("pixmap");
2
 
// Copyright INRIA
3
 
dr=driver()
4
 
driver('X11')
5
 
if kp==0, xset("pixmap",1);end;
6
 
 
7
 
m=228;
8
 
n = fix(3/8*m);
9
 
r = [(1:n)'/n; ones(m-n,1)];
10
 
g = [zeros(n,1); (1:n)'/n; ones(m-2*n,1)];
11
 
b = [zeros(2*n,1); (1:m-2*n)'/(m-2*n)];
12
 
h = [r g b];
13
 
r1=[(1:m)'/m];g1=zeros(r1);b1=g1;
14
 
h1=[r1 g1 b1];
15
 
h2=[r1 r1 r1];
16
 
xset('colormap',h);
17
 
 
18
 
lpat=xget("lastpattern");
19
 
wid=30
20
 
N=2000;
21
 
Max_v=50;
22
 
t=linspace(0,Max_v,N*wid);
23
 
y=ode(1.e-8*[1;1;1],0,t,'loren'); 
24
 
ds=xget("dashes");
25
 
param3d(y(1,:),y(2,:),y(3,:),60,45,'X@Y@Z',[2,4]);
26
 
xset('wwpc');
27
 
y1=y(1,:);y1=matrix(y1,wid,N);
28
 
y2=y(2,:);y2=matrix(y2,wid,N);
29
 
y3=y(3,:);y3=matrix(y3,wid,N);
30
 
clear y;
31
 
for i=1:N,
32
 
        param3d1(y1(:,i),y2(:,i),list(y3(:,i),lpat*i/N),60,45,...
33
 
        'X@Y@Z',[0,0]);
34
 
        xset("wshow");
35
 
end
36
 
if kp==0, xset("pixmap",0);end;
37
 
driver(dr)
38
 
xset('default')
39