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
30
31
32
33
34
35
36
37
|
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
//
// This file is distributed under the same license as the Scilab package.
//
// =============================================================================
// shell()
// =============================================================================
function shell()
u = linspace(0,2*%pi,40);
v = linspace(0,2*%pi,20);
x= (cos(u).*u)'*(1+cos(v)/2);
y= (u/2)'*sin(v);
z= (sin(u).*u)'*(1+cos(v)/2);
my_handle = scf(100001);
clf(my_handle,"reset");
my_axe = my_handle.children;
demo_viewCode("shell.sce");
my_handle.immediate_drawing = "off";
plot3d2(x,y,z);
my_plot = my_axe.children;
my_handle.color_map = jetcolormap(128);
my_plot.color_flag = 1;
my_axe.rotation_angles = [51,96];
my_handle.immediate_drawing = "on";
endfunction
shell();
clear shell;
|
