!---------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------- geometrie ------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------

    /PREP7

        /COLOR,PBAK,ON,3,13
        /REPLOT

!---------------------------------------------------------------------------------------------------------------------------
!------------------------------------------------ element definition -------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------
            
            ET,1,SHELL93
            
!---------------------------------------------------------------------------------------------------------------------------
!----------------------------------------------- material definition -------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------
            
            MP,EX,1,210000
            MP,PRXY,1,0.3
            R,1,100
        
!---------------------------------------------------------------------------------------------------------------------------
!----------------------------------------------- geometrie definition ------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------
            
            K,1,0,50,0
            K,2,1000,50,0
            K,3,1000,-50,0
            K,4,0,-50,0
            
            A,1,4,3,2                  

!---------------------------------------------------------------------------------------------------------------------------
            
            TYPE,1                     
            MAT,1
            REAL,1
            ESIZE,25
            AMESH,1       
                    
!---------------------------------------------------------------------------------------------------------------------------
!------------------------------------------------ boundary conditions ------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------
            
            LSEL,S,LINE,,1
            NSLL,S,1
            D,ALL,ALL
           
            ALLSEL
            
            NSEL,S,LOC,X,1000
            *GET,n_count,NODE,,COUNT
            F,ALL,FZ,-1000/n_count
            
            ALLSEL

    FINISH

!---------------------------------------------------------------------------------------------------------------------------
!------------------------------------------------------ solution -----------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------

    /SOLU
    
        RESCONTROL,,ALL,ALL
        ANTYPE,STATIC                   
        NLGEOM,ON 
        SOLCONTROL,ON
        AUTOTS,OFF
        OUTRES,ALL,ALL
        
        TIME,t_step
        NSUBST,10
        
        SOLVE
    
    FINISH

!---------------------------------------------------------------------------------------------------------------------------
!--------------------------------------------------- postprocessing --------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------
    
    /POST1
        
        PLNSOL,U,Z,0,1.0 
        /GRAPHICS,FULL
        *GET,eng,PRERR,0,SENSM
        *STATUS
    
    FINISH

!---------------------------------------------------------------------------------------------------------------------------
!-------------------------------------------------------- end --------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------