机械CAD实验报告

济南大学机械工程学院计算机辅助机械设计实验报告班级：机自****姓名：***学号：20**0403***日期：20**.12.一、实验目的计算机辅助机1、加深对计算机辅助机设计方法的基本理论和算法步骤的理解。2、培养学生独立编制、调试计算机程序的能力。3、掌握常用计算机辅助机程序的使用方法。4、培养学生灵活运用所学方法解决工程实际问题的能力。二、实验项目、学时分配及对每个实验项目的要求序号实验项目学时数实验要求1链表21、明确链表建立及编辑的基本原理及程序框图2、编制链表建立及编辑程序3、用考核题对所编程序进行考核2二叉树21、明确二叉树建立及遍历的基本原理及程序框图2、编制二叉树建立及遍历程序3、用考核题对所编程序进行考核3参数化图素拼装原理实验21、明确参数化图素拼装原理及程序框图2、编制参数化图素拼装程序3、用考核题对所编程序进行考核4设计资料的程序处理21、明确设计资料的程序处理的基本原理及程序框图2、编制设计资料的程序处理程序3、用考核题对所编程序进行考核5三角带传动的程序设计21、明确三角带传动的基本算法步骤及程序框图2、编制三角带传动的程序设计程序3、用考核题对所编程序进行考核三、实验报告内容每次上机实验结束后，学生要作一份完整的实验报告，实验报告内容应包括：1、实验的基本原理简述及程序框图绘制。2、编制实验程序。3、用考核题对所编程序进行考核。四、实验考核办法本课程实验成绩依据以下几个方面进行考核1、实验报告2、考核所编制的程序3、实验纪律、出勤等

实验一链表用链表的方法编写减速箱零件清单（包括序号、名称、数量、材料）的管理程序，要求提供插入、删除、列表功能。减速箱零件清单序号名称数量材料1箱体1HT1002箱盖1HT1003齿轮轴1454轴1455齿轮1456端盖1HT100…………实验程序清单#include"stdafx.h"#include"stdio.h"#include"malloc.h"#include"string.h"typedefstruct_tagLink{ intNo,Num; charName[10],Mat[10]; struct_tagLink*next;}LINK;

LINK*Head=NULL;voidOutPut(LINK*t){ printf("%5d%15s%5d%15s\n",t->No,t->Name,t->Num,t->Mat);}//插入voidInsert(intNo,char*Name,intNum,char*Mat){ LINK*Node=(LINK*)malloc(sizeof(LINK)); Node->No=No;strcpy(Node->Name,Name); Node->Num=Num;strcpy(Node->Mat,Mat); Node->next=Head;Head=Node;}//查询voidCheck(intNo){ LINK*t=Head; while(t){ if(t->No==No){ OutPut(t);break; }elset=t->next; }}//删除voidDelete(intNo){ LINK*p,*t; p=t=Head; while(t&&t->No!=No){

p=t;t=t->next; } if(t==NULL){printf("未找到%d\n",No);return;} if(p==t){ Head=Head->next;free(t); }else{ p->next=t->next;free(t); }}//列表输出voidOutPutAll(){ LINK*t=Head; while(t){ OutPut(t);t=t->next;

}}intmain(intargc,char*argv[]){ for(;;){ intcode; printf(" 减速箱零件查询系统\n\n\n"); printf("0--退出 1--输入\n"); printf("2--查询 3--删除\n"); printf("4--列表\n"); printf("请选择:");scanf("%d",&code); if(code==0)break; switch(code){ case1:{ intNo,Num; charName[10],Mat[10]; for(;;){ printf("序号<0--结束>:");scanf("%d",&No); if(No==0)break; printf("名称:");scanf("%s",&Name); printf("数量:");scanf("%d",&Num); printf("材料:");scanf("%s",&Mat); Insert(No,Name,Num,Mat); } } break; case2:{ intNo; printf("输入查询的序号:");scanf("%d",&No); Check(No); } break; case3:{ intNo; printf("输入删除的序号:");scanf("%d",&No);

Delete(No); } break; case4:OutPutAll();break; } } return0;}

实验二二叉树1.建立排序二叉树、遍历排序二叉树编写建立和遍历二叉排序树的程序。3.实验数据：18，14，22，7，17，20，35，27，11，3，204.程序清单：#include"stdafx.h"#include"stdio.h"#include"malloc.h"typedefstruct_tagLink{ struct_tagLink*LC,*RC; intdata;}LINK;LINK*Head;intA[]={18,14,22,7,17,20,35,27,11,3,20};intN=sizeof(A)/sizeof(int);//建立二叉排序树的函数voidbuilt(){ for(inti=0;i<N;i++){ LINK*Node,*Temp; Node=(LINK*)malloc(sizeof(LINK)); Node->data=A[i]; Node->LC=Node->RC=NULL; if(i==0){Head=Node;continue;} Temp=Head; for(;;){ if(A[i]<Temp->data){ if(Temp->LC==NULL){Temp->LC=Node;break;} elseTemp=Temp->LC; }else{ if(Temp->RC==NULL){Temp->RC=Node;break;} elseTemp=Temp->RC; } } }}//用中序遍历二差树，输出结果为排序的数据voidoutput(){ LINK*stack[50]; intTOP=0; LINK*P=Head; for(;;){ if(P!=NULL){ stack[TOP++]=P; P=P->LC; }else{ if(TOP==0)break; P=stack[--TOP]; printf("%d\n",P->data); P=P->RC; } }}intmain(intargc,char*argv[]){ built(); output(); return0;}

实验三参数化图素拼装原理实验实验内容：编制构成轴的七种形状特征的函数，并利用这些函数生成一根轴。构成轴的七种结构形式传动轴程序示例voidCTSPZView::DrawUnit_Arc(CDC*pDC,intr,CPointp0,CPointp1,CPointp2){ CRectrect(p0.x-r,p0.y-r,p0.x+r,p0.y+r); pDC->Arc(&rect,p1,p2);}voidCTSPZView::DrawUnit_A(CDC*pDC,CPointp0,intd,intc,boolv){ p2.x=p3.x=p0.x; p2.y=p0.y-(d/2-c); p3.y=p0.y+(d/2-c); p1.x=p4.x=p0.x+(v?(-c):c); p1.y=p0.y-d/2; p4.y=p0.y+d/2; pDC->MoveTo(p1); pDC->LineTo(p2); pDC->LineTo(p3); pDC->LineTo(p4);}voidCTSPZView::DrawUnit_B(CDC*pDC,CPointp0,intd,intb,boolv){}voidCTSPZView::DrawUnit_C(CDC*pDC,CPointp0,intd,intb,boolv){}voidCTSPZView::DrawUnit_D(CDC*pDC,CPointp0,intd,intb,boolv){}voidCTSPZView::DrawUnit_E(CDC*pDC,CPointp0,intd,intb,intr,boolv){}voidCTSPZView::DrawUnit_F(CDC*pDC,CPointp0,intd,intb,intl){ p5.x=p4.x=p0.x+(l-d/2); p5.y=p1.y=p0.y-b/2; p4.y=p3.y=p0.y+b/2; intt=(int)(sqrt(d*d/4.0-b*b/4.0)+0.5); p1.x=p3.x=p0.x+t; DrawUnit_Arc(pDC,d/2,p0,p1,p3); pDC->MoveTo(p1); pDC->LineTo(p5); pDC->LineTo(p4); pDC->LineTo(p3);}voidCTSPZView::DrawUnit_G(CDC*pDC,CPointp0,intb,intl){}voidCTSPZView::OnTspzA(){ CClientDCdc(this); DrawUnit_A(&dc,CPoint(200,300),100,10); DrawUnit_A(&dc,CPoint(300,300),100,10,false); //CDC*pDC,CPointp0,intd,intc,boolv)}voidCTSPZView::OnTspz0(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzB(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzC(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzD(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzE(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzF(){ //TODO:Addyourcommandhandlercodehere CDlgDrawFdlg; if(dlg.DoModal()!=IDOK)return; CClientDCdc(this); DrawUnit_F(&dc,CPoint(dlg.m_x0,dlg.m_y0),dlg.m_d,dlg.m_b,dlg.m_l);}voidCTSPZView::OnTspzG(){ //TODO:Addyourcommandhandlercodehere }voidCTSPZView::OnTspzM(){ //TODO:Addyourcommandhandlercodehere }画轴程序：//test1View.cpp:implementationoftheCTest1Viewclass//#include"stdafx.h"#include"test1.h"#include"test1Doc.h"#include"test1View.h"#ifdef_DEBUG#definenewDEBUG_NEW#undefTHIS_FILEstaticcharTHIS_FILE[]=__FILE__;#endif///////////////////////////////////////////////////////////////////////////////CTest1ViewIMPLEMENT_DYNCREATE(CTest1View,CView)BEGIN_MESSAGE_MAP(CTest1View,CView) //{{AFX_MSG_MAP(CTest1View) ON_COMMAND(ID_DRAW_1,OnDraw1) ON_COMMAND(ID_draw_2,Ondraw2) ON_COMMAND(id_draw_3,Ondraw3) ON_COMMAND(id_draw_4,Ondraw4) ON_COMMAND(id_draw_5,Ondraw5) ON_COMMAND(id_draw_6,Ondraw6) ON_COMMAND(id_draw_7,Ondraw7) ON_COMMAND(id_draw_8,Ondraw8) ON_COMMAND(id_draw_9,Ondraw9) ON_COMMAND(id_draw_10,Ondraw10) ON_COMMAND(id_draw_11,Ondraw11) ON_COMMAND(id_draw_12,Ondraw12) ON_COMMAND(id_draw_13,Ondraw13) ON_COMMAND(id_draw_14,Ondraw14) //}}AFX_MSG_MAP //Standardprintingcommands ON_COMMAND(ID_FILE_PRINT,CView::OnFilePrint) ON_COMMAND(ID_FILE_PRINT_DIRECT,CView::OnFilePrint) ON_COMMAND(ID_FILE_PRINT_PREVIEW,CView::OnFilePrintPreview)END_MESSAGE_MAP()///////////////////////////////////////////////////////////////////////////////CTest1Viewconstruction/destructionCTest1View::CTest1View(){ //TODO:addconstructioncodehere}CTest1View::~CTest1View(){}BOOLCTest1View::PreCreateWindow(CREATESTRUCT&cs){ //TODO:ModifytheWindowclassorstylesherebymodifying //theCREATESTRUCTcs returnCView::PreCreateWindow(cs);}///////////////////////////////////////////////////////////////////////////////CTest1ViewdrawingvoidCTest1View::OnDraw(CDC*pDC){ CTest1Doc*pDoc=GetDocument(); ASSERT_VALID(pDoc); //TODO:adddrawcodefornativedatahere}///////////////////////////////////////////////////////////////////////////////CTest1ViewprintingBOOLCTest1View::OnPreparePrinting(CPrintInfo*pInfo){ //defaultpreparation returnDoPreparePrinting(pInfo);}voidCTest1View::OnBeginPrinting(CDC*/*pDC*/,CPrintInfo*/*pInfo*/){ //TODO:addextrainitializationbeforeprinting}voidCTest1View::OnEndPrinting(CDC*/*pDC*/,CPrintInfo*/*pInfo*/){ //TODO:addcleanupafterprinting}///////////////////////////////////////////////////////////////////////////////CTest1Viewdiagnostics#ifdef_DEBUGvoidCTest1View::AssertValid()const{ CView::AssertValid();}voidCTest1View::Dump(CDumpContext&dc)const{ CView::Dump(dc);}CTest1Doc*CTest1View::GetDocument()//non-debugversionisinline{ ASSERT(m_pDocument->IsKindOf(RUNTIME_CLASS(CTest1Doc))); return(CTest1Doc*)m_pDocument;}#endif//_DEBUG///////////////////////////////////////////////////////////////////////////////CTest1Viewmessagehandlersvoiddraw_test1(CDC*pDC,CPointp0,intd,intc){ CPointp1,p2,p3,p4; p1.x=p0.x+c; p1.y=p0.y-d/2; p4.x=p0.x+c; p4.y=p0.y+d/2; p2.x=p0.x; p2.y=p0.y-(d/2-c); p3.x=p0.x; p3.y=p0.y+(d/2-c); pDC->MoveTo(p1); pDC->LineTo(p2); pDC->LineTo(p3); pDC->LineTo(p4);}voiddraw_test2(CDC*pDC,CPointp0,intd,intc){ CPointp1,p2,p3,p4; p1.x=p0.x+c; p1.y=p0.y-d/2; p4.x=p0.x+c; p4.y=p0.y+d/2; p2.x=p0.x; p2.y=p0.y-d/2; p3.x=p0.x; p3.y=p0.y+d/2; pDC->MoveTo(p1); pDC->LineTo(p2); pDC->LineTo(p3); pDC->LineTo(p4);}voiddraw_test3(CDC*pDC,CPointp0,intd,intc){ CPointp1,p2,p3,p4; p1.x=p0.x-c; p1.y=p0.y-d/2; p4.x=p0.x-c; p4.y=p0.y+d/2; p2.x=p0.x; p2.y=p0.y-(d/2-c); p3.x=p0.x; p3.y=p0.y+(d/2-c); pDC->MoveTo(p1); pDC->LineTo(p2); pDC->LineTo(p3); pDC->LineTo(p4);}voidCTest1View::OnDraw1(){ CClientDCdc(this); draw_test1(&dc,CPoint(200,300),100,10); }voidCTest1View::Ondraw2(){ CClientDCdc(this); draw_test2(&dc,CPoint(210,300),100,150); }voidCTest1View::Ondraw3(){ CClientDCdc(this); draw_test1(&dc,CPoint(360,300),150,10); }voidCTest1View::Ondraw4(){ CClientDCdc(this); draw_test2(&dc,CPoint(370,300),150,150); }voidCTest1View::Ondraw5(){ CClientDCdc(this); draw_test2(&dc,CPoint(520,300),150,0); }voidCTest1View::Ondraw6(){ CClientDCdc(this); draw_test2(&dc,CPoint(520,300),100,10); }voidCTest1View::Ondraw7(){ CClientDCdc(this); draw_test1(&dc,CPoint(530,300),200,10); }voidCTest1View::Ondraw8(){ CClientDCdc(this); draw_test2(&dc,CPoint(540,300),200,50); }voidCTest1View::Ondraw9(){ CClientDCdc(this); draw_test2(&dc,CPoint(590,300),200,0); }voidCTest1View::Ondraw10(){ CClientDCdc(this); draw_test2(&dc,CPoint(590,300),170,200); }voidCTest1View::Ondraw11(){ CClientDCdc(this); draw_test2(&dc,CPoint(790,300),170,0);}voidCTest1View::Ondraw12(){ CClientDCdc(this); draw_test2(&dc,CPoint(790,300),140,10); }voidCTest1View::Ondraw13(){ CClientDCdc(this); draw_test2(&dc,CPoint(800,300),150,150); }voidCTest1View::Ondraw14(){ CClientDCdc(this); draw_test2(&dc,CPoint(950,300),150,0); }voidCTest1View::Ondraw15(){ CClientDCdc(this); draw_test2(&dc,CPoint(960,300),150,10); }

实验四设计资料的程序处理实验内容及要求：编制下列函数及相应的主程序来调用这些函数。保证输出结果正确。制查三角胶带型号的函数(参见图5-5)。要求输入转速和功率，输出型号。2.编制“一元函数插值”的函数，实验数据见表5-7.3.编制“二元函数插值”的函数，实验数据见表5-7.4.编制“最小二乘法求线形方程”的函数，实验数据见表5-11.#include"stdafx.h"#include"math.h"#include"stdio.h"//找三角胶带型号输入参数N-转速;P-功率//函数返回值：0-O型1-A型2-B型3-C型4-D型5-E型6-F型intfind_type(doubleN,doubleP){ doubleA[6][4]={{4900,3.8,490,0.8}, {3400,10.5,100,1}, {2400,22.5,100,2.7}, {1500,36,100,5.9}, {1200,85,100,17.5}, {700,170,100,44}}; inti; doublec; for(i=0;i<6;i++){ if(N>=A[i][0])returni; 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))returni; } return6;}//一元函数线形插值//xx,yy--节点数据，n--节点个数intfind_liner(double*xx,double*yy,intn,doublex,double*y){ doublex1,y1,x2,y2; inti=0; if(x<xx[0]||x>xx[n-1])return0; while(x>xx[i])i++; i--; x1=xx[i];y1=yy[i]; x2=xx[i+1];y2=yy[i+1]; *y=y1+(x-x1)*(y2-y1)/(x2-x1); return1;}//一元函数抛物线插值//xx,yy--节点数据，n--节点个数intfind_quadric(double*xx,double*yy,intn,doublex,double*y){ doublex1,y1,x2,y2,x3,y3; inti=0; if(x<xx[0]||x>xx[n-1])return0; while(x>xx[i])i++; i--; if((x-xx[i])<(xx[i+1]-x))i--; if(i<0)i=0; if(i>n-3)i=n-3; x1=xx[i];y1=yy[i]; x2=xx[i+1];y2=yy[i+1]; x3=xx[i+2];y3=yy[i+2]; *y=0; *y+=y1*(x-x2)*(x-x3)/(x1-x2)/(x1-x3); *y+=y2*(x-x1)*(x-x3)/(x2-x1)/(x2-x3); *y+=y3*(x-x1)*(x-x2)/(x3-x1)/(x3-x2); return1;}//最小二乘法求线形方程voidminlength_line(doublexy[][2],intm,double*a,double*b){ doublea1,b1,c1,a2,b2,c2,d; b1=c1=a2=b2=c2=0.0; for(inti=0;i<m;i++){ b1+=xy[i][0]; c1+=xy[i][1]; b2+=xy[i][0]*xy[i][0]; c2+=xy[i][0]*xy[i][1]; } a1=m;a2=b1; d=a1*b2-a2*b1; *a=(c1*b2-c2*b1)/d; *b=-(c1*a2-c2*a1)/d;}intmain(intargc,char*argv[]){ printf("%d\n",find_type(2400,3.8)); doublexx[6]={0.4,0.5,0.6,0.7,0.8,0.9}; doubleyy[6]={0.38942,0.47943,0.56464,0.64422,0.71736,0.80341}; doublex=0.57891,y; find_liner(xx,yy,6,x,&y); printf("%lf\n",y); find_quadric(xx,yy,6,x,&y); printf("%lf\n",y); //最小二乘法求线形方程 doublexy[][2]={{1,0},{2,2},{3,2},{4,5},{5,4}}; doublea,b; minlength_line(xy,5,&a,&b); printf("a=%lf\nb=%lf\n",a,b); return0;}

实验五三角带传动的程序设计1、已知条件传动用途和工作条件，传动功率P,主、从带轮的转速n1,n22．设计时需要确定的内容三角带型号、长度和根数，带轮直径，传动中心距，带的张紧力和轴上载荷，同时还要验算带的速度和小带轮上的包角。三角带传动设计的源程序#include<stdio.h>#include<stdlib.h>#include<math.h>#definePI3.1415926intfind_type(doubleN,doubleP){ doubleA[6][4]={{4900,3.8,490,0.8}, {3400,10.5,100,1}, {2400,22.5,100,2.7}, {1500,36,100,5.9}, {1200,85,100,17.5}, {700,170,100,44}}; inti; doublec; for(i=0;i<6;i++){ if(N>=A[i][0])returni+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))returni+1; } return0;}voidfind_S_KB(inttype,double*S,double*Q1,double*DMIN,double*DL,double*KB){ doubleA[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.77,1.99,5.63,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];}doublefind_D2(doubleD2){ doubleA[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}; inti; for(i=0;i<53;i++)if(A[i]>=D2)returnA[i];return0;}voidfind_LP_LI(doublel0,doubleDL,double*LP,double*LI){ doubleA[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}; inti; for(i=0;i<32;i++)if(A[i]>=l0){ *LI=A[i]; *LP=*LI+DL; return; }}doubleAA[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.15,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.16,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},{100,0.25,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.14,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},{112,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},{125,0.29,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*/{125,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},{140,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},{160,0.47,0.86,1.21,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},{180,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*/{200,0,1.34,1.86,2.34,2.78,3.20,3.59,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},{224,0,1.50,2.09,2.65,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},{250,0,1.63,2.29,2.91,3.50,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},{280,0,1.75,2.49,3.16,3.80,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*/{315,0,2.70,3.73,4.66,5.53,6.34,7.08,7.79,8.46,9.06,9.61,10.12,10.57,10.97,11.30,11.60,11.82,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},{355,0,3.07,4.27,5.40,6.44,7.43,8.36,9.25,10.10,10.68,11.61,12.31,12.93,13.51,14.03,14.50,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},{400,0,3.39,4.74,6.03,7.24,8.39,9.49,10.52,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},{450,0,3.67,5.18,6.61,7.95,9.24,10.48,11.72,12.81,13.89,14.91,15.92,16.87,17.73,18.57,19.32,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*/{500,0,0,0,0,10.18,11.78,13.31,14.76,16.17,17.44,18.69,19.84,20.92,21.92,22.82,23.66,24.42,25.11,25.62,26.18,26.48,26.78,26.98,27.02,26.98,26.82,26.53,26.10,25.50,24.83},{560,0,0,0,0,11.20,13.01,14.73,16.39,17.98,19.49,20.92,22.28,23.58,24.77,25.88,26.94,27.85,28.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},{630,0,0,0,0,12.40,14.13,16.03,17.89,19.69,21.40,23.00,24.57,26.02,27.41,28.73,29.97,31.10,32.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},{710,0,0,0,0,12.99,15.15,17.25,19.24,21.23,23.05,24.86,26.60,28.22,29.78,31.24,32.63,33.97,35.24,36.37,37.42,38.32,39.18,39.90,40.50,41.08,41.50,41.75,41.85,41.85,41.70},/*F*/{800,0,0,0,0,13.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},{900,0,0,0,0,15.1,17.6,20.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,42.0,43.0,43.7,44.3,44.8,45.0,45.2,45.2,45.0,44.7,44.3},{1000,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}};doublefind_P0(doubleD1,doubleV,inttype){ intn1,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;} returnAA[n][(int)(V+0.5)];}doublefind_KA(intk1,intk2,inth){ doubleA[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}}}; intk3; if(h<10)k3=1; elseif(h>16)k3=3; elsek3=2;returnA[k2-1][k1-1][k3-1];}doublefind_KI(doubleii){ if(ii<=1.04)return1.0; if(ii<=1.19)return1.03; if(ii<=1.49)return1.08; if(ii<=2.95)return1.12; return1.14;}doublefind_KF(doubleaf){ doubleA[10][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}}; inti,n; for(i=1;i<10;i++)if(af<=A[i-1][0]&&af>=A[i][0]){n=i;break;} returnA[n-1][1]+(af-A[n-1][0])*(A[n][1]-A[n-1][1])/(A[n][0]-A[n-1][0]);}doublefind_KL(inttype,doubleLI){ doubleA[32][8]={ {450,0.89,0,0,0,0,0,0}, {500,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}, {800,1.00,0.85,0.80,0,0,0,0}, {900,1.03,0.87,0.8