Question 2.21: Write a computer program to calculate normal and shear stres...

.DIRECTION
. SXY = SHEAR FORCE IN XY DIRECTION
CLS
INPUT  FX,   FY,   SXY,   THETA
FP = (FX + FY)/2
FM = (FX – FY)/2
T2 = 2 *  THETA *   3.1415927/180
FX1 = FP + FM * COS (T2) – SXY * SIN (T2)
SXY1 = FM * SIN (T2) + SXY * COS (T2)
SMAX = SOR (FM A 2 + SXY A 2)
FMAX = FP + SMAX
FMIN = FP – SMAX
TP = .5 * ATN (-SXY/FM) * 180/3.1415927
PRINT “FX1 = “; FX1 , “SXY1 = “; SXY1
PRINT “FMAX = “; FMAX ; “FMIN = “; FMIN ; ;
PRINT ” ANGLE TP = “: TP
PRINT “SMAX = “; SMAX
END