Xy-ibw.txt

Togotech (토론 | 기여)님의 2020년 6월 3일 (수) 15:01 판 (새 문서: 프루버 <pre> 10 DEG !이 프로그램은 degree를 사용함. 20 INTEGER Diecount_x,Diecount_y 30 INTEGER I,J,Count 40 D=100. !웨이퍼 직경 50...)
(차이) ← 이전 판 | 최신판 (차이) | 다음 판 → (차이)

프루버

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