"Xy-ibw.txt"의 두 판 사이의 차이

2020년 6월 3일 (수) 15:01 기준 최신판

10     DEG    !이 프로그램은 degree를 사용함.
20     INTEGER Diecount_x,Diecount_y
30     INTEGER I,J,Count
40     D=100.           !웨이퍼 직경
50     Edge_ex=2.       !edge exclution
60     Flatlength=32.5  !플랫존 길이
70     Diesize_x=1.     !다이X길이
80     Diesize_y=1.     !다이Y길이
90     R=D/2.
100    Theta=ASN((Flatlength/2)/R)
110    Flatx=R*COS(Theta)
120    Diecount_x=INT(R/Diesize_x)
130    Diecount_y=INT(R/Diesize_y)
140    GOSUB Fileopen
150    Count=0
160    FOR J=-Diecount_y TO Diecount_y
170      IF J MOD 2 THEN
180        One=1
190        I_start=-Diecount_x
200        I_stop=Diecount_x
210      ELSE 
220        One=-1
230        I_start=Diecount_x
240        I_stop=-Diecount_x
250      END IF 
260      FOR I=I_start TO I_stop STEP One
270        R_die=SQRT((I*Diesize_x)^2+(J*Diesize_y)^2)
280        IF R_die<(R-Edge_ex) THEN
290          IF I*Diesize_x>(-Flatx+Edge_ex) THEN !왼쪽에 반드시 플랫존이 놓여야 한다.
300            Count=Count+1
310            DISP Count
320            OUTPUT @File;I,J
330          END IF 
340        END IF 
350      NEXT I
360    NEXT J
370    STOP
380 Fileopen:  !
390    DIM Filename$[20],Dhms$[8]
400    Time$=TIME$(TIMEDATE)
410    Date$=DATE$(TIMEDATE)
420    Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
430    Filename$=Dhms$&".txt"
440    CREATE Filename$,1
450    ASSIGN @File TO Filename$;FORMAT ON
460    RETURN
470    END