%%HP: T(1)A(R)F(.);
DIR
  EXI
     CLEAR
    
  AX
     DISP .01 WAIT
    
  CRE
     CLEAR CLLCD
"Inertia was made by
Carlos Marangon-1999

hpfb@usa.net
www.geocities.com/
~hpfb"
1 DISP 0 WAIT MEnu
    
  MEnu
     -40 CF 64
STWS
"   XG,YG,IG & AREA"
{ { "Circular Ring"
CRIN } {
"Circular Cup" CCUP
} { "Circ. Sector"
CSEC } { "Circle"
CIR } { "Elipsis"
ELIP } {
"Vazed Square" VSQR
} {
"Vaz. Rectangle"
VREC } {
"Half Circle" HCIR
} {
"Half Circ Upsidown"
UHCIR } {
"Quarter of Circle"
QCIR } { "Square"
SQR } { "Trapezoid"
TRA } { "Triangle"
TRI } { "Lozangue"
LOZ } {
"Quadrilateral" QLL
} { "Poligon" POL }
{ "Half Elipsis"
HEP } { "Double T"
DBT } { "Credits"
CRE } { "Exit" EXI
} } 1 CLLCD CHOOSE
      IF 0 ==
      THEN CLEAR
KILL
      END EVAL
    
  DBT
     CLEAR
"Double T
Enter e b h"
"" INPUT OBJ  E B
H
       CLEAR CLLCD
'(B-E)/2' 'H-2*E' '
(E+B)/4'  B1 H1 D1
         "XG = " '
B/2' EVAL STR + 2
DISP .01 WAIT
"YG = " 'H/2' EVAL
STR + 3 DISP .01
WAIT "IGx = " 'B*H^
3/12-1/6*(B1*H1^3)'
EVAL STR + 4 DISP
.01 WAIT "IGy = " '
B^3*H/12-1/6*B1^3*
H1-2*B1*H1*D1^2'
EVAL STR + 5 DISP
.01 WAIT "A = " 'E*
(H+2*B-2*E)' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
        
      
    
  CCUP
     CLEAR
"Circular Cup
Enter R "
"" INPUT OBJ  R A
       CLEAR CLLCD
"Circular Cup" 1 AX
"YG = " 'R*SIN(A)'
EVAL STR + 3 AX
"XG = " '2*R*SIN(A)
^3/(6*A-3*SIN(2*A))
' EVAL STR + 4 AX
"IG = " 'R^2*(A-SIN
(2*A))*R^4*(1-4*SIN
(A)^3*COS(A)/(6*A-3
*SIN(2*A)))' EVAL
STR + 5 AX "A = "
'R^2*(A-SIN(2*A))'
EVAL STR + 6 DISP
0 WAIT
      
    
  CSEC
     CLEAR
"Circular Sector
Enter R "
"" INPUT OBJ  R A
       CLEAR CLLCD
"Circular Sector" 1
AX "XG = " '2/(3*A)
*(R*SIN(A))' EVAL
STR + 3 AX "YG = "
'R*SIN(A)' EVAL
STR + 4 AX "IG = "
'.25*R^4*(A-SIN(A)*
COS(A))' EVAL STR
+ 5 AX "A = " 'R^2*
A' EVAL STR + 6
DISP 0 WAIT CLEAR
MEnu
      
    
  CRIN
     CLEAR -2 SF
"Circular Ring
Enter R r"
"" INPUT OBJ  R r
       CLEAR CLLCD
"Circular Ring" 1
DISP .01 WAIT
"XG = " 'R' EVAL
STR + 3 DISP .01
WAIT "YG = " 'R'
EVAL STR + 4 DISP
.01 WAIT "IG = " '
*(R^4-r^4)/4' EVAL
STR + 5 DISP .01
WAIT "A = " '*(R^2
-r^2)' EVAL STR +
6 DISP 0 WAIT
       MEnu
    
  CIR
     CLEAR -2 SF
"Circle
Enter R" ""
INPUT OBJ  R
       CLEAR CLLCD
"Circle" 1 AX
"XG = " 'R' EVAL
STR + 3 AX "YG = "
'R' EVAL STR + 4
AX "IG = " '*R^4/4
' EVAL STR + 5 AX
"A = " '*R^2' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
      
    
  ELIP
     CLEAR -2 SF
"Elipsis
Enter a b"
"" INPUT OBJ  a b
       CLEAR CLLCD
"Elipsis" 1 AX
"XG = " 'a' EVAL
STR + 3 AX "YG = "
'b' EVAL STR + 4
AX "IG = " '*a*b^3
/4' EVAL STR + 5
AX "A = " '*a*b'
EVAL STR + 6 DISP
0 WAIT CLEAR MEnu
      
    
  VREC
     CLEAR -2 SF
"Vazed Rectangle
Enter a b a1 b1"
"" INPUT OBJ  a b
a1 b1
       CLEAR CLLCD
"Vazed Rectangle" 1
AX "XG = " 'a/2'
EVAL STR + 3 AX
"YG = " 'b/2' EVAL
STR + 4 AX "IG = "
'(a*b^3-a1*b1^3)/12
' EVAL STR + 5 AX
"A = " 'a*b-a1*b1'
EVAL STR + 6 DISP
0 WAIT CLEAR MEnu
      
    
  VSQR
     CLEAR -2 SF
"Vazed Square
Enter a b"
"" INPUT OBJ  a b
       CLEAR CLLCD
"Vazed Square" 1 AX
"XG = " 'a/2' EVAL
STR + 3 AX "YG = "
'a/2' EVAL STR + 4
AX "IG = " '(a^4-b^
4)/12' EVAL STR +
5 AX "A = " 'a*a-b*
b' EVAL STR + 6
DISP 0 WAIT CLEAR
MEnu
      
    
  HCIR
     CLEAR -2 SF
"Half Circle
Enter r"
"" INPUT OBJ  r
       CLEAR CLLCD
"Half Circle" 1 AX
"XG = " 'r' EVAL
STR + 3 AX "IG = "
'.109756960647*r^4'
EVAL STR + 5 AX
"YG = " 'r*
.238732414637' EVAL
STR + 4 AX "A = "
'.5**r^2' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
      
    
  UHCIR
     CLEAR -2 SF
"Half Circle Upsidown
Enter r"
"" INPUT OBJ  r
       CLEAR CLLCD
"Half Circle Upsidown"
1 AX "XG = " 'r'
EVAL STR + 3 AX
"IG = " '
.109756960647*r^4'
EVAL STR + 5 AX
"YG = " 'r*
.575586818422' EVAL
STR + 4 AX "A = "
'.5**r^2' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
TAG
      
    
  QCIR
     CLEAR -2 SF
"Quarter of Circle
Enter r"
"" INPUT OBJ  r
       CLEAR CLLCD
"Quarter of Circle"
1 AX "XG = " '
.238732414637*r'
EVAL STR + 3 AX
"YX = " '
.238732414637*r'
EVAL STR + 4 AX
"IG = " 'r^4*.55'
EVAL STR + 5 AX
"A = " '.25**r^2'
EVAL STR + 6 DISP
0 WAIT CLEAR MEnu
      
    
  SQR
     CLEAR -2 SF
"Square
Enter a" ""
INPUT OBJ  a
       CLEAR CLLCD
"Square" 1 AX
"XG = " 'a/2' EVAL
STR + 3 AX "YG = "
'a/2' EVAL STR + 4
AX "IG = " 'a^4/12'
EVAL STR + 5 AX
"A = " 'a*a' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
      
    
  TRA
     CLEAR -2 SF
"Trapezoid
Enter b B h"
"" INPUT OBJ  b B
h
       CLEAR CLLCD
"Trapezoid" 1 AX
"XG = " 'B/2' EVAL
STR + 3 AX "YG = "
'h*(b+2*B)/(3*B+3*b
)' EVAL STR + 4 AX
"IG = " 'h^3*(b^2+4
*b*B+B^2)/(36*B+36*
b)' EVAL STR + 5
AX "A = " 'h*(b+B)/
2' EVAL STR + 6
DISP 0 WAIT CLEAR
MEnu TAG
      
    
  TRI
     CLEAR -2 SF
"Triangle
Enter b h"
"" INPUT OBJ  b h
       CLEAR CLLCD
"Triangle" 1 AX
"XG = " '2*b/3'
EVAL STR + 3 AX
"YG = " 'h/3' EVAL
STR + 4 AX "IG = "
'b*h^3/36' EVAL
STR + 5 AX "A = "
'h*b/2' EVAL STR +
6 DISP 0 WAIT CLEAR
MEnu
      
    
  LOZ
     CLEAR -2 SF
"Lozangue
Enter d D"
"" INPUT OBJ  d D
       CLEAR CLLCD
"Lozangue" 1 AX
"XG = " 'D/2' EVAL
STR + 3 AX "YG = "
'd/2' EVAL STR + 4
AX "YG = " 'D*d^3/
48' EVAL STR + 5
AX "A = " 'd*D/2'
EVAL STR + 6 DISP
0 WAIT CLEAR MEnu
      
    
  QLL
     CLEAR RAD -2
SF
"Quadrilateral
Enter b h "
"" INPUT OBJ  b h
A
       CLEAR CLLCD
"Quadrilateral" 1
AX "XG = " '(b+h*
COS(A))/2' EVAL
STR + 3 AX "YG = "
'h/2' EVAL STR + 4
AX "IG = " 'b*h^3/
12' EVAL STR + 5
AX "A = " 'b*h'
EVAL STR + 6 DISP
0 WAIT CLEAR MEnu
      
    
  POL
     CLEAR RAD -2
SF
"Poligon of n Sides
Enter L a n"
"" INPUT OBJ  L A
N
       CLEAR CLLCD
"Poligon of n Sides"
1 AX
"XG,YG = Center of the 
Circunf circunscrite"
3 AX "IG = " 'L*A*N
*(12*A^2-L^2)/96'
EVAL STR + 5 AX
"A = " 'L*A*N' EVAL
STR + 6 DISP 0
WAIT CLEAR MEnu
      
    
  HEP
     CLEAR RAD -2
SF
"Half Elipsis
Enter a b"
"" INPUT OBJ  A B
       CLEAR CLLCD
"Half Elipsis" 1 AX
"XG = " 'B' EVAL
STR + 3 AX "YG = "
'.6*A' EVAL STR +
4 AX "IG = " '16*B*
A^3/175' EVAL STR
+ 5 AX "A = " '4*A*
B/3' EVAL STR + 6
DISP 0 WAIT CLEAR
MEnu
      
    
END
