100 Prtr-40
110 RESTORE
120 SET DEGREES
130 DATA 0.189,0.1943,80.54,72.74,73.3,27.113
140 !
150
160 REM DEFINE STANDARD CONDITIONS AND INTERFLANAR ANGLES
170 READ AI,B1,PO,SO,P1,S1
130
190 !
200 REM DEFINE LATTICE PARAMETERS
210 IndO=
220 PRINT @Prtr:"L"
230 PRINT @Prtr: USING 460:
240 REM
250 i *************t*********
260 *'w* DEFINITIONS '***
270 *************** *'**.
280
290 !D1=Dspacing: (1 9 3)
300
310 !D2=Dspacing: (10 0 2)
320
330 !D3-.Jspacing: (9 1 3)
340
350 !D4=Dspacing: (3 9 1)
360
370 !D5=Dspacing: (0 10 2)
380
390 !D6=Dspacing: (9 3 1)
400 !
410 FOR A=3.56 TO 3.62 STEP 0.005
420 Ind=Ind+l
430 IF Ind=5 THEN
440 PRINT @Prtr:"L"
450 PRINT ePrtr: USING 460:
460 IMAGE 5X "A" 14X "B" 12X "R1" 12X"R2"
470 Ind=0
480 END IF
490 C=A
500 Ind2Z l
510 FOR B=3.56 TO 3.62 STEP 0.005
520 D =l/(ll/A'2+81/B'2+9/C'2)'0.5
530 D2=1/(100/A'2+4/C'2) .5
540 D3=1/(81/A'2+11B'2+9/C'2)'0.5
550 D4=1/(9/A'2+81/B'2+1/C'2) 0.5
560 DS=1/(100/B'2+4/C'2)'0.5
570 D6=l/(81/A'2+9/1 '2+1/C'2) 0.5
580 TI=2.83255-ASN(0.037/(2*D1))
590 T2=3.0283-ASN(0.037/(2*D2))
600 T3.2.83255-ASN(0.037/(2*D4))
610 T4=2.83255-ASN(0.037/(2*D3))
620 T6=3.0283-ASN(0.037/(2*D5))
630 T7 2= .83255-ASN(0.037/(2*D6))
640
650
660 IA2 AND B2 DEFINED IN FIGURE A.1
670
680
690 !A3 AND B3 DEFINED IN FIGURE A.1
700 A2=AI-T1/TAN(PO)-T2/SIN(PO)+T1/TAN(SO)-T4/SIN(SO)
710 B2B91-T3/TAN(P1)-T2/SIN(P1)-T3/TAN(S1)-T1/SIN(51)
720 R1=A2/B2
730 A3=AI-T4/TAN(PO)-T6/SIN(PO)+T4/TAN(SO)-T1/SIN(SO)
740 B3=B1-T7/TAN(PI)-T6/SIN(P1)-T7/TAN(51)-T4/SIN(S1)
750 R2=A3/B3
760 IF Ind2=l THEN
770 PRINT @Prtr: USING 780:A,B,RI,R2
780 IMAGE 4(4D.4D,5X)