use *dsload for edge load application

Author: mkraska

Linear/L-Plate/README.md

@@ -16,13 +16,18 @@ Tested with CGX/CCX 2.11
 ## Model Description
 The model is a flat L-shaped plate.
 
+| Parameter | Value | Meaning |
+| :------------- |  :------------- | :------------- |
+| `h` | 100 | edge length parameter in mm |
+| `p` | 1 | pressure in MPa |
+
 <img src="mesh.png" width="400" title="mesh">
 
 Boundary conditions
 + UY=0, UZ=0 at the upper edge (red)
 + UX=0, UZ=0 at the left edge (green)
 + UZ=0 at the lower (blue) and right (magenta) edges
-+ Line load in y-direction (1 N/mm)
++ Line load in y-direction (1 N/mm), applied as pressure to surface `Slower`
 
 <img src="RFv.png" width="400" title="Reactions and loads">
 <img src="PS3.png" width="400" title="Minimum principal stress">

Linear/L-Plate/par.run.fbl

@@ -29,6 +29,7 @@ comp elower up
 # include element faces for surface definition (for *dsload)
 comp lower do
 send lower abq sur
+sys echo Slower,P, <p> > pressure.inc
 # left edge
 enq nodes left rec <-2*h> _ _ 0.01
 # right edge

Linear/L-Plate/solve.inp

@@ -21,10 +21,10 @@ Nright,3,3,0
 1
 *STEP
 *static
-***dsload
-**Slower,1.
-*dload
-Eelower,EDNOR2,1
+*dsload
+*include, input=pressure.inc
+***dload
+**Eelower,EDNOR2,1
 *NODE FILE
 U, RF
 *EL FILE
@@ -40,10 +40,10 @@ U
 *STEP
 *buckle
 3
-**dsload
-**Slower,1.
-*dload
-Eelower,EDNOR2,1
+*dsload
+*include, input=pressure.inc
+***dload
+**Eelower,EDNOR2,1
 *NODE FILE
 U
 *el file