Changeset 3292

Timestamp:

03/16/10 12:01:34 (15 years ago)

Author:

Mathieu Morlighem

Message:

generate square

File:

• issm/trunk/src/m/utils/Exp/expbox.m (modified) (1 diff)

issm/trunk/src/m/utils/Exp/expbox.m

@@ -21 +21 @@
 [x,y]=ginput(2);
 
+xmiddle=mean(x);
+ymiddle=mean(y);
+
+x1=x(1); y1=y(1);
+x3=x(2); y3=y(2);
+
+Diag=[x1-xmiddle;y1-ymiddle];
+
+Vector=[xmiddle;ymiddle]+[-Diag(2);Diag(1)];
+x2=Vector(1); y2=Vector(2);
+
+Vector=[xmiddle;ymiddle]-[-Diag(2);Diag(1)];
+x4=Vector(1); y4=Vector(2);
+
 %Build Exp structure
 A=struct();
 A.nods=5;
 A.density=1;
-A.x=[x(1) x(2) x(2) x(1) x(1)]';
-A.y=[y(1) y(1) y(2) y(2) y(1)]';
+A.x=[x1 x2 x3 x4 x1]';
+A.y=[y1 y2 y3 y4 y1]';
 
 %Write structure