factor = 1000
/* */
/* –„žŽ¥Î\‘¢“d“®‹@ '01.6.5 */
/* */
/* mim < pal? (def) < max(’P“Ɣ͈Í) */
pal1= 3.3 /* 1.0 < pal1 (3.3) < 5.0 ->(1) ƒeƒB[ƒX‚ÌŒú‚Ý */
pal2= 1.0 /* 0.1 < pal2 (1.0) < 1.2(2.1) ->(2) ƒeƒB[ƒXæ’[‚̋󌄕”‚Ì•*/
pal3= 4.3 /* 1.5 < pal3 (4.3) < 6.5 ->(3) ƒXƒe[ƒ^‚ÌŒŠ‚Ì’¼Œa */
pal4= 1.0 /* 0.2 < pal4 (1.0) < 1.5(3.0) ->(4) ƒMƒƒƒbƒv’· */
pal5= 0.5 /* 0.25 < pal5 (0.5) < 1.0(3.0) ->(5) ƒuƒŠƒbƒW•”‚ÌŒú‚Ý */
pal6=13.0 /* 12.5 < pal6 (13.0) < 17.0(18.4) ->(6) Ž¥Î‚Ì–„‚ßž‚Ý[‚³ */
pal7= 2.4 /* 1.5 < pal7 (2.4) < 3.5(6.0) ->(7) Ž¥Î‚ÌŒú‚Ý */
pal8=20.53
div=120
/* ‰ð͗̈æÝ’è */
bound=circle{0, 0, 56.1, 20, 0, 90}
/* ‹ó‹CiƒMƒƒƒbƒv•”j */
rs01 = 28
angs01 = 0
rs02 = 28
angs02 = 7.5 - asin(pal2, 28)
rs03 = 28.9
angs03 = 7.5 - asin(pal2, 28.9)
rs04 = 28.9
angs04 = 7.5
/* ƒRƒCƒ‹ */
rs10 = 28.9
angs10 = 7.5
rs11 = 28.9
angs11 = 7.5 - asin(pal2, 28.9)
rs12 = 28.9
angs12 = asin(pal1/2, 28.9)
xs13 = (3.372 + 1.65) / tan(7.5)
ys13 = pal1/2
rs13 = sqrt(xs13*xs13 + ys13*ys13)
angs13 = atan(ys13, xs13)
rs14 = (83.7)/2
angs14 = 7.5
/* ŒŠ */
rs30 = 104.5/2
angs30 = 26
angs31 = 26 + 8
/* ‰Â“®Žq */
/* Ž¥ÎŽæ•t•” */
xr04 = pal6 + 0.055
yr04 = pal6 + 0.055 - (1.5/2) * sqrt(2)
rr04 = sqrt(xr04*xr04 + yr04*yr04)
angr04 = atan(yr04, xr04)
rr05 = 28.0 - pal4 - pal5
angr05 = 45 - asin(1.5/2, rr05)
rr06 = 28.0 - pal4 - pal5
angr06 = 45 - asin(1.5/2 + 2.5, rr06)
xr07 = pal6 + pal7 + 0.055
yr07 = pal6 + pal7 + 0.055 - (1.5/2 + 2.5) * sqrt(2)
rr07 = sqrt(xr07*xr07 + yr07*yr07)
angr07 = atan(yr07, xr07)
/* Ž¥Î */
rr20 = pal6 + (2.5 - 2.39)/2
angr20 = 0
xr21 = pal6 + (2.5 - 2.39)/2 /* 2.39mm Ž¥Î‚ÌŒú‚³ */
yr21 = pal8/2 /* 20.53mm Ž¥Î‚Ì• */
rr21 = sqrt(xr21*xr21 + yr21*yr21)
angr21 = atan(yr21, xr21)
xr22 = pal6 + pal7 + (2.5 - 2.39)/2
yr22 = pal8/2
rr22 = sqrt(xr22*xr22 + yr22*yr22)
angr22 = atan(yr22, xr22)
rr23 = pal6 + pal7 + (2.5 - 2.39)/2
angr23 = 0
/* ŒÅ’èŽq */
fig[1] = circle{ 0, 0, 56.1, 20, 0, 90}
/* ŒŠ */
fig[11] = circle{rs30*cos( angs30+90*i), rs30*sin( angs30+90*i), pal3/2, 8}
fig[11] = circle{rs30*cos( angs31+90*i), rs30*sin( angs31+90*i), pal3/2, 8}
fig[11] = circle{rs30*cos(90-angs30+90*i), rs30*sin(90-angs30+90*i), pal3/2, 8}
fig[11] = circle{rs30*cos(90-angs31+90*i), rs30*sin(90-angs31+90*i), pal3/2, 8}
/* s‹ó‹CiƒMƒƒƒbƒv•”j */
fig[11] = arcpoly{
rs01 * cos( angs01+15*0), rs01 * sin( angs01+15*0), rs01, 6,
rs02 * cos( angs02+15*0), rs02 * sin( angs02+15*0), 0, 2,
rs03 * cos( angs03+15*0), rs03 * sin( angs03+15*0), rs03, 2,
rs03 * cos(15-angs03+15*0), rs03 * sin(15-angs03+15*0), 0, 2,
rs02 * cos(15-angs02+15*0), rs02 * sin(15-angs02+15*0), rs02, 6,
rs01 * cos( angs01+15*1), rs01 * sin( angs01+15*1), rs01, 6,
rs02 * cos( angs02+15*1), rs02 * sin( angs02+15*1), 0, 2,
rs03 * cos( angs03+15*1), rs03 * sin( angs03+15*1), rs03, 2,
rs03 * cos(15-angs03+15*1), rs03 * sin(15-angs03+15*1), 0, 2,
rs02 * cos(15-angs02+15*1), rs02 * sin(15-angs02+15*1), rs02, 6,
rs01 * cos( angs01+15*2), rs01 * sin( angs01+15*2), rs01, 6,
rs02 * cos( angs02+15*2), rs02 * sin( angs02+15*2), 0, 2,
rs03 * cos( angs03+15*2), rs03 * sin( angs03+15*2), rs03, 2,
rs03 * cos(15-angs03+15*2), rs03 * sin(15-angs03+15*2), 0, 2,
rs02 * cos(15-angs02+15*2), rs02 * sin(15-angs02+15*2), rs02, 6,
rs01 * cos( angs01+15*3), rs01 * sin( angs01+15*3), rs01, 6,
rs02 * cos( angs02+15*3), rs02 * sin( angs02+15*3), 0, 2,
rs03 * cos( angs03+15*3), rs03 * sin( angs03+15*3), rs03, 2,
rs03 * cos(15-angs03+15*3), rs03 * sin(15-angs03+15*3), 0, 2,
rs02 * cos(15-angs02+15*3), rs02 * sin(15-angs02+15*3), rs02, 6,
rs01 * cos( angs01+15*4), rs01 * sin( angs01+15*4), rs01, 6,
rs02 * cos( angs02+15*4), rs02 * sin( angs02+15*4), 0, 2,
rs03 * cos( angs03+15*4), rs03 * sin( angs03+15*4), rs03, 2,
rs03 * cos(15-angs03+15*4), rs03 * sin(15-angs03+15*4), 0, 2,
rs02 * cos(15-angs02+15*4), rs02 * sin(15-angs02+15*4), rs02, 6,
rs01 * cos( angs01+15*5), rs01 * sin( angs01+15*5), rs01, 6,
rs02 * cos( angs02+15*5), rs02 * sin( angs02+15*5), 0, 2,
rs03 * cos( angs03+15*5), rs03 * sin( angs03+15*5), rs03, 2,
rs03 * cos(15-angs03+15*5), rs03 * sin(15-angs03+15*5), 0, 2,
rs02 * cos(15-angs02+15*5), rs02 * sin(15-angs02+15*5), rs02, 6,
rs01 * cos( angs01+15*6), rs01 * sin( angs01+15*6), 0, 1,
0, 0, 0, 1}
/* sƒRƒCƒ‹ */
for(i=0, 5, 1){
fig[ 5+i] = arcpoly{
rs11 * cos( angs11+15*i), rs11 * sin( angs11+15*i), 0, 1,
rs12 * cos( angs12+15*i), rs12 * sin( angs12+15*i), 0, 4,
rs13 * cos( angs13+15*i), rs13 * sin( angs13+15*i), 3.372+1.65-(pal1/2), 3,
rs14 * cos( angs14+15*i), rs14 * sin( angs14+15*i), 3.372+1.65-(pal1/2), 3,
rs13 * cos( 15-angs13+15*i), rs13 * sin( 15-angs13+15*i), 0, 4,
rs12 * cos( 15-angs12+15*i), rs12 * sin( 15-angs12+15*i), 0, 1,
rs11 * cos( 15-angs11+15*i), rs11 * sin( 15-angs11+15*i), -28.9, 2}
}
/* r‰Â“®Žq“SS */
/* ”¼Œa 27.5mm */
fig[2] = circle{ 0, 0, 28.0-pal4, div, 0, 90}
fig[3] = circle{ 0, 0, 8, 8, 0, 90}
/* rŽ¥ÎŽæ•t•” */
fig[11] = arcpoly{
rr20 * cos( angr20+45), rr20 * sin( angr20+45), 0, 1,
rr21 * cos( angr21+45), rr21 * sin( angr21+45), 0, 3,
rr04 * cos( angr04+45), rr04 * sin( angr04+45), 0, 4,
rr05 * cos( angr05+45), rr05 * sin( angr05+45), -28.0-pal4-pal5, 3,
rr06 * cos( angr06+45), rr06 * sin( angr06+45), 0, 4,
rr07 * cos( angr07+45), rr07 * sin( angr07+45), 0, 2,
rr22 * cos( angr22+45), rr22 * sin( angr22+45), 0, 1,
rr23 * cos( angr23+45), rr23 * sin( angr23+45), 0, 1,
rr22 * cos( 0-angr22+45), rr22 * sin( 0-angr22+45), 0, 2,
rr07 * cos( 0-angr07+45), rr07 * sin( 0-angr07+45), 0, 4,
rr06 * cos( 0-angr06+45), rr06 * sin( 0-angr06+45), -28.0-pal4-pal5, 3,
rr05 * cos( 0-angr05+45), rr05 * sin( 0-angr05+45), 0, 4,
rr04 * cos( 0-angr04+45), rr04 * sin( 0-angr04+45), 0, 3,
rr21 * cos( 0-angr21+45), rr21 * sin( 0-angr21+45), 0, 1}
/* Ž¥Î */
fig[ 4] = arcpoly{
rr20 * cos( angr20+45), rr20 * sin( angr20+45), 0, 8,
rr21 * cos( angr21+45), rr21 * sin( angr21+45), 0, 2,
rr22 * cos( angr22+45), rr22 * sin( angr22+45), 0, 8,
rr23 * cos( 0-angr23+45), rr23 * sin( 0-angr23+45), 0, 8,
rr22 * cos( 0-angr22+45), rr22 * sin( 0-angr22+45), 0, 2,
rr21 * cos( 0-angr21+45), rr21 * sin( 0-angr21+45), 0, 8}
/*‹§ß“_*/
/* ƒMƒƒƒbƒv•” */
a=28.0-pal4
path[1] = circle{0, 0, a+(pal4/6)*3, div, 0, 90}
path[2] = circle{0, 0, a+(pal4/6)*1, div, 0, 90}
path[3] = circle{0, 0, a+(pal4/6)*5, div, 0, 90}
path[4] = circle{0, 0, a+(pal4/6)*2, div, 0, 90}
path[5] = circle{0, 0, a+(pal4/6)*4, div, 0, 90}
for(i=0, 5, 1){
point = point{ 28.0*cos(7.5+i*15), 28.0*sin(7.5+i*15)}
point = point{ 28.4*cos(7.5+i*15), 28.4*sin(7.5+i*15)}
}
/* ŒÅ’èŽq */
point = circle{0, 0, 52.2, 4, 0, 20}
point = circle{0, 0, 52.2, 3, 39, 51}
point = circle{0, 0, 52.2, 4, 70, 90}
point = circle{0, 0, 49 , 24, 0, 90}
point = circle{0, 0, 47 , 26, 0, 90}
point = circle{0, 0, 45 , 28, 0, 90}
point = circle{0, 0, 43 , 30, 0, 90}
/* ƒeƒB[ƒX•” */
for(i=1,5,1){
point = circle{ 0, 0, 41, 2, -2+15*i, 2+15*i}
point = circle{ 0, 0, 39.5, 2, -1+15*i, 1+15*i}
}
point = circle{ 0, 0, 41, 1, 0, 2}
point = circle{ 0, 0, 39.5, 1, 0, 1}
point = circle{ 0, 0, 41, 1, 88, 90}
point = circle{ 0, 0, 39.5, 1, 89, 90}
starate=(pal1-1.0)/(5.0-1.0)
sta1=0.400+(2.0-0.400)*starate
sta2=0.433+(2.0-0.433)*starate
sta3=0.466+(2.1-0.466)*starate
sta4=0.500+(2.2-0.500)*starate
sta5=0.530+(2.3-0.530)*starate
for(i=1,5,1){
point = circle{ 0, 0, 38.15, 2, 0-sta1+15*i, sta1+15*i}
point = circle{ 0, 0, 35.84, 2, 0-sta2+15*i, sta2+15*i}
point = circle{ 0, 0, 33.53, 2, 0-sta3+15*i, sta3+15*i}
point = circle{ 0, 0, 31.20, 2, 0-sta4+15*i, sta4+15*i}
point = circle{ 0, 0, 28.90, 2, 0-sta5+15*i, sta5+15*i}
}
point = circle{ 0, 0, 38.15, 1, 0, sta1}
point = circle{ 0, 0, 35.84, 1, 0, sta2}
point = circle{ 0, 0, 33.53, 1, 0, sta3}
point = circle{ 0, 0, 31.20, 1, 0, sta4}
point = circle{ 0, 0, 28.90, 1, 0, sta5}
point = circle{ 0, 0, 38.15, 1, 90-sta1, 90}
point = circle{ 0, 0, 35.84, 1, 90-sta2, 90}
point = circle{ 0, 0, 33.53, 1, 90-sta3, 90}
point = circle{ 0, 0, 31.20, 1, 90-sta4, 90}
point = circle{ 0, 0, 28.90, 1, 90-sta5, 90}
sta6rate=(1.2-pal2)/(1.2-0.2)
sta6=4.0+(5.5-4.0)*sta6rate
for(i=1,5,1){
point = circle{ 0, 0, 28.45, 8, -sta6+15*i, sta6+15*i}
}
point = circle{ 0, 0, 28.45, 4, 0, sta6}
point = circle{ 0, 0, 28.45, 4, 90-sta6, 90}
/* --•—ŒŠ */
point = point{rs30*cos( angs30), rs30*sin( angs30)}
point = point{rs30*cos( angs31), rs30*sin( angs31)}
point = point{rs30*cos(90-angs30), rs30*sin(90-angs30)}
point = point{rs30*cos(90-angs31), rs30*sin(90-angs31)}
/* -ƒRƒCƒ‹ */
coiltate=(5.0-pal1)/(5.0-1.0)
coil1=2.1+(3.1-2.1)*coiltate
coil2=2.0+(3.1-2.0)*coiltate
coil3=1.9+(3.2-1.9)*coiltate
coil4=1.8+(3.2-1.8)*coiltate
for(i=0,5,1){
point = circle{ 0, 0, 38.15, 2, 7.5-coil1+15*i, 7.5+coil1+15*i}
point = circle{ 0, 0, 35.84, 2, 7.5-coil2+15*i, 7.5+coil2+15*i}
point = circle{ 0, 0, 33.53, 2, 7.5-coil3+15*i, 7.5+coil3+15*i}
point = circle{ 0, 0, 31.20, 2, 7.5-coil4+15*i, 7.5+coil4+15*i}
}
/* --ƒVƒƒƒtƒg */
point = circle{ 0, 0, 6.3, 6, 0, 90}
point = circle{ 0, 0, 4.0, 3, 0, 90}
//point = circle{ 0, 0, 2.0, 4, 0, 90}
/* ‰ñ“]Žq */
rotor=(pal6-8.0)/4
point = circle{ 0, 0, 8.0+rotor*1, 10, 0, 90}
point = circle{ 0, 0, 8.0+rotor*2, 12, 0, 90}
point = circle{ 0, 0, 8.0+rotor*3, 14, 0, 90}
point = circle{ 0, 0, 8.0+rotor*4, 4, 70, 90}
point = circle{ 0, 0, 8.0+rotor*4, 4, 0, 20}
point = circle{ 0, 0, 8.0+rotor*5, 4, 75, 90}
point = circle{ 0, 0, 8.0+rotor*5, 4, 0, 15}
point = circle{ 0, 0, 8.0+rotor*6, 3, 84, 90}
point = circle{ 0, 0, 8.0+rotor*6, 3, 0, 6}
point = line{8, 8.0+rotor*7, 0, 28.0-pal4, 0}
point = line{8, 0, 8.0+rotor*7, 0, 28.0-pal4}
rotor2=(28.0-pal4-pal6-pal7)/5
point = circle{ 0, 0, 28.0-pal4-rotor2*1, 18, 10, 80}
point = circle{ 0, 0, 28.0-pal4-rotor2*2, 16, 12, 78}
point = circle{ 0, 0, 28.0-pal4-rotor2*3, 14, 16, 74}
point = circle{ 0, 0, 28.0-pal4-rotor2*4, 12, 25, 65}
point = circle{ 0, 0, 28.0-pal4-pal5-0.2, 30, 9, 81}
point = circle{ 0, 0, 28.0-pal4-(pal5/2), 60, 0, 90}
/* Ž¥Î */
mag=pal7/2
point = line{16, rr21 * cos( angr21+45)+(mag/sqrt(2)), rr21 * sin( angr21+45)+(mag/sqrt(2)),
rr21 * cos( 0-angr21+45)+(mag/sqrt(2)), rr21 * sin( 0-angr21+45)+(mag/sqrt(2))}
/*point = line{20, rr21 * cos( angr21+45)+(2*mag/sqrt(2)), rr21 * sin( angr21+45)+(2*mag/sqrt(2)),
rr21 * cos( 0-angr21+45)+(2*mag/sqrt(2)), rr21 * sin( 0-angr21+45)+(2*mag/sqrt(2))}
*/
magrate=(pal6-12.5)/(16.0-12.5)
mag1=18+(22-18)*magrate
mag2=28.0-pal4-pal5-1.0
point = line{3, mag1, 2.1, mag2, 2.1}
point = line{3, 2.1, mag1, 2.1,mag2}
p1x=((rr21 * cos( 0-angr21+45))+(rr07 * cos( 0-angr07+45)))/2
p1y=((rr21 * sin( 0-angr21+45))+(rr07 * sin( 0-angr07+45)))/2
point = point{p1x, p1y}
point = point{p1y, p1x}
/* ÞŽ¿Žw’è */
mat[1]={3000, 3000, 7e6} //ŒÅ’èŽq
mat[2]={3000, 3000, 7e6} //‰ñ“]Žq
mat[3]={3000, 3000, 7e5} //ƒVƒƒƒtƒg
mat[4]={0.884, 0.884, -1} //‰i‹vŽ¥Î
mat[5]={1,1,0} //ƒRƒCƒ‹
mat[6]={1,1,0} //ƒRƒCƒ‹
mat[7]={1,1,0} //ƒRƒCƒ‹
mat[8]={1,1,0} //ƒRƒCƒ‹
mat[9]={1,1,0} //ƒRƒCƒ‹
mat[10]={1,1,0} //ƒRƒCƒ‹
mat[11]={1,1,0} //‹ó‹C
coil={5,0}
coil={6,0}
coil={7,0}
coil={8,0}
coil={9,0}
coil={10,0}
|
