Пильов В.О., Шеховцов А.Ф. Двигуни внутрішнього згоряння: Серія підручників. Том 4. Основи САПР ДВЗ

Продовження додатка 3

c1=0.06*(ggp*(n1)^2)^(1/3)

d0=sqr(4*ggp/(pi*c1)+(dvt*0.001)^2)'m

if abs(d0-d11*1e-3)<1e-4 then 33

kpn=kpn-.001

d1=0.95*d0'm

c1r=1.1*c1/xi1'm/c

b1=ggp/(pi*d1*c1r)'m

for i=1 to 1e8

pgt=pg/kgn'na

d2=60*sqr(2*g*pgt*.0001)/pi/n1'm

if abs(d2-d21*1e-3)<1e-4 then 34

kgn=kgn-.001

betin1=atn(60*c1r/(pi*d1*n1))

betin=betin1*180/pi

bet1=betin1+fi1

beta1=bet1*180/pi

z=z1

kn=1.2*(1+sin(bet2))/(z*(1-(d1/d2)^2))

pgty=pgt*(1+kn)

for i=1 to 1e8

c2r=0.9*c1r/xi2'm/c

d2y=60/pi/n1*(c2r/2/tan(bet2)+sqr((c2r/2/tan(bet2))^2+g*pgty*1e-4))

b2=ggp/(pi*d2y*c2r*xi2)

rl=(d2y^2-d1^2)/(4*(d2y*cos(bet2)-d1*cos(bet1)))

dy=2*sqr((d2y/2)^2+rl^2-d2y*rl*cos(bet2))

if abs(d2y-d21*1e-3)<1e-4 then 35

xi2=xi2+.02

'************** Блок виведення результатів **************

cls

print " ===============================================

========================"

print " ! ПАРАМЕТР !

ЗНАЧЕННЯ ! РОЗМІРНІСТЬ !"

print " ===============================================

========================"

print " !Потужність двигуна........................Ne!";: print using " ###### ";ne;:print "! кВт !"

print " !Потужність насоса.........................Nн!";: print using " ###.#### ";nn;:print "! кВт !"

.

410

Продовження додатка 3

print " !Кількість лопаток..............................z!";: lprint using " #### ";z;:print "! !"

print " ================================================

======================="

199 input "Друкувати таблицю (да-1/ні-0) ";x3

if x3=1 then 201

if x3=0 then 202 else 199

201 lprint " ============================================

==========================="

lprint " ! ПАРАМЕТР !

ЗНАЧЕННЯ ! РОЗМІРНІСТЬ !"

lprint " ===============================================

lprint " !Потужність двигуна........................Ne!";: print using " ###### ";ne;:print "! кВт !"

lprint " !Потужність насоса.........................Nн!";: print using " ###.#### ";nn;:print "! кВт !"

.

lprint " !Кількість лопаток..............................z!";: lprint using " #### ";z;:print "! !"

lprint " ================================================

======================="

202 ‘************************** блок-конвертор ****************************

r2=d2y/2'm

r0=dvt/2/1000'm

r1=d0/2'm

r4=b1*tan(30*pi/180)

r5=d1/2

rc=dy/2

y01=(rc^2+r2^2-rl^2)/2/r2

x01=-sqr(rc^2-y01^2)

f=atn(y01/x01)

r51=(r5+qw*sin(pi/2-bet1))

call pod(r5,yd,xd,rl)

call pod(r1,yb,xb,rl)

f1=atn(yd/xd)

z=abs(z)

sxa=atn(qw/sin(bet2)/r2)

zz=2*z

dim ya(zz),xa(zz),x0(zz),y0(zz),x(zz),y(zz)

for i=1 to z

ya(i)=r2*cos(2*pi*(i-1)/z)

xa(i)=r2*sin(2*pi*(i-1)/z)

ya(z+i)=r2*cos(2*pi*(i-1)/z+sxa)

411

Продовження додатка 3

xa(z+i)=r2*sin(2*pi*(i-1)/z+sxa)

x0(i)=rc*sin(2*pi*(i-1)/z+3*pi/2-f)

y0(i)=rc*cos(2*pi*(i-1)/z+3*pi/2-f)

x0(i+z)=rc*sin(2*pi*(i-1)/z+3*pi/2-f)

y0(i+z)=rc*cos(2*pi*(i-1)/z+3*pi/2-f)

x(i)=r5*sin(2*pi*(i-1)/z+pi/2-f1)

y(i)=r5*cos(2*pi*(i-1)/z+pi/2-f1)

x(z+i)=r51*sin(2*pi*(i-1)/z+pi/2-f1)

y(z+i)=r51*cos(2*pi*(i-1)/z+pi/2-f1)

if abs(ya(i))<1e-4 then ya(i)=0

if abs(xa(i))<1e-4 then xa(i)=0

if abs(ya(i+z))<1e-4 then ya(i+z)=0

if abs(xa(i+z))<1e-4 then xa(i+z)=0

if abs(x0(i))<1e-4 then x0(i)=0

if abs(y0(i))<1e-4 then y0(i)=0

if abs(y(i))<1e-4 then y(i)=0

if abs(x(i))<1e-4 then x(i)=0

if abs(y(i+z))<1e-4 then y(i+z)=0

if abs(x(i+z))<1e-4 then x(i+z)=0

next i

cls

namesf$="nаsos.sf"

shell "copy vn1_1.sf "+namesf$

r0=cint(dvt): r1=cint(r1*1000): r2=cint(r2*1000)

b1=cint(b1*1000): b2=cint(b2*1000): d=cint(d)

rl=cint(rl*1000): rc=cint(rc*1000): d1=cint(d1*1000)

yd=cint(yd*1000): yb=cint(yb*1000): x01=cint(x01*1000)

y01=cint(y01*1000):

r0$=str$(r0): r1$=str$(r1): r2$=str$(r2): b1$=str$(b1)

b2$=str$(b2): d$=str$(d): rc$=str$(rc): d1$=str$(d1)

yd$=str$(yd): yb$=str$(yb): x01$=str$(x01):y01$=str$(y01)

rl$=str$(rl)

name namesf$ as "$$$.sf"

open "$$$.sf" as #1 len=46

field #1,3 as pz1$,4 as pz2$,39 as pz3$

for k=2 to 14

get #1,k

if k=2 then lset pz2$=r0$

if k=3 then lset pz2$=r1$

if k=4 then lset pz2$=r2$

if k=5 then lset pz2$=b1$

if k=6 then lset pz2$=b2$

if k=7 then lset pz2$=d$

if k=8 then lset pz2$=rc$

if k=9 then lset pz2$=d1$

if k=10 then lset pz2$=yd$

if k=11 then lset pz2$=yb$

412

Продовження додатка 3

if k=12 then lset pz2$=x01$

if k=13 then lset pz2$=y01$

if k=14 then lset pz2$=rl$

put #1,k

dim al1$(zz),rl1$(zz),al2$(zz),rl2$(zz),al3$(zz),rl3$(zz),rl$(zz)

dim al1(zz),rl1(zz),al2(zz),rl2(zz),al3(zz),rl3(zz),rl0(zz)

z=z*2

for k=1 to z

al1(k)=x0(k)*1000-(50+r2)

rl1(k)=y0(k)*1000

al2(k)=xa(k)*1000-(50+r2)

rl2(k)=ya(k)*1000

al3(k)=x(k)*1000-(50+r2)

rl3(k)=y(k)*1000

if(k<=z/2) then rl0(k)=rl else rl0(k)=rl+cint(qw*1000)

al1$(k)=str$(al1(k))

rl1$(k)=str$(rl1(k))

al2$(k)=str$(al2(k))

rl2$(k)=str$(rl2(k))

al3$(k)=str$(al3(k))

rl3$(k)=str$(rl3(k))

rl$(k)=str$(rl0(k))

field #1,5 as Arc$,6 as pz1$,1 as zpt1$,6 as pz2$,1 as zpt2$,

6 as pz3$,1 as zpt3$,6 as pz4$,1 as zpt4$,6 as pz5$,1 as zpt5$,

6 as pz6$,1 as zpt6$,6 as pz7$,1 as zpt7$,9 as zpt$

x=61

for k=x to (x+z-1)

lset Arc$="Arc= ": lset zpt1$=",": lset zpt2$=",": lset zpt3$=","

lset zpt4$=",": lset zpt5$=",": lset zpt6$=",": lset zpt7$=","

lset zpt$=" -1;"+chr$(&H0D)+chr$(&H0A)

lset pz1$=" ": lset pz2$=" ": lset pz3$=" ": lset pz4$=" "

lset pz5$=" ": lset pz6$=" ": lset pz7$=" ":

put #1,k

lset Arc$="Arc= ": lset pz1$=al1$(k-x+1): lset pz2$=rl1$(k-x+1)

lset zpt$=" -1;"+chr$(&H0D)+chr$(&H0A)

lset pz3$=rl$(k-x+1): lset pz4$=al2$(k-x+1): lset pz5$=rl2$(k-x+1)

lset pz6$=al3$(k-x+1): lset pz7$=rl3$(k-x+1):

put #1,k

413

Продовження додатка 3

name "$$$.sf" as namesf$

'************ Керування графічною підсистемою **************

kol=len(namesf$)

n=kol-2

namesf1$=left$(namesf$,n)

namesf2$=namesf1$+"frg"

namesf3$=namesf1$+"prn"

shell "sf_cad "+namesf$+" "+namesf2$

‘ виведення зображення креслення на екран

shell "otrfrg "+namesf2$

2 input "Будете готувати креслення до друку ? (да-1/ні-0)";x

if x=0 then end

if x=1 then 3 else 2

3 shell "printer "+namesf2$+" "+namesf3$

4 input "Будете друкувати креслення? (да-1/ні-0)";x1

if x1=0 then end

if x1=1 then 5 else 4

5 input "Вставте папір та натисніть Enter";x2

shell "copy "+namesf3$+" prn"

end

sub pod(rx,yx,xx,rl)

shared rc,y01,x01

ff=(rx^2+rc^2-rl^2)/2

aa=1+y01^2/x01^2

bb=-2*ff*y01/x01^2

cc=ff^2/x01^2-rx^2

dd=bb^2-4*aa*cc

yx=(-bb+sqr(dd))/2/aa

xx=sqr(rx^2-yx^2)

end sub

4. Фрагмент програми KS_SF.FOR визначення координат

опорних точок графічних примітивів та генерації

зображення КЗ поршня швидкохідного дизеля

real k1,k2,k3,k4,k5,k6

open (1,file='ks1.dat',access='sequential',form='formatted',

*mode='read')

open (2,file='ks1.sf',access='sequential',form='formatted',

*mode='write')

414

Продовження додатка 3

open (3,file='ks1_p.dat',access='sequential',form='formatted',

*mode='write')

read(1,1)dg

read(1,1)dk

read(1,1)hf

read(1,1)fif

read(1,1)h1

read(1,1)fi1

read(1,1)fi2

read(1,1)r

read(1,1)fi3

read(1,1)hk

1 format(f8.2)

pi=3.141593

x0=0.

y0=0.

x1=dg/2

y1=0

x2=x1

y2=hf

k1=tan((180-fif)*pi/180)

x3=(k1*x2-y2)/k1

y3=0.

x4=x2

y4=h1

if(fi1.eq.0)go to 22

k2=tan(fi1*pi/180)

k3=tan((fi1+fi2-180)*pi/180)

k4=-1/k3

x5=(h1-y2+x2*k2)/k2

y5=h1

x6=0.

y6=hk-r

x7=(hk-r-y5+k3*x5-r*sqrt(k3**2+1))/k3

y7=hk-r

x8=(y5-k3*x5-y7+k4*x7)/(k4-k3)

y8=k3*x8+y5-k3*x5

if(fi2.eq.0.or.fi2.eq.180)go to 95

go to 96

95 x8=x5

y8=y5

96 x9=x7

y9=r+y7

if(fi3.eq.180)go to 24

415

Продовження додатка 3

k6=tan((90-fi3/2)*pi/180)

k5=-1/k6

a=1+k5**2

b=-2*x7-2*k5**2*x7

c=x7**2+k5**2*x7**2-r**2

x10=(-b-sqrt(b**2-4*a*c))/2/a

y10=k5*x10+y7-k5*x7

x11=0.

y11=y10-k6*x10

go to 23

22 x5=x2

y5=h1

x6=0

y6=hk-r

x7=dg/2-r

y7=hk-r

x8=x5

y8=y7

if(fi2.eq.0.or.fi2.eq.180)go to 98

go to 99

98 x8=x5

y8=y5

99 x9=x7

y9=hk

k6=tan((90-fi3/2)*pi/180)

k5=-1/k6

a=1+k5**2

b=-2*x7-2*k5**2*x7

c=x7**2+k5**2*x7**2-r**2

x10=(-b-sqrt(b**2-4*a*c))/2/a

y10=k5*x10+y7-k5*x7

x11=0

y11=y10-k6*x10

dk=dk+r+r

go to 23

24 x10=x9

y10=y9

x11=0

y11=hk

23 continue

write(2,2)x0,y0,-x3,-y3

2 format('line=',f7.2,',',f7.2,',',f7.2,',',f7.2,',atr=1;')

write(2,2)x0,y0,-dk/2-10,y0

write(2,2)-x2,-y2,x0,-y2

416

Продовження додатка 3

write(2,2)-x3,-y3,-x2,-y2

write(2,2)-x2,-y2,-x5,-y5

write(2,2)-x5,-y5,-x8,-y8

write(2,3)-x7,-y7,r,-x8,-y8,-x10,-y10

3 format('arc=',f7.2,',',f7.2,',',f7.2,',',f7.2,',',f7.2,',',

*f7.2,',',f7.2,',+1,atr=1;')

write(2,2)-x10,-y10,-x11,-y11

write(2,4)x0,y0+5,x0,-y9-15

4 format('line=',f7.2,',',f7.2,',',f7.2,',',f7.2,',atr=3;')

write(2,5)

5 format('atr=2;'/'hatch=0.,45.00,3.00;')

write(2,6)-dk/2-10,y0,-x3,y0

write(2,6)-x3,y0,-x2,-y2

write(2,6)-x2,-y2,-x5,-y5

write(2,6)-x5,-y5,-x8,-y8

write(2,7)-x7,-y7,r,-x8,-y8,-x10,-y10

write(2,6)-x10,-y10,-x11,-y11

write(2,6)-x11,-y11,x0,-y9-10

write(2,6)x0,-y9-10,-dk/2-10,-y9-10

write(2,6)-dk/2-10,-y9-10,-dk/2-10,y0

write(2,8)

6 format('line=',f7.2,',',f7.2,',',f7.2,',',f7.2,';')

7 format('arc=',f7.2,',',f7.2,',',f7.2,',',f7.2,',',

*f7.2,',',f7.2,',',f7.2,',+1;' )

8 format('end_obj;')

9 format(e11.4,2x,e11.4)

write(3,9)x0,y0

write(3,9)x1,y1

write(3,9)x2,y2

write(3,9)x3,y3

write(3,9)x4,y4

write(3,9)x5,y5

write(3,9)x6,y6

write(3,9)x7,y7

write(3,9)x8,y8

write(3,9)x9,y9

write(3,9)x10,y10

write(3,9)x11,y11

end

417

Продовження додатка 3

5. Фрагменти опису об’ємного зображення головки циліндрів

(файл HEAD.SF) на проміжній мові графічної

системи “КОМПАС”

[Об’ємне зображення головки циліндрів];

[Тіло головки];

line= 128.93, 76.10, 30.21, -94.90;

line= 30.21, -94.90,-118.54, -58.10;

line=-118.54, -58.10, -19.82, 112.90;

line= -19.82, 112.90, 128.93, 76.10;

line= 106.74, 140.16, 8.02, -30.84;

line= 8.02, -30.84, -41.86, -18.50;

line= -41.86, -18.50, -22.37, 15.25;

line= -22.37, 15.25, -71.37, 27.37;

line= -71.37, 27.37, -90.86, -6.38;

line= -90.86, -6.38,-140.73, 5.97;

line=-140.73, 5.97, -42.01, 176.97;

line= -42.01, 176.97, 106.74, 140.16;

line= 106.74, 140.16, 128.93, 76.10;

line= 8.02, -30.84, 30.21, -94.90;

line= -41.86, -18.50, -39.14, -26.36;

line= -22.37, 15.25, -19.66, 7.41;

line= -71.37, 27.37, -68.66, 19.53;

line= -90.86, -6.38, -88.14, -14.24;

line=-140.73, 5.97,-118.54, -58.10;

line= -42.01, 176.97, -19.82, 112.90;

line= -19.66, 7.41, -39.14, -26.36;

line= -39.14, -26.36, -88.14, -14.24;

line= -88.14, -14.24, -68.66, 19.53;

[осі на донці головки];

line= 65.63, -16.24, -65.63, 16.24,Atr=2;

line= -32.48, -56.25, 32.48, 56.25,Atr=2;

line= -2.17, 6.25, 2.17, -6.25,Atr=2;

[коло циліндру];

Tabc,2, 61.25, -15.16, 64.75, 26.41,30.31, 52.50, -21.88, 47.84, -61.25, 15.16, -64.75,

-26.41, -30.31, -52.50, 21.88, -47.84,61.25, -15.16,Atr=2;

[ - отвір під шпильку 1];

line= 15.20, -66.33, -6.99, -2.27,Atr=3;

line= 11.45, -58.12, -10.75, 5.94,Atr=3;

line= 0.33, -62.65, -21.86, 1.41,Atr=3;

line= 4.08, -70.87, -18.11, -6.81,Atr=3;

Tabc,2, 15.20, -66.33, 15.63, -61.29,11.45, -58.12, 5.11, -58.68,0.33, -62.65, -0.10, -67.70,

4.08, -70.87, 10.42, -70.30,15.20, -66.33;

Tabc,2, 4.11, -34.30, 4.53, -29.26, 0.35, -26.09, -5.99, -26.65,-10.77, -30.62, -11.19, -35.67,

-7.01, -38.84, -0.67, -38.27, 4.11, -34.30,Atr=2;

Tabc,2, -6.99, -2.27, -6.57, 2.78, -10.75, 5.94, -17.08, 5.38, -21.86, 1.41, -22.29, -3.64,

-18.11, -6.81, -11.77, -6.24, -6.99, -2.27;

418

Продовження додатка 3

[ - отвір під шпильку 2];

line= -61.81, -45.56, -84.00, 18.50,Atr=3;

line= -65.56, -37.35, -87.76, 26.71,Atr=3;

line= -76.68, -41.88, -98.87, 22.18,Atr=3;

line= -72.92, -50.10, -95.12, 13.96,Atr=3;

Tabc,2, -61.81, -45.56, -61.38, -40.52, -65.56, -37.35, -71.90, -37.92, -76.68, -41.88, -77.11,

-46.93, -72.92, -50.10, -66.59, -49.53, -61.81, -45.56;

Tabc,2, -72.90, -13.53, -72.48, -8.49,-76.66, -5.32, -83.00, -5.88, -87.78, -9.85, -88.20,

-14.90,-84.02, -18.07, -77.68, -17.50,-72.90, -13.53,Atr=2;

Tabc,2, -84.00, 18.50, -83.57, 23.55, -87.76, 26.71, -94.09, 26.15, -98.87, 22.18, -99.30,

17.13, -95.12, 13.96, -88.78, 14.53, -84.00, 18.50;

[ - отвір під шпильку 3];

.

[ - отвір під штангу 1];

line= 75.71, 60.98, 53.52, 125.04,Atr=3;

line= 71.51, 70.16, 49.32, 134.23,Atr=3;

line= 59.08, 65.10, 36.89, 129.16,Atr=3;

line= 63.28, 55.91, 41.09, 119.98,Atr=3;

Tabc,2, 75.71, 60.98, 76.19, 66.62, 71.51, 70.16, 64.43, 69.53, 59.08, 65.10, 58.61,

59.45, 63.28, 55.91, 70.37, 56.54,75.71, 60.98;

Tabc,2, 64.61, 93.01, 65.09, 98.65, 60.41, 102.19, 53.33, 101.56,47.99, 97.13, 47.51,

91.48, 52.19, 87.94, 59.27, 88.57, 64.61, 93.01,Atr=2;

Tabc,2, 53.52, 125.04, 53.99, 130.69,49.32, 134.23, 42.23, 133.60, 36.89, 129.16, 36.41,

123.52, 41.09, 119.98, 48.17, 120.61, 53.52, 125.04;

[ - отвір під штангу 2];

.

[ - порожнина направляючої клапана і пружини 1];

line= 38.47, 45.62, 29.06, 72.81,Atr=3;

line= 34.05, 55.29, 24.64, 82.48,Atr=3;

line= 20.97, 49.95, 11.56, 77.14,Atr=3;

line= 25.39, 40.29, 15.97, 67.48,Atr=3;

line= 29.06, 72.81, 37.81, 70.65,Atr=2;

line= 24.64, 82.48, 28.97, 89.98,Atr=2;

line= 11.56, 77.14, 2.81, 79.31,Atr=2;

line= 15.97, 67.48, 11.64, 59.98,Atr=2;

line= 37.81, 70.65, 36.18, 75.33,Atr=2;

line= 28.97, 89.98, 27.34, 94.66,Atr=2;

line= 2.81, 79.31, 1.18, 83.99,Atr=2;

line= 11.64, 59.98, 10.02, 64.66,Atr=2;

line= 36.18, 75.33, 37.49, 75.01,Atr=2;

line= 27.34, 94.66, 27.99, 95.79,Atr=2;

line= 1.18, 83.99, -0.13, 84.32,Atr=2;

line= 10.02, 64.66, 9.37, 63.54,Atr=2;

line= 37.49, 75.01, 37.17, 75.95,Atr=2;

line= 27.99, 95.79, 27.67, 96.73,Atr=2;

419

Пильов В.О., Шеховцов А.Ф. Двигуни внутрішнього згоряння: Серія підручників. Том 4. Основи САПР ДВЗ

Подождите немного. Документ загружается.