维插值算法与实现.pptx

《维插值算法与实现.pptx》由会员分享，可在线阅读，更多相关《维插值算法与实现.pptx（52页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、会计学1维插值算法与实现维插值算法与实现第1页/共52页三角形面积求解三角形面积求解n n可以采用一个界面的输入方式，也可采用inputbox的输入方式，但要注意，因为输入的次数为三次，要用定数循环，不能没有条件的循环。第2页/共52页三角形面积求解三角形面积求解n nPrivate Sub Form_Load()Private Sub Form_Load()n nText2=Text2=n nEnd SubEnd Subn nPrivate Sub Text1_Change(Index As Private Sub Text1_Change(Index As Integer)Integer)

2、n nIf Not IsNumeric(Text1(Index).Text)If Not IsNumeric(Text1(Index).Text)ThenThenn n Text2.Text=Text2.Text=输入的不是数字，输入的不是数字，请重新输入请重新输入 n n Text1(Index).SetFocus Text1(Index).SetFocusn n Text1(Index).Text=Text1(Index).Text=n nElseElsen n Text2=Text2=输入的数字是正确的输入的数字是正确的 n nEnd IfEnd Ifn nEnd SubEnd Sub初

3、始化判断输入的数据第3页/共52页三角形面积求解三角形面积求解n nPrivate Sub Command1_Click()Private Sub Command1_Click()计算计算n nDim A#,B#,C#,S#,Mianji#Dim A#,B#,C#,S#,Mianji#n nA=Val(Text1(0).Text)A=Val(Text1(0).Text)n nB=Val(Text1(1).Text)B=Val(Text1(1).Text)n nC=Val(Text1(2).Text)C=Val(Text1(2).Text)n nIf A+B C And B+C A And A+

4、C B If A+B C And B+C A And A+C B ThenThenn n S=(A+B+C)/2 S=(A+B+C)/2n n Mianji=Sqr(S*(S-A)*(S-B)*(S-C)Mianji=Sqr(S*(S-A)*(S-B)*(S-C)n n Text2.Text=Format(Mianji,Text2.Text=Format(Mianji,三角形的面积三角形的面积为为0.#)0.#)n nElseElsen n Text2.Text=Text2.Text=输入的三条边不能构成三角输入的三条边不能构成三角形形 n nEnd IfEnd Ifn nEnd SubEnd

5、 Sub第4页/共52页三角形面积求解方法三角形面积求解方法2第5页/共52页三角形面积求解三角形面积求解n nPrivate Sub Command4_Click()Private Sub Command4_Click()n nOn Error Resume NextOn Error Resume Nextn nDim AA()As StringDim AA()As Stringn nIf Text3(0).Text Or Text3(1).Text ThenIf Text3(0).Text Or Text3(1).Text Thenn n If Option1(0).Value=True

6、Then AA=Split(Text3(0).Text,)If Option1(0).Value=True Then AA=Split(Text3(0).Text,)n n If Option1(1).Value=True Then AA=Split(Text3(1).Text,)If Option1(1).Value=True Then AA=Split(Text3(1).Text,)n nElseElsen n Text4=Text4=没有数据输入没有数据输入 n nEnd IfEnd Ifn n下续下续第6页/共52页三角形面积求解三角形面积求解n nFunction Split(Exp

7、ression As String,Delimiter,Limit As Long=-1,Compare As VbCompareMethod=vbBinaryCompare)VBA.Strings 的成员 Split a string into an array解释：split把一个字符串按分隔符分成一个数组，这个数组须是动态数组。空格分隔容易出现问题，但逗号分隔不会出现问题。例如：第7页/共52页三角形面积求解三角形面积求解多加几个空格没有问题，但不能有两个逗号连着多加几个空格出现问题，分解的值有问题第8页/共52页代码续代码续n nDim A#,B#,C#,S#,Mianji#Dim A

8、#,B#,C#,S#,Mianji#n nA=Val(AA(0)A=Val(AA(0)n nB=Val(AA(1)B=Val(AA(1)n nC=Val(AA(2)C=Val(AA(2)n nIf A+B C And B+C A And A+C B ThenIf A+B C And B+C A And A+C B Thenn n S=(A+B+C)/2 S=(A+B+C)/2n n Mianji=Sqr(S*(S-A)*(S-B)*(S-C)Mianji=Sqr(S*(S-A)*(S-B)*(S-C)n n Text4.Text=Text4.Text=三角形的三边分别为三角形的三边分别为a=&

9、A&,b=&B&,c=&C&vbCrLf&a=&A&,b=&B&,c=&C&vbCrLf&Format(Mianji,Format(Mianji,三角形的面积为三角形的面积为0.#)0.#)n nElseElsen n Text4.Text=Text4.Text=三角形的三边分别为三角形的三边分别为a=&A&,b=&B&,c=&C&vbCrLf&a=&A&,b=&B&,c=&C&vbCrLf&输入的三条输入的三条边不能构成三角形边不能构成三角形 n nEnd IfEnd Ifn nEnd SubEnd Sub第9页/共52页n n103.75,-1,38,7,15,1;n n96.75,1,8

10、6,52,30,1;n n420.77,-1,39,18,30,1;n n208.64,1,62,31,30,1;n n436.79,1,25,56,30,-1;n n56.48,-1,87,1,15,-1;n n98.8,-1,53,22,0,-1;n n68.62,1,36,38,0,-1;n n95.1,1,59,29,0,-1;n n207.41,-1,51,40,45,-1第10页/共52页n nPublic Sub StrtoShuzhu(ByVal Str1 As String,A()As Double)n nDim RowData As Variantn nDim ColDat

11、a As Variantn nDim RowtmpDat As Variantn nDim ColTmpDat As Variantn nDim r As Integer,C As Integern nRowData=Split(Str1,;)n nReDim A(UBound(RowData),1)n nr=-1第11页/共52页n nFor Each RowtmpDat In RowDatan nColData=Split(RowtmpDat,)n nReDim Preserve A(UBound(RowData),UBound(ColData)n nr=r+1n nC=-1n nFor

12、Each ColTmpDat In ColDatan nC=C+1n nA(r,C)=ColTmpDatn nNextn nNext第12页/共52页第13页/共52页含水率试验含水率试验要求两组计算一个平均值，当两个值求平均时，差值大于规范要求时，用红色背景显示该数据第14页/共52页含水率试验含水率试验n nPrivate Sub KJSZ(ByVal Shu As Integer)Private Sub KJSZ(ByVal Shu As Integer)n nOn Error Resume NextOn Error Resume Nextn nDim i As IntegerDim i

13、 As Integern nIf Shu=10 ThenIf Shu=10 Thenn nText55.BackColor=vbRedText55.BackColor=vbRedn nText55=Text55=加载的试验组数过多，本程序暂时不能处理加载的试验组数过多，本程序暂时不能处理 n nExit SubExit Subn nEnd IfEnd Ifn nIf Shu 1 And Shu 1 And Shu 1 ThenIf Val(Text54)1 Thenn nFor i=0 To Val(Text54)-1For i=0 To Val(Text54)-1n n HSmst(i)=F

14、ormat(Val(HSmhst(i)-Val(HSmh(i),#0.000)HSmst(i)=Format(Val(HSmhst(i)-Val(HSmh(i),#0.000)n n HSmgt(i)=Format(HSmhgt(i)-HSmh(i),#0.000)HSmgt(i)=Format(HSmhgt(i)-HSmh(i),#0.000)n n HSw(i)=Format(HSmhst(i)-HSmhgt(i)*100/HSmgt(i),#0.000)HSw(i)=Format(HSmhst(i)-HSmhgt(i)*100/HSmgt(i),#0.000)n nNextNextn n

15、For i=1 To Val(Text54)For i=1 To Val(Text54)n n If i Mod 2=0 Then If i Mod 2=0 Thenn n If Abs(Val(HSw(i-1)-Val(HSw(i-2)2 Then If Abs(Val(HSw(i-1)-Val(HSw(i-2)=1 And I Mod 2=1 ThenIf I=1 And I Mod 2=1 Thenn n Spreadsheet1.Cells(I+2,6)=(Spreadsheet1.Cells(I+2,5)+Spreadsheet1.Cells(I+1,5)/2 Spreadsheet

16、1.Cells(I+2,6)=(Spreadsheet1.Cells(I+2,5)+Spreadsheet1.Cells(I+1,5)/2n n n n End If End Ifn n n nNextNext第22页/共52页作业作业 1n n添加Microsoft office xp控件n n用表格法编写含水率或密度计算程序n n学习用split()和strtoshuzhu()函数把一个字符串转变成数组。n n有图的请抓图，作业可以是手写版也可以是打印版。第23页/共52页密度试验密度试验第24页/共52页 md md1 md2 md3 md4 md5 md6 md7 md8第25页/共5

17、2页加载试验组数加载试验组数n nPrivate Sub Text5_Change()n nDim i As IntegerDim i As Integern nIf Val(Text5)10 ThenIf Val(Text5)10 Thenn n MsgBox MsgBox 输入数字出错输入数字出错,vbInformation,vbInformation,请重新输入请重新输入 n n Exit Sub Exit Subn nEnd IfEnd Ifn nIIf Val(Text5)0 ThenIIf Val(Text5)0 Then 加载试验组数加载试验组数n n If Val(Text5)

18、MD1.Count ThenIf Val(Text5)MD1.Count Thenn n For i=MD1.ubound+1 To Val(Text5)-1 For i=MD1.ubound+1 To Val(Text5)-1n n Load MD1(i)Load MD1(i)：Load MD2(i)Load MD2(i)：Load MD3(i)Load MD3(i)：Load MD4(i)Load MD4(i)n n Load MD5(i)Load MD5(i)：Load MD6(i)Load MD6(i)：Load MD7(i)Load MD7(i)n n Load MD8(i)Load

19、 MD8(i)：MD1(i)=i+1MD1(i)=i+1：MD2(i)=423+i MD2(i)=423+i 动态加载控件时，每个控件的index属性设置为0第26页/共52页加载控件，控件显示位置加载控件，控件显示位置n nMD1(i).Top=MD1(i-1).Top+350 加载后的控件位加载后的控件位置置n n MD2(i).Top=MD2(i-1).Top+350n n MD3(i).Top=MD1(i-1).Top+350MD3(i).Top=MD1(i-1).Top+350nn MD4(i).Top=MD2(i-1).Top+350 MD4(i).Top=MD2(i-1).Top

20、+350nn MD5(i).Top=MD1(i-1).Top+350 MD5(i).Top=MD1(i-1).Top+350nn MD6(i).Top=MD2(i-1).Top+350 MD6(i).Top=MD2(i-1).Top+350nn MD7(i).Top=MD1(i-1).Top+350 MD7(i).Top=MD1(i-1).Top+350nn MD8(i).Top=MD2(i-1).Top+350 MD8(i).Top=MD2(i-1).Top+350第27页/共52页让控件显示在窗体上让控件显示在窗体上n nMD1(i).Visible=True 显示加载后的控件显示加载后的

21、控件n n MD2(i).Visible=Truen n MD3(i).Visible=TrueMD3(i).Visible=Truenn MD4(i).Visible=True MD4(i).Visible=Truenn MD5(i).Visible=True MD5(i).Visible=Truenn MD6(i).Visible=True MD6(i).Visible=Truenn MD7(i).Visible=True MD7(i).Visible=Truenn MD8(i).Visible=True MD8(i).Visible=Truen nNext第28页/共52页当界面上的控件

22、当界面上的控件多时，控件的卸多时，控件的卸载载n n ElseIf Val(Text5)MD1.Count Then ElseIf Val(Text5)0 Then If i 0 Thenn n Unload MD1(i)Unload MD1(i)nn Unload MD2(i)Unload MD2(i)：Unload MD3(i)Unload MD3(i)：Unload MD4(i)Unload MD4(i)nn Unload MD5(i)Unload MD5(i)：Unload MD6(i)Unload MD6(i)：Unload MD7(i)Unload MD7(i)nn Unload

23、MD8(i)Unload MD8(i)n n End If End Ifn n Next Nextn n End If End Ifn nEnd IfEnd Ifn nMD1(0)=1MD1(0)=1 这些数据不重要，随便编个号这些数据不重要，随便编个号n nMD2(0)=423MD2(0)=423n nEnd SubEnd Sub第29页/共52页2演示数据演示数据n nPrivate Sub MDYS_Click()n nDim i As IntegerDim i As Integern nText5=3 Text5=3 设只有三组试验设只有三组试验n nText5_Change Text

24、5_Change 事件过程也可直接调用，加载试验组数事件过程也可直接调用，加载试验组数n nFor i=0 To 2 For i=0 To 2 试验自动编号与环刀自动编号试验自动编号与环刀自动编号n n MD1(i)=i+1MD1(i)=i+1n n MD2(i)=423+i MD2(i)=423+in nNextNextn nMD3(0)=44.089MD3(0)=44.089：MD4(0)=161.605MD4(0)=161.605：MD5(0)=60MD5(0)=60n nMD6(0)=23.01 MD6(0)=23.01 第一行数据第一行数据nnMD3(1)=41.089MD3(1)=

25、41.089：MD4(1)=169.605MD4(1)=169.605：MD5(1)=60MD5(1)=60nnMD6(1)=22.6MD6(1)=22.6nnMD3(2)=43.089MD3(2)=43.089：MD4(2)=169.607MD4(2)=169.607：MD5(2)=60MD5(2)=60nnMD6(2)=20.6MD6(2)=20.6n nEnd SubEnd Sub第30页/共52页计算过程计算过程1n nPrivate Sub MDJS_Click()Private Sub MDJS_Click()n nDim i As Integer,K As IntegerDim

26、i As Integer,K As Integern nDim tmp As Double,Strtmp As StringDim tmp As Double,Strtmp As Stringn nFor i=0 To Val(Text5)-1For i=0 To Val(Text5)-1n n tmp=(Val(MD4(i)-Val(MD3(i)/Val(MD5(i)tmp=(Val(MD4(i)-Val(MD3(i)/Val(MD5(i)n n MD7(i)=Format(tmp,0.#)MD7(i)=Format(tmp,0.#)湿密度湿密度n n If Val(MD6(i)0 Then

27、If Val(MD6(i)0 Thenn n tmp=Val(MD7(i)/(1+Val(MD6(i)/100)tmp=Val(MD7(i)/(1+Val(MD6(i)/100)n n MD8(i)=Format(tmp,0.#)MD8(i)=Format(tmp,0.#)干密度干密度n n End IfEnd Ifn nNextNext第31页/共52页计算过程计算过程2n nStrtmp=Strtmp=试样编号试样编号,环刀号环刀号,刀质量刀质量(g),(g),环刀环刀+湿土质量湿土质量(g),(g),试样体积试样体积(cm3),(cm3),含水率含水率(%),(%),湿密度湿密度(g/c

28、m3),(g/cm3),干密度干密度(g/cm3)&vbCrLf(g/cm3)&vbCrLfn nFor i=0 To Val(Text5)-1For i=0 To Val(Text5)-1n nStrtmp=Strtmp&MD1(i)&,&MD2(i)&,&MD3(i)&,&MD4(i)&,&MD5(i)&,&Strtmp=Strtmp&MD1(i)&,&MD2(i)&,&MD3(i)&,&MD4(i)&,&MD5(i)&,&MD6(i)&,&MD7(i)&,&MD8(i)&vbCrLfMD6(i)&,&MD7(i)&,&MD8(i)&vbCrLfn nNextNextn ntmp=0tmp

29、=0n nFor i=0 To MD1.uboundFor i=0 To MD1.uboundn n tmp=tmp+MD7(i)tmp=tmp+MD7(i)n nNextNext把输入数据和计算结果以逗号隔开，以便导入Excel中第32页/共52页计算过程计算过程3n ntmp=Format(tmp/MD1.Count,0.#)tmp=Format(tmp/MD1.Count,0.#)n nStrtmp=Strtmp&-&vbCrLfStrtmp=Strtmp&-&vbCrLfn nStrtmp=Strtmp&Strtmp=Strtmp&湿密度平均值为湿密度平均值为,&tmp&g/cm3,&

30、tmp&g/cm3,n ntmp=0tmp=0n nFor i=0 To MD1.ubound For i=0 To MD1.ubound 获得控件数组的下标最大值获得控件数组的下标最大值n n tmp=tmp+MD8(i)tmp=tmp+MD8(i)n nNextNextn ntmp=Format(tmp/MD1.Count,0.#)tmp=Format(tmp/MD1.Count,0.#)n nStrtmp=Strtmp&Strtmp=Strtmp&干密度平均值为干密度平均值为,&tmp&g/cm3,&tmp&g/cm3n nText70=Text68&StrtmpText70=Text6

31、8&Strtmpn nEnd SubEnd Sub显示到text70中，text70的mutiline属性应设置成true第33页/共52页数据格式转换数据格式转换第34页/共52页以逗号隔开的数据分割以逗号隔开的数据分割n nPrivate Sub Command31_Click()Private Sub Command31_Click()n nOn Error Resume NextOn Error Resume Nextn nDim AA()As String,bb()As String,i As IntegerDim AA()As String,bb()As String,i As I

32、ntegern nIf Text6 Then If Text6 Then 分割数据分割数据n n AA=Split(Text6.Text,vbCrLf)AA=Split(Text6.Text,vbCrLf)先分行，以回车符分隔先分行，以回车符分隔n nEnd IfEnd Ifn nText5.Text=UBound(AA)+1Text5.Text=UBound(AA)+1：Text5_Change Text5_Change 分配控件数组分配控件数组n nIf Option2(0).Value=True Then If Option2(0).Value=True Then 逗号隔开的情况逗号隔开

33、的情况n n For i=0 To UBound(AA)For i=0 To UBound(AA)n n If AA(i)Then If AA(i)Then 不是空行的情况不是空行的情况n n bb=Split(AA(i),)bb=Split(AA(i),)n n MD1(i)=bb(0)MD1(i)=bb(0)：MD2(i)=bb(1)MD2(i)=bb(1)：MD3(i)=bb(2)MD3(i)=bb(2)n n MD4(i)=bb(3)MD4(i)=bb(3)：MD5(i)=bb(4)MD5(i)=bb(4)：MD6(i)=bb(5)MD6(i)=bb(5)n n Else Else 是

34、空行的情况是空行的情况n n Text5=Text5.Text-1Text5=Text5.Text-1n n Text5_Change Text5_Changen n End If End Ifn n Next Next第35页/共52页其它分隔符情况其它分隔符情况n n可以是单空格分隔，也可以是Excel数据复制过来的，其中Excel复制的分隔符是chr(9),是个特殊字符。n n其余的请仿此程序进行设计。第36页/共52页第五个问题第五个问题 线线性插值计算性插值计算引言引言一维线性插值原理及程序设计一维线性插值原理及程序设计二维线性插值原理及程序设计二维线性插值原理及程序设计结论结论第3

35、7页/共52页一、引言一、引言一、引言一、引言n n如表1所示，当勘察出来的e指标为0.75，IL指标为0.625时，且有很多组数据需要查表插值时，则计算量较大。在列表中，e最小值为0.5,如果是0.45，则计算者更难着手计算。表表1 1 粘性土承载力基本值粘性土承载力基本值f0 0 ILe0.50.50.750.750.70.72652652402400.80.8220220200200第38页/共52页二、一维线性插值原理及程序设计二、一维线性插值原理及程序设计二、一维线性插值原理及程序设计二、一维线性插值原理及程序设计 第39页/共52页2.12.1一维线性插值原理一维线性插值原理一维线

36、性插值原理一维线性插值原理(1)情况（e1 e3 e2内部插值情况）从图1(a)中可得：ABCADE当f2f1时：n n当f2f1时，同理，作出相应图可得：n n(1)(1)(2)(2)第40页/共52页2.12.1一维线性插值原理一维线性插值原理一维线性插值原理一维线性插值原理n n情况情况2 2（e e33 e e1 1外部插值情况）外部插值情况）n n从图从图1(b)1(b)中可得：中可得：n nABCABCADEADEn n当当f f22f f1 1时：时：n nn nn n当当f f22=e2 Then If e1=e2 Then n n Temp1=e1Temp1=e1n n e1

37、=e2 e1=e2n n e2=Temp1 e2=Temp1n n Temp1=f1 Temp1=f1n n f1=f2 f1=f2n n f2=Temp1 f2=Temp1n nEnd IfEnd If注：设注：设e2e1，否，否则则e1与与e2交换，交换，f1与与f2交换交换第44页/共52页2.3一维线性插值程序一维线性插值程序n nIf e3=e1 And e3=e1 And e3=f1 ThenIf f2=f1 Thenn n Chazhi=(e3-e1)*(f2-f1)/(e2-e1)+f1 Chazhi=(e3-e1)*(f2-f1)/(e2-e1)+f1 n nElseElse

38、n n Chazhi=(e2-e3)*(f1-f2)/(e2-e1)+f2 Chazhi=(e2-e3)*(f1-f2)/(e2-e1)+f2 n nEnd IfEnd Ifn nElseIf e3 e1 ThenElseIf e3=f1 ThenIf f2=f1 Thenn n Chazhi=(e1-e3)*f2-(e2-e3)*f1)/(e1-e2)Chazhi=(e1-e3)*f2-(e2-e3)*f1)/(e1-e2)n nElseElsen n Chazhi=(f1-f2)*(e2-e3)/(e2-e1)+f2 Chazhi=(f1-f2)*(e2-e3)/(e2-e1)+f2n n

39、 End IfEnd If注：内部插值计算注：内部插值计算,情况情况1注：注：f2=f1的计算方法的计算方法(1)注：注：f1f2的计算方法的计算方法(2)注：外部插值计算，情况注：外部插值计算，情况2 注：计算方法注：计算方法(3)注：计算方法注：计算方法(4)第45页/共52页2.3一维线性插值程序一维线性插值程序n nElseIf e3 e2 Then n n If f2=f1 Thenn n Chazhi=(f2-f1)*(e3-e1)/(e2-e1)+f1n n Elsen n Chazhi=(e3-e1)*f2-(e3-e2)*f1)/(e2-e1)n n End Ifn nEnd

40、 If注：外部插值计算，情况注：外部插值计算，情况3 注：计算方法注：计算方法(5)注：计算方法注：计算方法()第46页/共52页三、二维线性插值原理及程序设计三、二维线性插值原理及程序设计三、二维线性插值原理及程序设计三、二维线性插值原理及程序设计 3.1二二维维线线性性插插值值原原理理第47页/共52页3.2 二维插值程二维插值程序设计界面序设计界面 f3f6第48页/共52页3.3二维插值程序设计二维插值程序设计n nPrivate Sub Command1_Click()Private Sub Command1_Click()注：注：Visual BasicVisual Basic事件

41、调用过程事件调用过程n nDim Aa1 As Double,Aa2 As Double,Aa3 As Double,Aa4 As DoubleDim Aa1 As Double,Aa2 As Double,Aa3 As Double,Aa4 As Doublen nIf Text1=Or Text2=Or Text3=Or Text4=Or Text5=Or Text6=Or _If Text1=Or Text2=Or Text3=Or Text4=Or Text5=Or Text6=Or _n nText7=Or Text8=Or Text9=Or Text10=ThenText7=Or

42、Text8=Or Text9=Or Text10=Thenn n 注：注：Text1Text1为为e1e1，Text2Text2为为e2e2，Text3Text3为为IL1IL1，Text4Text4为为IL2IL2，Text5Text5为为f1f1，Text6Text6为为f2f2n n 注：注：Text7Text7为为f4f4，Text8Text8为为f5f5，Text9Text9为为e3e3，Text10Text10为为IL3IL3n n MsgBox MsgBox 数字没有输入完全，请重新输入数字没有输入完全，请重新输入 n n Exit Sub Exit Subn nEnd IfEn

43、d Ifn nAa1=chazhi(Val(Text1),Val(Text5),Val(Text2),Val(Text6),Val(Text9)Aa1=chazhi(Val(Text1),Val(Text5),Val(Text2),Val(Text6),Val(Text9)n nAa2=chazhi(Val(Text1),Val(Text7),Val(Text2),Val(Text8),Val(Text9)Aa2=chazhi(Val(Text1),Val(Text7),Val(Text2),Val(Text8),Val(Text9)n nAa3=chazhi(Val(Text3),Aa1,V

44、al(Text4),Aa2,Val(Text10)Aa3=chazhi(Val(Text3),Aa1,Val(Text4),Aa2,Val(Text10)n n Text11=Aa3 Text11=Aa3 注：把最终计算结果显示到注：把最终计算结果显示到Text11Text11文本框中文本框中n nEnd SubEnd Sub注：根据二维插值原理，用三次一维插值实现注：根据二维插值原理，用三次一维插值实现第49页/共52页3.43.43.43.4程序扩展应用程序扩展应用程序扩展应用程序扩展应用n n(1)(1)二维插值计算是基于一维插值的基础上的，所以本程序也可进行单指标插值计算，例如只输入e

45、1，e2，e3，f1，f2，此时就可以计算e3对应的插值指标f0.n n(2)二维插值计算程序为通用程序，不仅适合于粘性土孔隙比e与IL插值地基承载力的情况，适合于所有具有双指标的插值计算，例如可用于地基应力分布（a/b,l/b)。n n(3)如果把地基承载力的基本值存到相应的数据库或数据表中，则可以实现完整的地基承载力查表插值计算。第50页/共52页4结论与建议结论与建议n n综上所述：（1）介绍了一维线性插值及二维线性插值的基本原理，这有利于对线性插值的理解，所推导出的公式可以直接用于插值运算。（2）设计的二维插值计算程序即可用于普通的单指标插值计算，又可用于普通的双指标插值计算，大大的缩减了计算时间。即本文即有一定的理论学习意义，也有一定的实际应用价值。n n建议：在此基础上，探讨三维插值与四维插值，以解决更为复杂的插值问题，例如库仑土压力的求解，就涉及到，四个参数查表求值。第51页/共52页