1
<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
2
<!DOCTYPE MAN SYSTEM "../../manrev.dtd">
4
<LANGUAGE>eng</LANGUAGE>
6
<TYPE>Scilab Function</TYPE>
7
<DATE>September 1994</DATE>
8
<SHORT_DESCRIPTION name="eval3dp"> compute facets of a 3D parametric surface</SHORT_DESCRIPTION>
10
<CALLING_SEQUENCE_ITEM>[Xf,Yf,Zf]=eval3dp(fun,p1,p2) </CALLING_SEQUENCE_ITEM>
15
<PARAM_NAME>Xf,Yf,Zf</PARAM_NAME>
17
<SP>: matrices of size (4,n-1*m-1). <VERB>Xf(:,i)</VERB> ,<VERB>Yf(:,i)</VERB> and <VERB>Zf(:,i)</VERB> are respectively the x-axis, y-axis and z-axis coordinates of the 4 points of the ith four sided facet.</SP>
21
<PARAM_NAME>fun</PARAM_NAME>
23
<SP>: a Scilab function.</SP>
27
<PARAM_NAME>p1</PARAM_NAME>
29
<SP>: a vector of size <VERB>n</VERB>.</SP>
33
<PARAM_NAME>p2</PARAM_NAME>
35
<SP>: a vector of size <VERB>m</VERB>.</SP>
41
<P><VERB>eval3dp</VERB> computes a four sided facets representation of a 3D parametric surface
42
defined by the function <VERB>fun</VERB>. <VERB>fun(p1,p2)</VERB> computes the
43
x-axis ,y-axis and z-axis coordinates of the corresponding points on the
44
surface, as [x(i),y(i),z(i)]=fun(p1(i),p2(i)). This is used for efficiency.</P>
48
p1=linspace(0,2*%pi,10);
49
p2=linspace(0,2*%pi,10);
50
deff("[x,y,z]=scp(p1,p2)",["x=p1.*sin(p1).*cos(p2)";..
51
"y=p1.*cos(p1).*cos(p2)";..
53
[Xf,Yf,Zf]=eval3dp(scp,p1,p2);