Changeset 8473 for issm/trunk/src/m/utils/Planetary/planetshell.m

Timestamp:

06/01/11 22:54:03 (14 years ago)

Author:

Eric.Larour

Message:

create planet shell

File:

• issm/trunk/src/m/utils/Planetary/planetshell.m (modified) (2 diffs)

issm/trunk/src/m/utils/Planetary/planetshell.m

@@ -69 +69 @@
 x=[x;r.*cos(phii).*sin(phii)];
 y=[y;r.*sin(phii).*sin(phii)];
-z=[z;r.*cos(phii)]
+z=[z;r.*cos(phii)];
 nods=length(x);
 
@@ -77 +77 @@
 start=nods-nthetha;
 for i=1:nthetha-1,
-        A=start+i;
-        B=start+i+1;
+        A=start+i-1;
+        B=start+i;
         C=nods;
         trias(i,:)=[A B C NaN];