Estructura

Estructura ortorrómbica centrada en las caras

Longitud de sus lados: Sus lados tienen diferente longitud [a ≠ b ≠ c]
Ángulos entre lados: sus angulos son de 90 grados[pic]=[pic]=[pic] =90 grados
Numero de átomos involucrados: se involucren 14 átomos.

Numero de átomos reales: (1/8) * 8 + (1/2) * 6 = 1 + 3 = 4 átomos reales
Factor de empaquetamiento: 4/3ra^3 porque los lados son diferentes.
a * b * c
Estructura romboédrica simple
Longitud de sus lados: Sus lados son deigual longitud [a = b = c ]
Ángulos entra lados: Son diferentes de 90 grados [[pic]=[pic]=[pic] ≠90 grados]
Numero de átomos involucrados: se involucran 8 átomos.
Numero de átomos reales: (1/8)* 8 = 1 átomo real
Factor de empaquetamiento:

4/3 ra^3

(2ra)^3 24

Estructura hexagonal simple
Longitud de sus lados: Tiene dos de sus lados iguales y uno diferente [a=a≠c]
Angulo entre lados: Tiene 2 ejes coplanares igualesde 120 grados y un tercer eje de 90 grados [[pic]=[pic]= 120 grados, [pic]= 90 grados]
Numero de átomos involucrados: Se involucran 8 átomos.
Numero de átomos reales: (1/8) * 8 = 1átomo real.
Factor de empaquetamiento:
4/3 ra^3 4 r
==

(a^2)*c c

Dim puntoAs Boolean
Dim operacion As Integer
Dim operando1 As Double
Dim operando2 As Double
Dim resultado As Double
Private Sub Command1_Click()
Text1.Text =Text1.Text + "7"

End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command11_Click()

If punto = False Then...