0% found this document useful (0 votes)
48 viewsProgramming 3
Fem3
Uploaded by
Sparrow JackCopyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF or read online on Scribd
0% found this document useful (0 votes)
48 viewsProgramming 3
Fem3
Uploaded by
Sparrow JackCopyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF or read online on Scribd
/ 10
450
2 Fe19A(1,4)*8(K,9)
CUa)ak
CONTINUE
RETURN
EO
SUBROUTINE MATRAN(A,1A,8, 18,H,N)
‘THIS SUBROUTINE FORMS THE TRANSPOSE OF A MATRIX
REAL ACTA, 4), B(18,)
DoT I1,h >
001 9-1.
(9,1) =8(1,9)
RETURN
ENO
SUBROUTINE HOCOPL (PHI, PS1,€,V, STRESS, PL)
‘THIS, SUBROUTINE FORMS THE PLASTIC STRESS/STRAIN MATRIX.
FOR’ A WOHR-COULOME MATERIAL (PHI, PS1 IN DEGREES)
REAL STRESS(4) ROM(4) ,COL(4) PLC, 4)
a
(3)
SyaSTRESS(2)
THesTRES
‘S2-STRESS(
Pla *ATANG
PHRSPRT*PI/i
PSIRSPSI=PI/160.
‘Sn H=SIN (PAIR
pesesinsin
Sg3=S0RT(3
tase”
0a (2*54-51-829/3.
Ove(2.*8¥-82-83)/3
z=(2.952-51-89)/3.
SeeSaT (On BY-OVR-baeoxeTaYTAY)
3-pK*0"*07-b2ATRY*TAY
Tien 3.#5Q3%03/ (2.7023)
IFCTH. GEL.) Hed
TECH. THe
THeASINGTIY/S.
‘SNTH=SIN(TH)
E88 HTH. 49y Hen
IF(SNTH.LT.0.)siGe1.
w=SWPRE(1.40)/3.
RPSESNDS#(1-40)/3,
Se. 258803 /024(1 45
Chan seesta/oestL ss
NPS /3.)
NPH/3..)
CCOL(i)=RPwHcPHE( (i. -¥)°DK=V"(O¥+02)
COL(2)=RP W)s0vewe(0z40X))
outa )acenescarny
OL ey sR 4-1 zy oray
oni) «RPS azPse( (1: -¥)pxave(oFe07;
‘ow(2)«RPSazPS¥( (1. -¥)eDrave(0Z4DT))
Row(3)