Rotary compressor with improved bore configuration and lubrication system

A rotary compressor comprising a housing having a bore;

• and vanes operatively arranged at the rotor assembly to move linearly relative to the rotor assembly and to form, together with the housing and rotor assembly, variably chambers, wherein the bore has a composite configuration divided into an expansion region of elliptical shape, a circular transition region, a polynomial-shaped compression region and a circular sealing region, and wherein the bore has a configuration made by a process in which a machine is computer controlled by and operated in terms of data obtained with a Fortran program as follows:
• ______________________________________ c initial data setup c write(*,*) `This progrom is to determine the profile of c write(*,*) `the bore. please input the r.sub.-- rotor now` c read(*,*) r.sub.-- rotor c write(*,*) `please input the length the vane sticks out` c read (*,*) lv write(*,*) `please input the endmill radius (inch) now` read(*,*) rm c rm =0.0 rbmin=r.sub.-- rotor + .0005 rmin =rbmin-rm rbmax=r.sub.-- rotor+lv rmax=rbmax-rm omg=2.*Pi*6500/60. a1=rmin b1=rmax theta1m=100.0 a2=rmax b2=rmin theta2m=120.0 n-2000 write(*,*) `please input the number of points` read(*,*) n c set theta dimension do 100 i=0,n+1 dtheta=360./n theta(i)=dtheta*(i-1) c determine the radius as a function of theta c Region I, the seal region if (theta(i).ge.b) goto 20 r(i)=rmin C Region II the expansion region 1 if (theta(i).le.a) goto 100 theta1=(theta(i)-10.)/theta1m *pi/2. r(i)=radius(a1,b1,theta1) goto 100 c Region III, the transient region 2 20 r(i)=rmax if (theta(i).le.c ) goto 100 c Region IV, the compression region theta2=(theta(i)-c)/theta2m *Pi/2. r(i)=radius(a2,b2,theta2) goto 100 100 continue do 200 i =1,n+1 vt=omg*r(i)*0.0254 v=omg*(r(i)-r(i-1))*0.0254 acel=omg*omg*(r(i)-0.3)*0.0254/9.81 acelratio=(r(i+1)+r(i-1)-2.*r(i))*pi**2/(r(i)-0.3) c write(*,*)i, theta(i),r(i) x= r(i)*sin(theta(i)*PI/180.) y= r(i)*cos(theta(i)*Pi/180.) write(20,1000)theta(i),r(i), x,y write(30,2000) x,y c if (amod(i-1,5).ne.0) goto 200 c write (20,1002)theta(i),r(i),vt,acel,v,acelratio 200 continue c do 300 i=1,100 c theta(i)=360./99*(i-1) c x=0.7123*sin(theta(i)*pi/180.) c y=0.7123*cos(theta(i)*pi/180.) c300 write(20,2000) x,y c to calculate the circumference of the profile cL3=0.0 cL2=0.0 r(n+1)=r(1) theta(n+1)=theta(1)+360. do 400 i=2,n+1 cL2=cL2+r(i)*( (theta(i)-theta(i-1)) *pi/180.) cL3=cL3+r(i-1)*( (theta(i)-theta(I-1)) *pi/180. 400 continue write (*, *) `circomference=`,cL2,cL3,`de=`,cL2/Pi 1000 format(1x,`.vertline.`,f6.1,`.vertline.`,f8.4,2(`.vertline.`,f8.4),` .vertline. `) 1002 format(1x,f6.4,4(`,`,f13.4),`,`,f9.5) 2000 format(1x,`X`,f7.4,`Y`,f7.4) Stop end function radius(a,b,theta) radius=a/sqrt( 1.-(1.-a*a/(b*b))*sin(theta)*sin(theta)) end, wherein r.sub.-- rotor -- rotor radius rmin, rmax - min. and max. radius a -- the angle at which the first ellipse starts b -- the angle at which the first ellipse ends the large circle are begins c -- the angle at which the large circle ends and the second ellipse begins theta -- angle variable (degree) r -- radius variable (inch) x,y -- point coordinates omg -- rotating velocity Vt -- tangential velocity V -- Radial velocity acel -- the tangential acceleration of the vane acelratio -- the ratio of the radial accel. to the tangential accl. ______________________________________