设计时需要确定的内容三角带型号、长度和根数,带轮直径,传动中心距,带的张紧力和轴上载荷,同时还要验算带的速度和小带轮上的包角。三角带传动设计的源程序[1]#include <stdio.h>#include <stdlib.h>#include <math.h>#define PI 3.1415926int find_type(double N,double P)(double A[6][4]={{490.,3.8,490,0.8),(340.,10.5,100,1),(2.00,22.5,100,2.7),(15.0,36,100,5.9),(1200,85,100,17.5),(700,170,100,44)};int i;double c;for(i=0; i<6; i++) (if(N>=A[i][0]) return i+1;c=log10(A[i][2])+(log10(A[i][0])-log10(A[i][2]))*(log10(P)-log10(A[i][3]))/(log10(A[i][1])-log10(A[i][3]));if(N>=pow(10.0,c)) return i+1;)return 0;}void find_S_KB(int type,double *S,double *Q1,double *DMIN,double *DL,double *KB)(double A[5][7]={{47,81,138,230,476,692,1170),(0.06,0.1.0.17,0.3,0.62,0.9,1.52),(71,100,140,200,315,500,800),(25,33,40,59,76,96,119),(0.29.0.7.,1.99,5.6.,19.95,37.35,96.10)};*S=A[0][type-1];*Q1=A[1][type-1];*DMIN=A[2][type-1];*DL=A[3][type-1];*KB=0.001*A[4][type-1];}double find_D2(double D2)(double A[53]={71,75,80,90,95,100,106,112,118,125,132,140,150,160,170,180,200,212,224,236,250,265,280,300,315,355,375,400,425,450,475,500,530,560,600,630,670,710,750,800,900,1000,1060,1120,1250,1400,1500,1600,1800,1900,2000,2240,2500);int i;for(i=0; i<53; i++) if(A[i]>=D2) return A[i];return 0;}void find_LP_LI(double l0,double DL,double *LP,double *LI)(double A[32]={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);int i;for(i=0; i<32; i++) if(A[i]>=l0) (*LI=A[i];*LP=*LI+DL;return;)}double AA[27][31]=(/*O*/{63,0.13,0.23,0.31,0.39,0.47,0.54,0.60,0.67,0.72,0.78,0.82,0.85,0.90,0.93,0.96,0.99,1.01,1.02,1.02,1.03,1.04,1.02,1.00,0.96,0.94,0,0,0,0,0),(71.0.14,0.25,0.35,0.44,0.53,0.62,0.69,0.77,0.84,0.91,0.97,1.01,1.06,1.12,1.16,1.20,1.23,1.26,1.27,1.29,1.31,1.30,1.30,1.27,1.26,0,0,0,0,0),(80.0.1.,0.28,0.39,0.49,0.59,0.69,0.78,0.87,0.95,1.03,1.10,1.15,1.22,1.28,1.34,1.39,1.43,1.47,1.49,1.53,1.56,1.57,1.57,1.56,1.56,0,0,0,0,0),(90.0.1.,0.30,0.42,0.53,0.64,0.75,0.85,0.95,1.04,1.13,1.21,1.27,1.35,1.42,1.49,1.55,1.60,1.65,1.68,1.73,1.77,1.79,1.80,1.80,1.81,0,0,0,0,0),/*A*/(90.0.23,0.41.0.56,0.71,0.84,0.97,1.08,1.19,1.30,1.39,1.48,1.56,1.63,1.69,1.74,1.79,1.83,1.86,1.87,1.88,1.87,1.86,1.84,1.80,1.75,1.69,1.62,1.53,1.42,1.30),(1.br>0.,0.2.,0.45,0.62,0.80,0.95,1.10,1.23,1.37,1.49,1.61,1.72,1.82,1.91,1.99,2.07,2.1.,2.20,2.25,2.28,2.32,2.33,2.34,2.34,2.32,2.29,2.25,2.20,2.14,2.05,1.96),(1.2.0.27,0.49,0.69,0.88,1.06,1.22,1.38,1.53,1.68,1.82,1.95,2.07,2.18,2.29,2.39,2.48,2.56,2.63,2.68,2.74,2.77,2.80,2.82,2.83,2.82,2.80,2.77,2.72,2.66,2.58),(1.5,0.2.,0.53,0.75,0.95,1.15,1.33,1.51,1.68,1.85,2.00,2.15,2.29,2.42,2.54,2.66,2.76,2.86,2.95,3.03,3.10,3.16,3.20,3.23,3.26,3.27,3.28,3.26,3.23,3.18,3.13),/*B*/(1.5,0.38,0.68,0.94,1.18,1.36,1.60,1.79,1.96,2.13,2.26,2.42,2.54,2.65,2.74,2.82,2.88,2.94,2.98,2.99,2.99,2.96,2.93,2.87,2.79,2.70,2.58,2.43,2.27,2.06,1.86),(1.0.0.43.0.77,1.07,1.35,1.58,1.86,2.09,2.31,2.52,2.71,2.89,3.06,3.21,3.35,3.48,3.58,3.67,3.75,3.81,3.86,3.88,3.88,3.87,3.83,3.78,3.70,3.61,3.49,3.32,3.16),(1.0.0.4.,0.86,1.2.,1.53.1.80,2.13,2.41,2.67,2.93,3.16,3.39,3.60,3.80,3.98,4.15,4.30,4.44,4.56,4.67,4.76,4.83,4.88,4.91,4.92,4.91,4.87,4.82,4.75,4.63,4.52),(1.0.0.51,0.93.1.31,1.67,1.98,2.34.2.65,2.95,3.24,3.52,3.78,4.03,4.26,4.47,4.68,4.86,5.04,5.20,5.33,5.46,5.56,5.65,5.71,5.76,5.79,5.79,5.77,5.74,5.65,5.57),/*C*/(2.0,0,1.3.,1.86.2.34.2.78,3.20,3.5.,3.95,4.30,4.62,4.91,5.19,5.43,5.65,5.84,6.00,6.14.6.26,6.33,6.39, 6.38,6.36,6.31,6.22,6.09,5.94,5.73,5.48,5.16,4.84),(2.4.0,1.5.,2.09,2.6.,3.17.3.66,4.13,4.57,5.00,5.39,5.76,6.11,6.43,6.72,6.99,7.24,7.45,7.64,7.79,7.93, 8.01,8.07,8.09,8.06,8.02,7.94,7.81,7.64,7.40,7.15),(2.0,0,1.6.br>3.2.29,2.91,3.5.,4.06,4.59,5.10,5.60,6.05,6.49,6.90,7.29,7.65,7.98.8.30,8.58,8.83,9.05,9.25, 9.40,9.52,9.61,9.66,9.68,9.66,9.60,9.49,9.31,9.13),(2.0,0,1.7.br>5.2.4.,3.16.3.8.,4.43,5.02,5.60,6.15,6.67,7.16,7.65,8.09.8.51,8.90,9.27,9.61.9.94,10.22,10.48,10.68,10.87,11.01,11.11,11.20,11.27,11.27,11.20,11.10,10.98),/*D*/(3.5.0.2.7.,3.73,4.6.,5.53,6.34,7.08. 7.79. 8.46, 9.06, 9.61. 10.12,10.57,10.97,11.30,1..60.11.8.br>2.12.00,12.10,12.19.12.11,12.02,11.87,11.61,11.32,10.93,10.47,9.90, 9.19,8.32),(3.5.0.3.07.4.2.,5.40,6.44,7.43,8.36, 9.25, 1..10,10.68,11.61,12.31,12.93,13.51,14.03,14.5.,14.91,15.28,15.55,15.80,15.92,16.03.16.06,15.95,15.85,15.67,15.36,14.99,14.47,13.79),(4.0.0,3.39.4.7.,6.03,7.2.,8.39,9.49, 1..5.,11.55,12.49,13.39,14.24,15.02,15.76,16.45,17.08.17.65,18.19.18.60,19.02,19.28,19.55,19.73,19.83,19.88,19.82,19.70,19.49,19.13,18.62),(4.br>5.,0.3.6.,5.1.,6.61,7.9.,9.2.,10.48.11.72,12.81,13.89,14.91,15.92,16.87,17.73,18.57,1.br>9.3.br>2.20.04,20.72,21.28,21.83,22.25,22.66,22.97,23.20,23.40,23.48,23.52,23.40,23.19,22.82),/*E*/(50.,0,0,0,0,1..18.11.7.,13.31,14.76.16.17,17.44,18.69.19.84,2..92,21.92,22.82,23.66,24.42,25.11,25.6.,26.18,26.4.,26.7.,26.98,27.02,26.98,26.82,26.53,26.10,25.50,24.83),(5.br>6.,0.0,0,0,1..2.,13.01,14.7.,16.39.17.98,19.49,20.92,22.28,23.58,24.77,25.88,26.94,27.85,2.br>8.76,29.51.30.23,30.78,31.28,31.64,31.90,32.06,32.17,32.04,31.82,31.41,30.98),(6.0,0,0,0,0,1.br>2.4.,14.13.16.03,17.8.br>9.19.69,21.40,23.00,24.57,26.02,27.41,28.73,29.97,31.10,3.br>2.17.33.12,34.02,34.74,35.42,36.00,36.44,36.80,37.03,37.16,37.13,36.86,36.62),(7.0,0,0,0,0,1.br>2.9.,15.15,17.25,19.24.21.23.23.05,24.8.br>6.26.60,28.22,29.78,31.24,32.63,33.97,35.24,36.37.37.42,38.32,39.1.,39.90.40.50,41.08,41.50,41.75,41.85,41.85,41.70),/*F*/(8.0.0,0,0,0,1.br>3.9,16.1,18.2.20.2,22.1,24.1,25.8,27.4,28.9,30.3,31.8,33.0,34.1,35.2,36.1,36.9,37.6,38.1,38.5,38.7,38.8,38.6,38.3,37.8,37.2,36.3),(9.br>0.,0,0,0,0,15.1,17.6.2..0,22.3.24.4,26.6,28.6,30.4,32.3,33.9,35.6,37.1,38.4,39.8,40.9,4.br>2.0,43.0,43.7,44.3,44.8,45.0,45.2,45.2,45.0,44.7,44.3),(1.0.,0,0,0,0,16.2.18.8,21.4.23.9,26.2,28.6,30.8,32.8,34.9,36.6,38.7,40.4,41.9,43.5,44.8,46.0.47.2,48.2,49.0,49.7,50.2,50.5,50.8,50.8,50.7,50.4)};double find_P0(double D1,double V,int type)(int n1,n2,i,n;n1=4*(type-1); n2=n1+3;if(n2>=27) n2=26;n=n2;for(i=n1; i<=n2; i++) if(AA[i][0]>=D1) {n=i; break;)return AA[n][(int)(V+0.5)];}double find_KA(int k1,int k2,int h)(double A[4][2][3]={{{1.0,1.1,1.2),(1.1,1.2,1.3)},({1.1,1.2,1.3),(1.2,1.3,1.4)},({1.2,1.3,1.4),(1.4,1.5,1.6)},({1.3,1.4,1.5),(1.5,1.6,1.8)}};int k3;if(h<10) k3=1;else if(h>16) k3=3;else k3=2;return A[k2-1][k1-1][k3-1];}double find_KI(double ii)(if(ii<=1.04) return 1.0;if(ii<=1.19) return 1.03;if(ii<=1.49) return 1.08;if(ii<=2.95) return 1.12;return 1.14;)double find_KF(double af)(double A[1.][2]={{180.1.0),(170,0.98),(160,0.95),(150,0.92),(140,0.89),(130.0.86),(120,0.82),(110,0.78),(100,0.74),(90,0.69)};int i,n;for(i=1; i<10; i++) if(af<=A[i-1][0] af>=A[i][0]) (n=i; break;)return A[n-1][1]+(af-A[n-1][0])*(A[n][1]-A[n-1][1])/(A[n][0]-A[n-1][0]);}double find_KL(int type,double LI)(double A[32][8]={{450.0.89,0,0,0,0,0,0),(50.,0.91,0,0,0,0,0,0),(560.0.94,0.8,0,0,0,0,0),(630.0.96,0.81,0,78,0,0,0),(710.0.99,0.82,0.79,0,0,0,0),(80.,1.00,0.85,0.80,0,0,0,0),(90.,1.03,0.87,0.81,0,0,0,0),(1.0.,1.06,0.89,0.84,0,0,0,0),(1.20.1.08,0.91,0.86,0,0,0,0),(1.50.1.11,0.93,0.88,0.80,0,0,0),(1.0.,1.14,0.96,0.90,0.81,0,0,0),(1.0.,1.16,0.99,0.93,0.84,0,0,0),(1.0.,1.18,1.01,0.95,0.85,0,0,0),(20.0,1.20,1.03,0.98,0.88,0,0,0),(2240.0,1.06,1.00,0.91,0,0,0),(250.,0,1.09,1.03,0.93,0,0,0),(280.,0,1.11,1.05,0.95,0,0,0),(31.0.0,1.13,1.07,0.97,0.86,0,0),(3550.0,1.17,1.10,0.98,0.89,0,0),(40.0,0,1.19,1.13,1.02,0.91,0,0),(450.,0,0,1.15,1.04,0.93,0.90,0),(50.0,0,0,1.18,1.07,0.96,0.92,0),(560.,0,0,1.20,1.09,0.98,0.95,0),(630.,0,0,0,1.12,1.00,0.97,0.91),(71.0.0,0,0,1.15,1.03,1.00,0.94),(80.0,0,0,0,1.18,1.06,1.02,0.97),(9000,0,0,0,1.20,1.08,1.05,1.00),(1.000,0,0,0,0,1.11,1.07,1.03),(1.200,0,0,0,0,1.14,1.10,1.06),(1.500,0,0,0,0,0,1.12,1.09),(1.000,0,0,0,0,0,1.15,1.13),(1.000,0,0,0,0,0,1.18,1.16)};int i;for(i=0; i<32; i++) if(A[i][0]==LI) return A[i][type];return 0;}main(){int K,K1,K2;double P,N1,H,N2;double S,Q1,DMIN,DL,KB,D1,D2,II,A0,L0,LP,LI,P0,DP0,A,Amin,Amax;double KA,V,AF,KF,KI,KL,Z,F0,Q;P=10; N1=1450; N2=630;K1=1; K2=2; H=16;K=find_type(N1,P);printf("K=%dn",K);find_S_KB(K,S,Q1,DMIN,DL,KB);printf("S=%lf,Q1=%lf,DMIN=%lf,DL=%lf,KB=%lfn",S,Q1,DMIN,DL,KB);D1=DMIN;V=PI*D1*N1/60.00.0;if(V<5 || V>25) return 0;D2=N1/N2*D1*(1-0.01);D2=find_D2(D2);II=D2/D1/(1-0.01);