计算机支挡建筑设计方程求解.pptx

高次方程求解;1、 通用函数的程序编写;实现步骤：;Private Function Hanshu(X As Double, Str1 As String) As Double On Error Resume Next Dim shar As New Class1 ScriptControl1.AddObject sh, shar ScriptControl1.AddCode Function F(x) vbCrLf kk= Str1 vbCrLf sh.k1 = kk vbCrLf End Function ScriptControl1.Run “F, X Hanshu = shar.K1 ScriptControl1.Reset End Function ;;课题2 ：高次方程求解：;2.1 高次方程求解原理;高次方程求解常用方法;2.2 扫描法求解方程的根;2.2 扫描法求解方程的根;2.2 扫描法求解方程的根;2.2 扫描法求解方程的根;扫描法求方程根的流程图;用扫描法求方程x2-2=0的正数解，其计算结果见表2-1;; Dim M%, N%, i As Double Dim A#, B#, H#, E#, X#, Str2$ Dim Str1$ i = 1 Str1 = “计算次数 a= b= m×n＝ vbCrLf A = Val(Text2)’初始值 H = Val(Text3)’求解步长 E = Val(Text4)’求解精度 Str2 = Text1.Text’函数表达式 M = Sgn(Hanshu(A, Str2)); Do B = A + H N = Sgn(Hanshu(B, Str2)) Str1 = Str1 i Space(3) A Space(3) B Space(3) M * N vbCrLf If M * N 0 Then A = B M = N i = i + 1 ElseIf M = 0 Then X = A Exit Do ElseIf N = 0 Then X = B Exit Do ; Text5 = “方程的解为：x= X vbCrLf Str1 Exit Sub err1: MsgBox “找不到方程的根，计算次数已经超过了5000次，请确认输入的函数是否正确 ”, vbInformation, “找不到方程的根;2.2 作业2：;2.3 对分法求解;2.3 对分法优选法求解;2.3.2对分法流程图;;2.3.4 对分法关键程序;;;2.3.6 作业3：;2.4 优选法;2.4.1 优选法计算表;2.4.2 作业;2.5 迭代法;以1.5作x的初值x0,代入上式求出x1＝1.3572,再以x1代入，进一步求出x2…..，直到 计算结果见下表(ε＝0.00001);;2.5.1 注意事项;2.6 牛顿法;2.6牛顿法;2.6.1 牛顿法举例;2.6.1 牛顿法举例;2.6.3 牛顿迭代法的近似解法;2.6.3 牛顿迭代法的近似解法;本节 上机作业;本节 上机作业;思考题;数值积分;1 定积分的求解;;2 矩形积分法;2.1 基本原理;;2.2 关键程序代码;2.3 精度控制;3 梯形??分法;3.1 梯形积分法举例;3.1 梯形积分法举例;3.2 程序关键代码;4辛普森法求积 ;4.1 举例说明;4.1 举例说明;4.2 关键代码;5 作业 ;5 作业