prgmSTRUCTUR

Lbl 1
Menu("Choose Crystal Structure","SC",2,"FCC",3,"BCC",4,"HCP",5,"DENSITY",6,"APF",7,"Miller Indicies",8)
Lbl 2
Disp "A=2R","C6","1 Atom"
Input "A=",A
Disp "R=",(A/2)
Return
Lbl 3
Disp "sqrt(2A)=4R"
Disp "C12"
Disp "4 Atoms"
Input "R=",R
Input "A=",A
Disp "A=",(4R/sqrt(2))
Return
Lbl 4
Disp "4R=cuberoot(3)A
Disp "C8"
Disp "2 Atoms"
Input "R=",R
Disp "A=",(4R/(cuberoot(3))
Return
Lbl 5
Disp "A=2R"
Disp "6 Atoms"
Disp "C12"
Disp "C/A=1.633"
Return
Lbl 6
Disp "((Atoms*AW)/(V*n))"
Disp "use A^3 for V"
Disp "n=Avagadros Number"
Input "ATOMS=",N
Input "AWEIGHT=",A
Input "V=",V
Disp (N*A)/(V*6.022*10^23)
Return
Lbl 7
Disp "A*V/AV"
Input "ATOMS=",C
Input "R=",R
Input "A=",A
Disp (C*(4/3)piR^3)/(A^3)
Return
Lbl 8
Disp "Invert Intercepts"
Input "X=",X
Input "Y=",Y
Input "Z=",Z
Disp "Indicie=("(1/X)""(1/Y)""(1/Z)")"
Return