中国矿业大学机电学院 带传动 c++

//机自10-8班张清#include<iostream.h>#include "math.h"#include "stdio.h"#define pi 3.1415926main(){float n2,n1,u,lh,k,pc,p,x,y ,v,c1,c2,a,a1,a0,lc,lj,l,b,al,kl,ki,p1,p0,z,f0,fp,d2,e,amax,amin; double ka;float cc[5];int i,j,m,g,s,t=1;static float aa[6][17]={{0,0.00039,0.06,0.246,7.44,4.41e-5,0.72,0.00043,9.8e-08,435,50,63,71,80,90,1,13},{0,0.00103,0.1,0.449,19.62,7.65e-5,0.68,0.000225,2.25e-08,100,75,90,100,112,125,5,18},{0,0.00265,0.17,0.794,50.6,1.31e-4,0.68,0.000174,1.94e-08,27,125,140,150,170,180,8,24},{0,0.0075,0.3,1.48,143.2,2.43e-4,0.70,0.00964,4.48e-7,7.2,200,224,236,265,280,14,29},{0,0.0266,0.62,3.15,507.3,4.77e-4,0.78,3.38e-5,0,0.92,355,400,425,475,500,18,32},{0,0.0498,0.9,4.57,951.5,7.06e-4,0.706,4.95e-5,1.254e-9,0,500,560,630,800,900,22,33}};static char bb[6]={'Z','A','B','C','D','E'};static int ll[34]={0,400,450,500,560,630,710,800,900,1000,1120,1250,1400,1600,1800,2000,2240,2500,2800,3150,3550,4000,4500,5000,5600,6300,7100,8000,9000,10000,11200,12500,14000,16000};cout<<"请输入已知数据："<<endl;cout<<"功率P（KW)=";cin>>p;cout<<"小轮转速n1（r/min）=";cin>>n1;cout<<"传动比i（若已知n2，则i=0)=";cin>>u;cout<<"大轮转速n2（r/min)（若已知i，则n2=0）=";cin>>n2;cout<<"给定中心距a（mm）（若未给定，则a=0）=";cin>>a;cout<<"中心距系数a0（0.7~2，若已知a，则a0=0）=";cin>>a0;cout<<"载荷性质G（平稳1，变动小2，变动大3，变动很大4)=";cin>>g;cout<<"启动类型s(空、轻载启动1，重载启动2）=";cin>>s;cout<<"小时数LH=";cin>>lh;if(n2!=0) u=floor(n1/n2*1000+0.5)/1000;else if(n2==0) n2=n1*u;if(s==1){ if(lh>16) k=1.2;else if(lh<=16&&lh>=10) k=1.1;else k=1.0;switch(g){case 1:k=k;break;case 2:k=k+0.1;break;case 3:k=k+0.2;break;case 4:k=k+0.3;break;}}else if(s==2){if(lh>16) k=1.3;else if(lh<=16&&lh>=10) k=1.2;else k=1.1;switch(g){case 1:k=k;break;case 2:k=k+0.1;break;case 3:k=k+0.3;break;case 4:{if(lh>=16)k=k+0.5;else k=k+0.4;};break;}}pc=k*p;cout<<"计算功率"<<pc<<"KW"<<endl;cc[0]=log10(365)+(log10(2510)-log10(365))*(log10(pc)-log10(0.8))/(log10(5)-log10(0.8)); cc[1]=log10(100)+(log10(1500)-log10(100))*(log10(pc)-log10(1))/(log10(10)-log10(1));cc[2]=log10(100)+(log10(870)-log10(100))*(log10(pc)-log10(3.15))/(log10(18)-log10(3.15)); cc[3]=log10(100)+(log10(700)-log10(100))*(log10(pc)-log10(9))/(log10(40)-log10(9));cc[4]=log10(100)+(log10(500)-log10(100))*(log10(pc)-log10(50))/(log10(200)-log10(50)); for(i=0;i<=4;i++){if(n1>=pow(10,cc[i])) break;}if(i==0) {x=0;y=1;}else if(n1<=pow(10,cc[4])) {x=4;y=5;}else {x=i-1;y=i+1;}for(i=x;i<=y;i++)for(j=10;j<=14;j++){v=floor(pi*aa[i][j]*n1/600+0.5)/100;if(v>=5 && v<=25){d2=aa[i][j]*u;c1=d2+aa[i][j];c2=d2-aa[i][j];if(a==0) a1=a0*c1;else a1=a;lc=2*a1+pi*c1/2+c2*c2/4/a1;for(m= aa[i][15];m<= aa[i][16];m++){if(lc<=ll[m]) break;}lj=(ll[m]+ll[m-1])/2;if(lc<lj) l=ll[m-1];else l=ll[m];b=2*l-pi*c1;a1=floor((b+pow(b*b-8*c2*c2,0.5))/8*10+0.5)/10;amin=floor(a1-0.015*l+0.5);amax=floor(a1+0.03*l+0.5);al=180-c2/a1*57.3;kl=aa[i][6]+aa[i][7]*l-aa[i][8]*l*l;float af[13]={120,125,130,135,140,145,150,155,160,165,170,175,180};double KA[13]={0.82,0.84,0.86,0.88,0.89,0.91,0.920,.93,0.95,0.96,0.98,0.99,1.00};if((al>=120)&&(al<=180)){int n=0;while(al>=af[n]){n++;}n=n-1;ka=(al-af[n])*(KA[n+1]-KA[n])/(af[n+1]-af[n])+KA[n];}else if(al<120){ka=0.82-(120-al)*(0.84-0.82)/(125-120);}else if(al>180){ka=1.00+(al-180)*(1.00-0.99)/(180-175);}switch(i){case 0:{float nn[10]={400,700,800,950,1200,1450,1600,2000,2400,2800};double dd[10][10]={{0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00}, {0.00,0.00,0.00,0.00,0.00,0.00,0.01,0.01,0.01,0.01},{0.00,0.00,0.00,0.00,0.01,0.01,0.01,0.01,0.02,0.02},{0.00,0.00,0.00,0.01,0.01,0.01,0.01,0.02,0.02,0.02},{0.00,0.00,0.01,0.01,0.01,0.01,0.01,0.02,0.02,0.03},{0.00,0.00,0.01,0.01,0.01,0.02,0.02,0.02,0.03,0.03},{0.00,0.01,0.01,0.01,0.02,0.02,0.02,0.02,0.03,0.03},{0.00,0.01,0.01,0.02,0.02,0.02,0.02,0.03,0.03,0.04},{0.01,0.01,0.02,0.02,0.02,0.02,0.03,0.03,0.04,0.04},{0.01,0.02,0.02,0.02,0.03,0.03,0.03,0.04,0.04,0.04}};double uu[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.51,2.00};int i=0;while(n1>nn[i]){i++;}i=i-1;int j=0;while(u>uu[j]){j++;}j=j-1;p1=(n1-nn[i])*(dd[i+1][j]-dd[i][j])/(nn[i+1]-nn[i])+dd[i][j];break;}case 1:{float nn[10]={400,700,800,950,1200,1450,1600,2000,2400,2800};double uu[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.51,2.00};double dd[10][10]={{0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00}, {0.01,0.01,0.01,0.01,0.01,0.02,0.02,0.02,0.03,0.03},{0.01,0.02,0.02,0.03,0.03,0.04,0.04,0.06,0.07,0.08},{0.02,0.03,0.03,0.04,0.05,0.06,0.06,0.08,0.10,0.11},{0.02,0.04,0.04,0.05,0.07,0.08,0.09,0.11,0.13,0.15},{0.03,0.05,0.05,0.06,0.08,0.09,0.11,0.13,0.16,0.19},{0.03,0.06,0.06,0.07,0.10,0.11,0.13,0.16,0.19,0.23},{0.04,0.07,0.08,0.08,0.11,0.13,0.15,0.19,0.23,0.26},{0.04,0.08,0.09,0.10,0.13,0.15,0.17,0.22,0.26,0.30},{0.05,0.09,0.10,0.11,0.15,0.17,0.19,0.24,0.29,0.34}};int i=0;while(n1>nn[i]){i++;}i=i-1;int j=0;while(u>uu[j]){j++;}j=j-1;p1=(n1-nn[i])*(dd[i+1][j]-dd[i][j])/(nn[i+1]-nn[i])+dd[i][j];break;}case 2:{float nn[10]={400,700,800,950,1200,1450,1600,2000,2400,2800};double uu[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.51,2.00};double dd[10][10]={{0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00}, {0.01,0.02,0.03,0.03,0.04,0.05,0.06,0.07,0.08,0.10},{0.03,0.05,0.06,0.07,0.08,0.10,0.11,0.14,0.17,0.20},{0.04,0.07,0.08,0.10,0.13,0.15,0.17,0.21,0.25,0.29},{0.06,0.10,0.11,0.13,0.17,0.20,0.23,0.28,0.34,0.39},{0.07,0.12,0.14,0.17,0.21,0.25,0.28,0.35,0.42,0.49},{0.08,0.15,0.17,0.20,0.25,0.31,0.34,0.42,0.51,0.59},{0.10,0.17,0.20,0.23,0.30,0.36,0.39,0.49,0.59,0.69},{0.11,0.20,0.23,0.26,0.34,0.40,0.45,0.56,0.68,0.79},{0.13,0.22,0.25,0.30,0.38,0.46,0.51,0.63,0.76,0.89}};int i=0;while(n1>nn[i]){i++;}i=i-1;int j=0;while(u>uu[j]){j++;}j=j-1;p1=(n1-nn[i])*(dd[i+1][j]-dd[i][j])/(nn[i+1]-nn[i])+dd[i][j];break;}case 3:{float nn[10]={400,700,800,950,1200,1450,1600,2000,2400,2800};double uu[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.51,2.00};double dd[10][10]={{0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00,0.00}, {0.04,0.07,0.08,0.09,0.12,0.14,0.16,0.20,0.23,0.27},{0.08,0.14,0.16,0.19,0.24,0.28,0.31,0.39,0.47,0.55},{0.12,0.21,0.23,0.27,0.35,0.42,0.47,0.59,0.70,0.82},{0.16,0.27,0.31,0.37,0.47,0.58,0.63,0.78,0.94,1.10},{0.20,0.34,0.39,0.47,0.59,0.71,0.78,0.98,1.18,1.37},{0.23,0.41,0.47,0.56,0.70,0.85,0.94,1.17,1.41,1.64},{0.27,0.48,0.55,0.65,0.82,0.99,1.10,1.37,1.65,1.92},{0.31,0.55,0.63,0.74,0.94,1.14,1.25,1.57,1.88,2.19},{0.35,0.62,0.71,0.83,1.06,1.27,1.41,1.76,2.12,2.47}};int i=0;while(n1>nn[i]){i++;}i=i-1;int j=0;while(u>uu[j]){j++;}j=j-1;p1=(n1-nn[i])*(dd[i+1][j]-dd[i][j])/(nn[i+1]-nn[i])+dd[i][j];break;}case 4:{float nn[7]={400,700,800,950,1200,1450,1600};double uu[10]={1.00,1.02,1.05,1.09,1.13,1.19,1.25,1.35,1.51,2.00};double dd[10][10]={{0.00,0.00,0.00,0.00,0.00,0.00,0.00},{0.14,0.24,0.28,0.33,0.42,0.51,0.56},{0.28,0.49,0.56,0.66,0.84,1.01,1.11},{0.42,0.73,0.83,0.99,1.25,1.51,1.67},{0.56,0.97,1.11,1.32,1.67,2.02,2.23},{0.70,1.22,1.39,1.60,1.09,2.52,2.78},{0.83,1.46,1.67,1.92,2.50,3.02,3.33},{0.97,1.70,1.95,2.31,2.92,3.52,3.89},{1.11,1.95,2.22,2.64,3.34,4.03,4.45},{1.25,2.19,2.50,2.97,3.75,4.53,5.00}};int i=0;while(n1>nn[i]){i++;}i=i-1;int j=0;while(u>uu[j]){j++;}j=j-1;p1=(n1-nn[i])*(dd[i+1][j]-dd[i][j])/(nn[i+1]-nn[i])+dd[i][j];break;}return p1;}p0=(aa[i][3]*pow(v,-0.09)-aa[i][4]/aa[i][j]-aa[i][5]*v*v)*v;z=floor(pc/((p0+p1)*kl*ka)+0.95);if(z>0&&z<=9&&al>=120){cout<<"第"<<t<<"方案"<<endl;cout<<"********start********"<<endl;f0=floor((500*pc*(2.5/ka-1))/v/z+aa[i][2]*v*v+0.5);fp=floor(2*z*f0*sin(al*pi/180/2)+0.5);cout<<"型号"<<bb[i]<<endl;cout<<"长度"<<l<<" 根数"<<z<<" 小轮直径"<<aa[i][j]<<" 大轮直径"<<d2<<" 速度"<<v<<" 传动比"<<u<<"包角"<<al<<endl;cout<<"中心距"<<a1<<" 最小中心距"<<amin<<" 最大中心距"<<amax<<" 最小初拉力"<<f0<<" 压轴力"<<fp<<endl;t=t+1;cout<<"********endl**********"<<endl;cout<<endl;cout<<endl;}}else if(v>=25) break;}}。