added screenshot1

Elasticity/wrench2D.pro

@@ -81,7 +81,7 @@ Function {
   force_y[] = 0;
   /* Components of the surface traction force applied to the region "Sur_Force_Mec" */
   pressure_x[] = 0;
-  pressure_y[] = AppliedForce/(SurfaceArea[]*Thickness);
+  pressure_y[] = -AppliedForce/(SurfaceArea[]*Thickness); // downward vertical force
 }
 
 
@@ -343,7 +343,7 @@ PostOperation {
       Echo[ StrCat["l=PostProcessing.NbViews-1; ", 
       		   "View[l].VectorType = 5; ",
       		   "View[l].ExternalView = l; ",
-      		   "View[l].DisplacementFactor = 100; ",
+      		   "View[l].DisplacementFactor = 200; ",
       		   "View[l-1].IntervalsType = 3; "
 		   ],
              File "tmp.geo", LastTimeStepOnly] ;