BSc-Thesis-Script-Zasiah.txt

FINISH

/CLEAR

!INPUT DATA IN SI UNIT (N,mm,ton)

YOUNG=20000          ! MODULUS OF ELASTICITY OF CONCRETE
DENST=2.4E-9         ! DENSITY (TON/mm**3)

SIGNIF=1.0E-10
G=9810               ! ACCELERATION DUE TO GRAVITY
Z=0.15               ! SEISMIC ZONE COEFFICIENT

NSPAN=3              ! NO. OF SPAN
NBAY =2              ! NO. OF BAY

SLABT=200            ! SLAB THICKNESS
SLABW=24000          ! SLAB WIDTH
SPAN=36000
BAY=12000            ! COLUMN TO COLUMN DISTANCE ALONG SLAB WIDTH
GS=3000              ! SPACING OF LONGITUDINAL GIRDERS

NDIV=SLABW/GS        ! NO. OF DIVISIONS ALONG SLAB WIDTH

CD=1200              ! COLUMN'S DIA
CH=7000              ! COLUMN'S HEIGHT
CA=3.142*(CD)**2/4   ! COLUMN'S AREA
CIX=3.142*(CD)**4/64 ! COLUMN'S MOMENT OF INERTIA ABOUT X AXIS
CIY=3.142*(CD)**4/64 ! COLUMN'S MOMENT OF INERTIA ABOUT Y AXIS
CIZ=CIX+CIY          ! COLUMN'S MOMENT OF INERTIA ABOUT Z AXIS


LGW=700              ! LONGITUDINAL GIRDER'S WIDTH
LGD=2500             ! LONGITUDINAL GIRDER'S DEPTH
LGA=LGW*LGD          ! LONGITUDINAL GIRDER'S AREA
LGIX=LGW*(LGD)**3/12 ! LONGITUDINAL GIRDER'S MOMENT OF INERTIA ABOUT X AXIS
LGIY=LGD*(LGW)**3/12 ! LONGITUDINAL GIRDER'S MOMENT OF INERTIA ABOUT Y AXIS
LGIZ=LGIX+LGIY       ! LONGITUDINAL GIRDER'S MOMENT OF INERTIA ABOUT Z AXIS


CGW=915              ! CROSS GIRDER'S WIDTH
CGD=2500             ! CROSS GIRDER'S DEPTH
CGA=CGW*CGD          ! CROSS GIRDER'S AREA
CGIX=CGW*(CGD)**3/12 ! CROSS GIRDER'S MOMENT OF INERTIA ABOUT X AXIS
CGIY=CGD*(CGW)**3/12 ! CROSS GIRDER'S MOMENT OF INERTIA ABOUT Y AXIS
CGIZ=CGIX+CGIY       ! CROSS GIRDER'S MOMENT OF INERTIA ABOUT Z AXIS


/PREP7

ET,1,BEAM4
ET,2,SHELL63

! REAL CONSTANT FOR COLUMNS

R,1,CA,CIX,CIY,CD,CD,,,CIZ

! REAL CONSTANT FOR  LONGITUDINAL GIRDERS

R,2,LGA,LGIX,LGIY,LGW,LGD,,,LGIZ

! REAL CONSTANT FOR CROSS GIRDERS

R,3,CGA,CGIX,CGIY,CGW,CGD,,,CGIZ

! REAL CONSTANT FOR SLAB

R,4,SLABT

! DEFINING MATERIAL PROPERTIES :-

MP,EX,1,YOUNG
MP,PRXY,1,0.2
MP,DENS,1,DENST

! STARTING THE MODELLING:-

K,1,0,0,0
K,2,SPAN,0,0
K,3,2*SPAN,0,0
K,4,3*SPAN,0,0

KSEL,ALL
KGEN,2,ALL,,,,CH

L,2,6
L,3,7
L,5,6
L,6,7
L,7,8

LSEL,S,LOC,Y,CH,CH
LGEN,NDIV+1,ALL,,,,,GS

LSEL,NONE
LSEL,S,LOC,Y,CH/2,CH/2
LGEN,3,ALL,,,,,BAY

L,KP(0,CH,0),KP(0,CH,BAY)
L,KP(0,CH,BAY),KP(0,CH,2*BAY)
L,KP(SPAN,CH,0),KP(SPAN,CH,BAY)
L,KP(SPAN,CH,BAY),KP(SPAN,CH,2*BAY)
L,KP(2*SPAN,CH,0),KP(2*SPAN,CH,BAY)
L,KP(2*SPAN,CH,BAY),KP(2*SPAN,CH,2*BAY)
L,KP(3*SPAN,CH,0),KP(3*SPAN,CH,BAY)
L,KP(3*SPAN,CH,BAY),KP(3*SPAN,CH,2*BAY)

LSEL,ALL

A,KP(0,CH,0),KP(0,CH,BAY),KP(SPAN,CH,BAY),KP(SPAN,CH,0)
A,KP(0,CH,BAY),KP(0,CH,2*BAY),KP(SPAN,CH,2*BAY),KP(SPAN,CH,BAY)
A,KP(SPAN,CH,0),KP(SPAN,CH,BAY),KP(2*SPAN,CH,BAY),KP(2*SPAN,CH,0)
A,KP(SPAN,CH,BAY),KP(SPAN,CH,2*BAY),KP(2*SPAN,CH,2*BAY),KP(2*SPAN,CH,BAY)
A,KP(2*SPAN,CH,0),KP(2*SPAN,CH,BAY),KP(3*SPAN,CH,BAY),KP(3*SPAN,CH,0)
A,KP(2*SPAN,CH,BAY),KP(2*SPAN,CH,2*BAY),KP(3*SPAN,CH,2*BAY),KP(3*SPAN,CH,BAY)

LSEL,NONE

LSEL,S,LOC,Y,CH,CH
LSEL,A,LOC,X,SPAN,SPAN
LSEL,A,LOC,X,2*SPAN,2*SPAN
LESIZE,ALL,,,4,,1

ALLSEL,ALL

TYPE,2
MAT,1

! MESHING SLAB

REAL,4

ASEL,S,LOC,Y,CH,CH
AMESH,ALL

TYPE,1
MAT,1

! MESHING CROSS GIRDERS

REAL,3

LSEL,NONE

LSEL,S,LOC,Z,BAY/2,BAY/2
LSEL,A,LOC,Z,3/2*BAY,3/2*BAY
LMESH,ALL

! MESHING LONGITUDINAL GIRDERS

REAL,2

LSEL,NONE

LSEL,S,LOC,X,SPAN/2,SPAN/2
LSEL,A,LOC,X,3/2*SPAN,3/2*SPAN
LSEL,A,LOC,X,5/2*SPAN,5/2*SPAN
LMESH,ALL


! MESHING COLUMNS

REAL,1

LSEL,S,LOC,Y,CH/2,CH/2
LMESH,ALL

ALLSEL,ALL

NUMMRG,NODE           ! MERGING COINCIDENT NODES

! APPLYING SUPPORTS :-

NSEL,S,LOC,Y,0,0
NSEL,A,LOC,X,0,0
NSEL,A,LOC,X,3*SPAN,3*SPAN

D,ALL,ALL,0

ALLSEL,ALL

/SOLU

ACEL,0,G,0

LSWRITE,1             ! SAVING THE LOADING & SUPPORT DATA AS LOAD STEP-1
LSSOLVE,1,1,1         ! SOLVING LOAD STEP-1

FINISH

/POST1

! NOW WE HAVE TO DEFINE LOAD STEP_1(DL) AS LOAD CASE_1

LCZERO                ! THIS COMMAND CLEANS ANY ANSYS LOAD CASE RESULTS FROM ANSYS MEMORY

LCDEF,1,1,1           ! DEFINING LOAD STEP-1 AS LOAD CASE-1
LCOPER,ADD,1          ! ADD RESULTS OF LOAD CASE-1 INTO MEMORY ( MULTIPLIER : 1 )
LCWRITE,1             ! WRITING LOAD CASE-1 DATA 0N TO FILE

FINISH 

! **** MODAL ANALYSIS :-

/SOLU

ACEL,0,0,0            ! REMOVING GRAVITY

ANTYPE,2              ! PERFORM A MODAL ANALYSIS

MODOPT,LANB,14        ! MODAL ANALYSIS OPTIONS,BLOCK LANCZOS,NO OF MODES

! **** NO OF MODE EXPAND IN MODAL ANALYSIS :-

! EXPASS,ON           ! SPECIFIES AN EXPANSION PASS  

MXPAND,,,,YES,SIGNIF  !! NO OF MODES TO EXPAND ,CALCULATE ELEMENT RESULTS & REACTION FORCES,
                      !  AS WELL AS THE NODAL DEGREE OF FREEDOM SOLUTION
ALLSEL,ALL

SOLVE

FINISH

!!! **** RESPONSE SPECTRUM ANALYSIS OF EQ_X :-

/SOLU

ANTYPE,8              ! PERFORM A SPECTRUM ANALYSIS

SPOPT,SPRS,,YES       !!SPECTRUM OPTIONS,SINGLE POINT EXCITATION RESONSE SPECTRUM,
                       !INCLUDE STRESS RESPONSES IN THE CALCULATIONS

SVTYPE,2,G*Z          !!TYPE OF SINGLE-POINT RESPONSE SPECTRUM,SEISMIC ACCELERATION
                       !RESPONSE SPECTRUM LOADING,SCALE FACTOR APPLIED TO SPECTRUM VALUES

SED,1,0,0             ! EXCITATION DIRECTION FOR A SINGLE-POINT RESPONSE SPECTRUM (X,Y,Z) : X


! RESPONSE SPECTRUM FUNCTION :-

FREQ,1/10,1/8,1/7,1/5,1/4,1/3
SV,0.05,0.2288,0.286,0.327,0.4576,0.572,0.7627
FREQ,1/2.5,1/1.8,1/1.6,1/1.4,1/1.2,1/0.915,1/0.00001
SV,0.05,0.915,1.271,1.43,1.635,1.91,2.5,2.5

DMPRAT,0.05

CQC,SIGNIF,DISP       !! SPECIFIES THE COMPLETE QUADRATIC  MODE COMBINATION METHOD,
                      !DISPLACEMENT SOLUTION(DEFAULT).DISPLACEMENT,STRESS,FORCE,ETC.ARE AVAILABLE
                       
ALLSEL,ALL

SOLVE

FINISH


/POST1

/INPUT,,MCOM          ! SHOWING RESULTS OF SPECTRUM VALUES OF EQ_X

LCWRITE,2             ! WRITING LOAD CASE-2 DATA OF EQ_X 0N TO FILE

FINISH



!!! **** RESPONSE SPECTRUM ANALYSIS OF EQ_Y :-


/SOLU

ANTYPE,8              ! PERFORM A SPECTRUM ANALYSIS

SPOPT,SPRS,,YES       !!SPECTRUM OPTIONS,SINGLE POINT EXCITATION RESONSE SPECTRUM,
                       !INCLUDE STRESS RESPONSES IN THE CALCULATIONS

SVTYPE,2,G*Z          !!TYPE OF SINGLE-POINT RESPONSE SPECTRUM,SEISMIC ACCELERATION
                       !RESPONSE SPECTRUM LOADING,SCALE FACTOR APPLIED TO SPECTRUM VALUES


SED,0,1,0             ! EXCITATION DIRECTION FOR A SINGLE-POINT RESPONSE SPECTRUM (X,Y,Z) : Y

DMPRAT,0.05

CQC,SIGNIF,DISP       !! SPECIFIES THE COMPLETE QUADRATIC  MODE COMBINATION METHOD,
                      !DISPLACEMENT SOLUTION(DEFAULT).DISPLACEMENT,STRESS,FORCE,ETC.ARE AVAILABLE
                       
ALLSEL,ALL

SOLVE

FINISH


/POST1

/INPUT,,MCOM          ! SHOWING RESULTS OF SPECTRUM VALUES OF EQ_Y

LCWRITE,3             ! WRITING LOAD CASE-3 DATA OF EQ_Y 0N TO FILE

FINISH


!!! **** RESPONSE SPECTRUM ANALYSIS OF EQ_Z :-

/SOLU

ANTYPE,8              ! PERFORM A SPECTRUM ANALYSIS

SPOPT,SPRS,,YES       !!SPECTRUM OPTIONS,SINGLE POINT EXCITATION RESONSE SPECTRUM,
                       !INCLUDE STRESS RESPONSES IN THE CALCULATIONS

SVTYPE,2,G*Z          !!TYPE OF SINGLE-POINT RESPONSE SPECTRUM,SEISMIC ACCELERATION
                       !RESPONSE SPECTRUM LOADING,SCALE FACTOR APPLIED TO SPECTRUM VALUES


SED,0,0,1            ! EXCITATION DIRECTION FOR A SINGLE-POINT RESPONSE SPECTRUM (X,Y,Z) : Z


DMPRAT,0.05

CQC,SIGNIF,DISP       !! SPECIFIES THE COMPLETE QUADRATIC  MODE COMBINATION METHOD,
                      !DISPLACEMENT SOLUTION(DEFAULT).DISPLACEMENT,STRESS,FORCE,ETC.ARE AVAILABLE
                       
ALLSEL,ALL

SOLVE

FINISH


/POST1

/INPUT,,MCOM          ! SHOWING RESULTS OF SPECTRUM VALUES OF EQ_Z

LCWRITE,4             ! WRITING LOAD CASE-4 DATA OF EQ_Z 0N TO FILE

FINISH


!!! **** PROCESSING TO GET SUPPORT REACTIONS FOR DIFFERENT LOAD CASE COMBINATIONS :-


/POST1


!! NOW COMBINING LOADCASES  :-

! **** LC_1:DL, LC_2:EQX, LC_3:EQY, LC_4:EQZ


! **** FORMATION  OF  SERVICE LOADS : -


!  **** COMBINATION : DL+EQX FOR LC_11 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,2,1            ! FACTORING EQX CASE WITH 1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,2          ! ADDING LOAD CASE 2 WITH THE EXISTING DATA OF MEMORY

LCWRITE,11            ! WRITING MEMORY RESULTS AS LOAD CASE 11 

! **** COMBINATION : DL-EQX FOR LC_12 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,2,-1           ! FACTORING EQX CASE WITH -1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,2          ! ADDING LOAD CASE 2 WITH THE EXISTING DATA OF MEMORY

LCWRITE,12            ! WRITING MEMORY RESULTS AS LOAD CASE 12 

! **** COMBINATION : DL+EQY FOR LC_13 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,3,1            ! FACTORING EQY CASE WITH 1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,3          ! ADDING LOAD CASE 3 WITH THE EXISTING DATA OF MEMORY

LCWRITE,13            ! WRITING MEMORY RESULTS AS LOAD CASE 13 

! **** COMBINATION : DL-EQY FOR LC_14 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,3,-1           ! FACTORING EQY CASE WITH -1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,3          ! ADDING LOAD CASE 3 WITH THE EXISTING DATA OF MEMORY

LCWRITE,14            ! WRITING MEMORY RESULTS AS LOAD CASE 14 

! **** COMBINATION : DL+EQZ FOR LC_15 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,4,1            ! FACTORING EQZ CASE WITH 1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,4          ! ADDING LOAD CASE 4 WITH THE EXISTING DATA OF MEMORY

LCWRITE,15            ! WRITING MEMORY RESULTS AS LOAD CASE 15 

! **** COMBINATION : DL-EQZ FOR LC_16 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1            ! FACTORING DL  CASE WITH 1
LCFACT,4,-1           ! FACTORING EQZ CASE WITH -1
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,4          ! ADDING LOAD CASE 4 WITH THE EXISTING DATA OF MEMORY

LCWRITE,16            ! WRITING MEMORY RESULTS AS LOAD CASE 16 



!! **** FORMATION  OF  FACTORED  LOADS : -

! **** COMBINATION : 1.05DL+1.4EQX FOR LC_21 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,2,1.4          ! FACTORING EQX CASE WITH 1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,2          ! ADDING LOAD CASE 2 WITH THE EXISTING DATA OF MEMORY

LCWRITE,21            ! WRITING MEMORY RESULTS AS LOAD CASE 21

! **** COMBINATION : 1.05DL-1.4EQX FOR LC_22 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,2,-1.4         ! FACTORING EQX CASE WITH -1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,2          ! ADDING LOAD CASE 2 WITH THE EXISTING DATA OF MEMORY

LCWRITE,22            ! WRITING MEMORY RESULTS AS LOAD CASE 22 

! **** COMBINATION : 1.05DL+1.4EQY FOR LC_23 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,3,1.4          ! FACTORING EQX CASE WITH 1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,3          ! ADDING LOAD CASE 3 WITH THE EXISTING DATA OF MEMORY

LCWRITE,23            ! WRITING MEMORY RESULTS AS LOAD CASE 23

! **** COMBINATION : 1.05DL-1.4EQY FOR LC_24 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,3,-1.4         ! FACTORING EQX CASE WITH -1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,3          ! ADDING LOAD CASE 3 WITH THE EXISTING DATA OF MEMORY

LCWRITE,24            ! WRITING MEMORY RESULTS AS LOAD CASE 24 

! **** COMBINATION : 1.05DL+1.4EQZ FOR LC_25 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,4,1.4          ! FACTORING EQX CASE WITH 1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,4          ! ADDING LOAD CASE 4 WITH THE EXISTING DATA OF MEMORY

LCWRITE,25            ! WRITING MEMORY RESULTS AS LOAD CASE 25

! **** COMBINATION : 1.05DL-1.4EQZ FOR LC_26 :-

LCZERO                ! CLEARING ANSYS MEMORY

LCFACT,1,1.05         ! FACTORING DL  CASE WITH 1.05
LCFACT,4,-1.4         ! FACTORING EQX CASE WITH -1.4
LCOPER,ADD,1          ! ADDING LOAD CASE 1 INTO MEMORY
LCOPER,ADD,4          ! ADDING LOAD CASE 4 WITH THE EXISTING DATA OF MEMORY

LCWRITE,26            ! WRITING MEMORY RESULTS AS LOAD CASE 26 

/ESHAPE,1.0

PLDISP,1


!! IDENTIFICATION OF THE LOAD CASES :-

!LC_1=DL;
!LC_2=EQ_X;
!LC_3=EQ_Y;
!LC_4=EQ_Z;

!LC_11=DL+EQ_X;
!LC_12=DL-EQ_X;
!LC_13=DL+EQ_Y;
!LC_14=DL-EQ_Y;
!LC_15=DL+EQ_Z;
!LC_16=DL-EQ_Z;

!LC_21=1.O5DL+1.4EQ_X;
!LC_22=1.O5DL-1.4EQ_X;
!LC_23=1.O5DL+1.4EQ_Y;
!LC_24=1.O5DL-1.4EQ_Y;
!LC_25=1.O5DL+1.4EQ_Z;
!LC_26=1.O5DL-1.4EQ_Z;



!!  PRINTING DATAS OF REACTION FORCES OF LEFT & RIGHT SUPPORTS :-


*CFOPEN,LCRESULT,TXT


!! *** RESULTS FOR BASIC LOADS [1 TO 4]:-

*DO,LOADCASE,1,4,1
 LCA=LOADCASE

LCFILE,LOADCASE      ! TELLING ANSYS TO READ LOAD CASE 1 TO 4 DATA STORED IN FILE
LCASE,LOADCASE       ! READING LOAD CASE DATA FROM FILE DISCARDING PREVIOUS DATA IN MEMORY

!! REACTION FORCES IN KN & MOMENTS IN KN-M : -

*DO,NOM,0,2,1

*GET,RXA,NODE,NODE(SPAN,0,BAY*NOM),RF,FX
*GET,RYA,NODE,NODE(SPAN,0,BAY*NOM),RF,FY 
*GET,RZA,NODE,NODE(SPAN,0,BAY*NOM),RF,FZ
*GET,MXA,NODE,NODE(SPAN,0,BAY*NOM),RF,MX
*GET,MYA,NODE,NODE(SPAN,0,BAY*NOM),RF,MY
*GET,MZA,NODE,NODE(SPAN,0,BAY*NOM),RF,MZ

*VWRITE,LCA,BAY*NOM,RXA/1000,RYA/1000,RZA/1000,MXA*1E-6,MYA*1E-6,MZA*1E-6 

(" REACTION FORCES OF LEFT  SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)

*ENDDO

*DO,MON,0,2,1

*GET,RXB,NODE,NODE(2*SPAN,0,BAY*MON),RF,FX 
*GET,RYB,NODE,NODE(2*SPAN,0,BAY*MON),RF,FY
*GET,RZB,NODE,NODE(2*SPAN,0,BAY*MON),RF,FZ
*GET,MXB,NODE,NODE(2*SPAN,0,BAY*MON),RF,MX
*GET,MYB,NODE,NODE(2*SPAN,0,BAY*MON),RF,MY
*GET,MZB,NODE,NODE(2*SPAN,0,BAY*MON),RF,MZ

*VWRITE,LCA,BAY*MON,RXB/1000,RYB/1000,RZB/1000,MXB*1E-6,MYB*1E-6,MZB*1E-6 

(" REACTION FORCES OF RIGHT SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)

*ENDDO

*ENDDO

!! *** RESULTS FOR SERVICE LOADS [11 TO 16] :-

*DO,LDCASE,11,16,1
 LC=LDCASE

LCFILE,LDCASE      ! TELLING ANSYS TO READ LOAD CASE 11 TO 16 DATA STORED IN FILE
LCASE,LDCASE       ! READING LOAD CASE DATA FROM FILE DISCARDING PREVIOUS DATA IN MEMORY

*DO,NOM,0,2,1

*GET,RXC,NODE,NODE(SPAN,0,BAY*NOM),RF,FX
*GET,RYC,NODE,NODE(SPAN,0,BAY*NOM),RF,FY 
*GET,RZC,NODE,NODE(SPAN,0,BAY*NOM),RF,FZ
*GET,MXC,NODE,NODE(SPAN,0,BAY*NOM),RF,MX
*GET,MYC,NODE,NODE(SPAN,0,BAY*NOM),RF,MY
*GET,MZC,NODE,NODE(SPAN,0,BAY*NOM),RF,MZ

*VWRITE,LC,BAY*NOM,RXC/1000,RYC/1000,RZC/1000,MXC*1E-6,MYC*1E-6,MZC*1E-6 

(" REACTION FORCES OF LEFT  SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)



*ENDDO

*DO,MON,0,2,1

*GET,RXD,NODE,NODE(2*SPAN,0,BAY*MON),RF,FX 
*GET,RYD,NODE,NODE(2*SPAN,0,BAY*MON),RF,FY
*GET,RZD,NODE,NODE(2*SPAN,0,BAY*MON),RF,FZ
*GET,MXD,NODE,NODE(2*SPAN,0,BAY*MON),RF,MX
*GET,MYD,NODE,NODE(2*SPAN,0,BAY*MON),RF,MY
*GET,MZD,NODE,NODE(2*SPAN,0,BAY*MON),RF,MZ

*VWRITE,LC,BAY*MON,RXD/1000,RYD/1000,RZD/1000,MXD*1E-6,MYD*1E-6,MZD*1E-6 

(" REACTION FORCES OF RIGHT SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)


*ENDDO

*ENDDO


!! *** RESULTS FOR FACTORED LOADS [21 TO 26] :-

*DO,LODCASE,21,26,1
 LCC=LODCASE

LCFILE,LODCASE      ! TELLING ANSYS TO READ LOAD CASE 21 TO 26 DATA STORED IN FILE
LCASE,LODCASE       ! READING LOAD CASE DATA FROM FILE DISCARDING PREVIOUS DATA IN MEMORY

*DO,NOM,0,2,1

*GET,RXE,NODE,NODE(SPAN,0,BAY*NOM),RF,FX
*GET,RYE,NODE,NODE(SPAN,0,BAY*NOM),RF,FY 
*GET,RZE,NODE,NODE(SPAN,0,BAY*NOM),RF,FZ
*GET,MXE,NODE,NODE(SPAN,0,BAY*NOM),RF,MX
*GET,MYE,NODE,NODE(SPAN,0,BAY*NOM),RF,MY
*GET,MZE,NODE,NODE(SPAN,0,BAY*NOM),RF,MZ

*VWRITE,LCC,BAY*NOM,RXE/1000,RYE/1000,RZE/1000,MXE*1E-6,MYE*1E-6,MZE*1E-6 

(" REACTION FORCES OF LEFT  SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)

*ENDDO

*DO,MON,0,2,1

*GET,RXF,NODE,NODE(2*SPAN,0,BAY*MON),RF,FX 
*GET,RYF,NODE,NODE(2*SPAN,0,BAY*MON),RF,FY
*GET,RZF,NODE,NODE(2*SPAN,0,BAY*MON),RF,FZ
*GET,MXF,NODE,NODE(2*SPAN,0,BAY*MON),RF,MX
*GET,MYF,NODE,NODE(2*SPAN,0,BAY*MON),RF,MY
*GET,MZF,NODE,NODE(2*SPAN,0,BAY*MON),RF,MZ

*VWRITE,LCC,BAY*MON,RXF/1000,RYF/1000,RZF/1000,MXF*1E-6,MYF*1E-6,MZF*1E-6
 
(" REACTION FORCES OF RIGHT SUPPORT IN LC : ",F10.3,"  AT Z =",F7.1," RX: ",F12.3,"              RY: ",F12.3,"   RZ: ",F12.3,"  MX : ",F12.3,"  MY: ",F12.3,"  MZ: ",F12.3)

*ENDDO

*ENDDO

*CFCLOS             ! CLOSING FILE  

/REPLOT

FINISH