CODE:


!   Commands inserted into this file will be executed just prior to the ANSYS SOLVE command.
!   These commands may supersede command settings set by Workbench.

!   Active UNIT system in Workbench when this object was created:  Metric (mm, kg, N, s, mV, mA)
!   NOTE:  Any data that requires units (such as mass) is assumed to be in the consistent solver unit system.
!                See Solving Units in the help system for more information.


!Definition der Komponenten

SELTOL,0.01

!1. Obere Kante
NSEL,S,LOC,Y,30,30
NSEL,R,LOC,X,0,15
CM,TOP,NODE
CMLIST,TOP,1,NODE

ALLSEL

!2. Untere Kante
NSEL,S,LOC,Y,0,0
NSEL,R,LOC,X,0,15
CM,BOT,NODE
CMLIST,BOT,1,NODE

ALLSEL

!-------

!Festlegung des LS
!Lagerung
ALLSEL

KBC,0

CMSEL,S,BOT,NODE
D,BOT,UY,0
D,BOT,UX,0

!Kraft
ALLSEL

CMSEL,S,TOP,NODE
*GET,TOPNODENUM_,NODE,0,COUNT
*DIM,TOPNODES_,ARRAY,TOPNODENUM_
*VGET,TOPNODES_(1),NODE,,NLIST
*STATUS,TOPNODES_

FAPL_=-90000/TOPNODENUM_ !Kraft pro Node

*DO,i,1,TOPNODENUM_,1

	F,TOPNODES_(i),FY,FAPL_

*ENDDO

FLIST,ALL


ALLSEL

LSWRITE,1

!--------

LSSOLVE,1,1,1
FINISH

!-------

!Ermittlung der Reaktionskräfte
/POST1
CMSEL,S,BOT,NODE
*GET,BOTNODENUM_,NODE,0,COUNT
*DIM,BOTNODES_,ARRAY,BOTNODENUM_
*VGET,BOTNODES_(1),NODE,,NLIST
*STATUS,BOTNODES_

FYSUM_=0

*DO,j,1,BOTNODENUM_,1

	*GET,FYNODE_,NODE,BOTNODES_(j),RF,FY
	FYSUM_=FYSUM_+FYNODE_

*ENDDO

REAKTIONSKRAFT_=FYSUM_
*STATUS,REAKTIONSKRAFT_


!-------

/EXIT






Solver-Output:
Aufbringung der Kraft:

 PARAMETER FAPL_ =    -6923.076923    

 *DO LOOP ON PARAMETER= I FROM  1.0000     TO  13.000     BY  1.0000    

 SPECIFIED NODAL LOAD FY   FOR SELECTED NODES         1 TO        1 BY        1
  REAL= -6923.07692       IMAG=  0.00000000    

 *ENDDO  INDEX= I                               

 LIST NODAL FORCES FOR SELECTED NODES         1 TO      233 BY        1
 CURRENTLY SELECTED NODAL LOAD SET= FX   FY  

 *** ANSYS - ENGINEERING ANALYSIS SYSTEM  RELEASE Release 19.2     19.2     ***
 DISTRIBUTED ANSYS Academic Research                           

 01003534  VERSION=WINDOWS x64   14:58:03  NOV 16, 2018 CP=      0.391

 APDLUebung2--Statisch-mechanisch (B5)                                         


 
    NODE  LABEL     REAL           IMAG
        1  FY     -6923.07692      0.00000000    
       19  FY     -6923.07692      0.00000000    
       30  FY     -6923.07692      0.00000000    
       31  FY     -6923.07692      0.00000000    
       32  FY     -6923.07692      0.00000000    
       33  FY     -6923.07692      0.00000000    
       34  FY     -6923.07692      0.00000000    
       86  FY     -6923.07692      0.00000000    
      120  FY     -6923.07692      0.00000000    
      140  FY     -6923.07692      0.00000000    
      142  FY     -6923.07692      0.00000000    
      144  FY     -6923.07692      0.00000000    
      146  FY     -6923.07692      0.00000000    




Die Reaktionskraft:

*GET  BOTNODENUM_  FROM  NODE  ITEM=COUN       VALUE=  13.0000000     

 SET PARAMETER DIMENSIONS ON  BOTNODES_
  TYPE=ARRA  DIMENSIONS=       13        1        1

 VECTOR GET OPERATION  BOTNODES_(1)  VECTOR LENGTH=      13
 NAME= NODE         0  NLIS      

 PARAMETER STATUS- BOTNODES_  (     29 PARAMETERS DEFINED)
                  (INCLUDING       24 INTERNAL PARAMETERS)

      LOCATION                VALUE
        1       1       1    2.00000000     
        2       1       1    13.0000000     
        3       1       1    14.0000000     
        4       1       1    15.0000000     
        5       1       1    16.0000000     
        6       1       1    17.0000000     
        7       1       1    18.0000000     
        8       1       1    88.0000000     
        9       1       1    108.000000     
       10       1       1    110.000000     
       11       1       1    112.000000     
       12       1       1    114.000000     
       13       1       1    116.000000     

 PARAMETER FYSUM_ =     0.000000000    

 *DO LOOP ON PARAMETER= J FROM  1.0000     TO  13.000     BY  1.0000    

 *GET  FYNODE_   FROM  NODE         2  ITEM=RF   FY    VALUE= 0.674049022E-001

 PARAMETER FYSUM_ =    0.6740490219E-01

 *ENDDO  INDEX= J                               

 PARAMETER REAKTIONSKRAFT_ =     89999.99996    

 PARAMETER STATUS- REAKTIONSKRAFT_  (     33 PARAMETERS DEFINED)
                  (INCLUDING       27 INTERNAL PARAMETERS)

 NAME                              VALUE                        TYPE  DIMENSIONS
 REAKTIONSKRAFT_                   90000.0000                  SCALAR

 EXIT THE ANSYS POST1 DATABASE PROCESSOR