thanks for the challenge.
regards, michael
'public domain
DIM c AS DOUBLE
DIM ra AS DOUBLE
DIM rb AS DOUBLE
DIM ang AS DOUBLE
PRINT
INPUT "c inches? ", c
INPUT "rb,ra aspect ratio? ", rb, ra
ang = ATN(ra / rb)
a = c * SIN(ang)
b = c * COS(ang)
PRINT b, a
PRINT a * b; "square inches."
END
|