1 o o
1 1 o
1 2 O
1 30
1 4 0
ISO
1 6 O
1 70
1 3 O
1 9 O
200
2 1 O
22 0
23 0
2 4 0
25 0
2 6 0
270
2 8 0
2 9 0
3 0 0
3 1 O
3 2 0
3 3 0
3 4 0
35 0
3 6 0
3 7 0
3 8 0
3 9 0
4 0 0
4 1 O
420
43 0
4 4 0
4 5 0
46 0
470
4 8 0
4 90
5 0 0
5 1 O
52 0
5 3 0
5 4 0
550
56 0
570
5 8 0
5 9 0
6 0 0
6 1 O
6 2 0
6 30
6 4 0
6 5 0
6 6 0
6 7 0
6 8 0
6 9 0
7 0 0
7 1 O
720
7 3 0
7 40
75 0
7 60
770
7 8 0
194
P r t r = 4 O
RESTORE
c r'r nrrnrpc:
DATA 0. 189,G. 1943, 80. 54, 72. 74, 73. 3,27. 113
|
j
REM DEFINE STANDARD CONDITIONS AND INTERFLANAR ANCLES
READ Al,B1,P0,SO,P1,SI
I
i
REM DEFINE LATTICE PARAMETERS
I nd = 0
PRINT 8Pr t r : L_"
PRINT SPrtr: USING 460:
REM
! ***********************
 ***** DEFINITIONS *****
i *******************'.***
!DlaDspacing:
{
< i
9 3 )
!02sDspac:ng:
j
< 1 0
0 2 >
! D3--spacing :
1
( 9
1 3 )
!D4 sDspacing:
j
( 3
9 1 )
!D5 sDspacing:
i
( 0
10 2)
!DsDspacing:
i
C 9
3 1 >
FOR A* 3.56 TO 3
62
STEP 0
Ind=Ind +1
IF Inda S THEN
PRINT SPrtr:"L"
PRINT SPrtr: USING 460:
IMAGE 5 X "A" 14 X "B" 12X "Rl" 12X"R2"
I nd = 0
END IF
C-A
I nd 2 >1
FOR B*3.56 TO 3.62 STEP 0.005
Dl-l/(l/A*2+81/B*2+9/C2>*0.5
D2-1/ ( 100/A* 2 + 4 /C 2)  0 5
D3l/ <81/A*2+l/B*2+9/C2) 0 5
D 4 1/ <9/A*2+81/B*2+l/C42) *0 .5
D5-1/(100/B* 2 + 4/C 2) 0 5
D 6 a 1/ (81/A*2 + 9/ B2 + l/ C'2) *0 5
TI a2 8 3 2 5 5 -ASN( 0.037/C2*Dl)>
T2a3 0 2 8 3-ASNC 0.037/C2*D2>>
T3a2. 83255 -ASN< 0.037/<2*D4>>
T4-2.83255-ASN(0.037/(2*D3)>
T63 0 2 8 3 -ASN( 0.037/(2*D5>>
T7-2 8 3 2 5 5 -ASN( 0 037/ < 2*D6) >
A 2
AND
B 2
DEFINED
IN
FI CURE
A
A3
AND
B 3
DEFINED
IN
FIGURE
A
A2*A1-TI /TAN(P0)-T2/SIN(P0)+T1 /TAN(SO >-T4/SINCSG)
B2 = B1-T3/TAN(P1 )-T2/SIN(Pl >-T3/TAN(Sl )-Tl /SINiSl >
R1 A 2/B 2
A3 a A 1-T 4/TAN<P0)-T6/SIN(P0)+T4/TAN(SO >-TI /SIN(SO >
B 3 a B1-T7/T AN(P1>-T6/SIN(P1)-T7/TAN(S1 )-T4/SIN(51 )
R2 =A3/B3
IF Ind2 a 1 THEN
PRINT SPrtr: USING 780:A,B,R1,R2
IMAGE 4(4D.4D,5X)