https://www.togotech.co.kr/index.php?action=history&feed=atom&title=Xy-ibw.txt 2026-04-27T03:19:04Z 이 문서의 편집 역사 MediaWiki 1.31.1 https://www.togotech.co.kr/index.php?title=Xy-ibw.txt&diff=32061&oldid=prev 2020-06-03T06:01:53Z

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

Togotech