$
SOL 101
$ 
$
$compile sedrcvr $
$alter 'output2.*oes1c,oefit,oesrt' (1,-1) $ 
$copy oesrt/oefitz/always/-1 $ 
$type parm,,i,n,reclpoef $ 
$reclpoef=1 $ 
$do while ( reclpoef>=0 ) $ 
$paraml oefitz/oefitzz/'tabrepi'/s,n,reclpoef/2//25 $ 
$reclpoef = reclpoef + 2 $ 
$paraml oefit//'dti'/s,n,reclpoef/2//s,n,junkit $ 
$equivx oefitzz/oefitz/always $ 
$enddo $ reclpoef 
$equivx oefitzz/oefit/always $ 
$endalter 

CEND
TITLE = 2 PLATE - QUAD4 COMPOSITE
SUBTITLE =
$
STRESS = ALL
SPC = 1
$
subcase 1
 label = 
 LOAD = 1
$
subcase 2
 label = increase load by 23.396%
 load = 2
$
subcase 3
 label = increase load by 13.319 % base
 load = 3
$
BEGIN BULK
$
PARAM	SRCOMPS	YES
PARAM	POST	1
GRID    1               0.      0.      0.
GRID    2               10.     0.      0.
GRID    3               20.     0.      0.
GRID    4               0.      5.      0.
GRID    5               10.     5.      0.
GRID    6               20.     5.      0.
$
CQUAD4  10      1       1       2       5       4
CQUAD4  20      1       2       3       6       5
$
PCOMP   1                       1.0+4   TSAI                            +
+       1       .1      0.      YES     1       .1      0.      YES
$
MAT8    1       3.+7    7.5+5   .25     3.75+5                  .1      +
+                               1.5+5   1.+5    6.+3    1.7+4   1.+4
$
PARAM   WTMASS  .00259
$
FORCE   1       3               200.    0.      0.      -1.
FORCE   1       6               200.    0.      0.      -1.
$
FORCE   2       3               246.79  0.      0.      -1.
FORCE   2       6               246.79  0.      0.      -1.
$
FORCE   3       3               226.64  0.      0.      -1.
FORCE   3       6               226.64  0.      0.      -1.
$
SPC1    1       123456  1       4
$
ENDDATA
