转速小于815.doc

PublicFunctionbr(n!)AsSingleIfn<815ThenPrint"转速小于815"If815<n<1207Thenb0=(*(n-815)+*(1207-n))/392b1=(-*(n-815)-*(1207-n))/392b2=(*(n-815)+*(1207-n))/392b3=(-*(n-815)-*(1207-n))/392b4=(*(n-815)+*(1207-n))/392tq=-+*(n/1000)-*(n/1000)^2+*(n/1000)^3-*(n/1000)^4pe=(tq*n)/9550br=b0+b1*pe+b2*pe^2+b3*pe^3+b4*pe^4EndIfIf1207<=n<1614Thenb0=(*(n-1207)+*(1614-n))/407b1=(-*(n-1207)-*(1614-n))/407b2=(*(n-1207)+*(1614-n))/407b3=(-*(n-1207)-*(1614-n))/407b4=(*(n-1207)+*(1614-n))/407tq=-+*(n/1000)-*(n/1000)^2+*(n/1000)^3-*(n/1000)^4pe=(tq*n)/9550br=b0+b1*pe+b2*pe^2+b3*pe^3+b4*pe^4EndIfIf1614<n<2012Thenb0=(*(n-1614)+*(2012-n))/398b1=(-*(n-1614)-*(2012-n))/398b2=(*(n-1614)+*(2012-n))/398b3=(-*(n-1614)-*(2012-n))/398b4=(*(n-1614)+*(2012-n))/398tq=-+*(n/1000)-*(n/1000)^2+*(n/1000)^3-*(n/1000)^4pe=(tq*n)/9550br=b0+b1*pe+b2*pe^2+b3*pe^3+b4*pe^4EndIfIf2012<n<2603Thenb0=(1141*(n-2012)+*(2603-n))/591b1=(-983-*(n-2012)-*(2603-n))/591b2=(*(n-2012)+*(2603-n))/591b3=(-*(n-2012)-*(2603-n))/591b4=(*(n-2012)+*(2603-n))/591tq=-+*(n/1000)-*(n/1000)^2+*(n/1000)^3-*(n/1000)^4pe=(tq*n)/9550br=b0+b1*pe+b2*pe^2+b3*pe^3+b4*pe^4EndIfIf2603<n<3006Thenb0=(*(n-2603)+1141*(3006-n))/403b1=(-*(n-2603)-*(3006-n))/403b2=(*(n-2603)+*(3006-n))/403b3=(-*(n-2603)-*(3006-n))/403b4=(*(n-2603)+*(3006-n))/403tq=-+*(n/1000)-*(n/1000)^2+*(n/1000)^3-*(n/1000)^4pe=(tq*n)/9550br=b0+b1*pe+b2*pe^2+b3*pe^3+b4*pe^4EndIfIf3006<n<3403Thenb0=(*(n-3006)+*(3403-n))/397b1=(-*(n-3006)-*(3403-n))/397b2=(*(n-3006)+*(3403-n))/397b3=(-