材料力学课程设计后置旅游车底盘车架.docx

材料力学课程设计
HZ140TR2后置旅游车底盘车架的静力学分析及强度、刚度计算

专业：土木工程（路桥）
指导老师：
姓名：
班级： 班
学号：

目录
材料力学课程设计 1
一、材料力学课程设计的目的 1
二、材料力学课程设计的任务和规定 1
1、设计计算说明书的规定 1
2、分析讨论及说明部分的规定 2
3、程序计算部分的规定 2
三、设计题目 2
1、求支座反力 4
2、画出车架的内力图 7
3、画出各截面上弯曲正应力最大值沿轴线方向的变化曲线 9
4、求出最大绕度的值，画出车架扰曲线的大体形状 10
5、按等截面梁重新设定截面尺寸 12
四、程序计算 13
1、vb程序 13
2、结构力学求解器程序 24
五、设计体会 27
体会 27
参考文献 28

一、 材料力学课程设计的目的
本课程设计的目的是在于系统学习完材料力学之后，能结合工程中的实际问题，运用材料力学的基本理论和计算方法，独立的计算工程中的典型零部件，以达成综合运用材料力学的知识解决实际问题的目的。同时，可以使学生将材料力学的理论和现代计算方法及手段融为一体。既从整体上掌握了基本理论和现代的计算方法，又提高了分析问题、解决问题的能力，既是为以前所学知识（高等数学、工程图学、理论力学、算法语言、计算机和材料力学等）的综合应用，又为后继课程（零件、专业课等）打下基础，并初步掌握工程中的设计思想和设计方法，对实际工作能力有所提高。具体的有以下六项：
1. 使学生的材料力学知识系统化完整化；
2.　在全面复习的基础上，运用材料力学知识解决工程中的实际问题；
3.　由于选题力求结合专业实际，因而课程设计可以把材料力学知识与专业需要结合起来；
4.　综合运用以前所学习的各门课程的知识（高等数学、工程图学、理论力学、算法语言、计算机和材料力学等），使相关学科的只是有机的联系起来；
5. 初步了解和掌握工程实践中的设计思想和设计方法；
6. 为后续课程的教学打下基础。
二、 材料力学课程设计的任务和规定
参与设计者要系统复习材料力学课程的所有基本理论和方法，独立分析、判断设计题目的已知条件和所求问题，画出受力分析计算简图和内力图，列出理论依据并导出计算公式，独立编制计算机程序，通过计算机给出计算结果并完毕了设计说明书。
１、设计计算说明书的规定
设计计算说明书是该题目设计思想、设计方法和设计结果的说明，规定书写工整，语言简洁，条理清楚、明确，表达完整。具体内容应涉及：
1．设计题目的已知条件、所求及零件图。
2．画出构件的受力分析计算简图，按比例标明尺寸、载荷及支座等。　
3. 静不定结构要画出所选择的基本静定系统及与之相应的所有求解过程。
4. 画出所有内力图，并表面也许的各危险截面。
5. 各危险截面上各种应力的分布规律图及由此鉴定各危险点处的应力状态图。
6. 各危险点的主应力大小及主平面的位置。
7. 选择强度理论并建立强度条件。
8. 列出所有计算过程的理论依据、公式推导过程及必要的说明。
9. 对变形及刚度分析要写明所用的能量法计算过程及必要的内力图和单位力图。
10. 疲劳强度计算部分要说明循环特性，бmax，бmin，r，бm，бa的计算，所查各系数的，ｋ,ε，β依据，疲劳强度校核过程及结果，并绘出构件的持久曲线。
2、分析讨论及说明部分的规定
1. 分析计算结果是否合理，并讨论其因素、改善措施。
2. 提出改善设计的初步方案及设想。
3. 提高强度、刚度及稳定性的措施及建议。
3、程序计算部分的规定
1. 程序框图。
2. 计算机程序（含必要的说明语言及标记符说明）。
3. 打印结果（数据结果要填写到设计计算说明书上）。
三、 设计题目
HZ140TR2后置旅游车底盘车架简化后如下图所示。满载时受重力FA作用，后部受重力FB作用，乘客区均布载荷为q（含部分车身重），梁为变截面梁。计算过程中忽略圆角影响，并把梁抽象为等厚闭口薄壁矩形截面的阶梯梁。材料的弹性模量E，许用应力[σ]及有关数据有表7-1给出。其他数据选取设计计算数据第一组中的FB=4610N,q=12023N/m 。

图7-1 车底盘简化图
表7-1 固定数据
l1/m
l2/m
l3/m
l4/m
l5/m
h1/m
b1/m
h2/m
1.1
1.6
3.1
1.6
2.1
0.1
0.06
0.12
b2/m
h3/m
b3/m
t/m
E/GPa
[σ]/MPa
FA/N
0.08
0.11
0.07
0.005
210
160
2680

1.计算前簧固定端C处，前簧滑板D处、后簧固定端F处、后簧滑板G处的支反力
2.画出车架的内力图。
3.画出各截面上弯曲正应力最大值沿轴线方向的变化曲线。
4.用能量法求出车架最大挠度的值及所发生的截面，画出车架挠曲线的大体形状。
5.若壁厚t不变，取h/b=1.5，按等截面梁重新设计车架截面尺寸。
１、求支座反力
为了求解该题，需要用到连续梁问题中的三弯矩方程。为减小跨度很大直梁的弯曲变形和应力，常在其中间安顿若干中间支座的这类结构称为连续梁。连续梁中是在两端的固定端或铰支座之间加上若干个铰支座或支杆组成的力学模型。在HZ140TR2后置旅游车底盘车架的力学模型中，该模型是三次超静定结构。该模型仅在竖直方向上受到外力作用，水平方向上不受外力作用，因此可以把F处铰支座看作是支杆，将该模型简化成二次超静定的连续梁力学模型。
下面用力法求解该模型的各支座反力：
选取下图所示基本结构：

图7-2 基本结构
去掉D、F处多余支杆约束，以竖直向上的力X1、X2代之，得到如下图所示力法基本体系：

图7-3 基本体系
当X1=1单独作用时，车架的弯矩图如下：

图7-4 单位弯矩图1
当X2=1单独作用时，车架的弯矩图如下：

图7-5 单位弯矩图2
易求得，两单位弯矩图的最大值分别为：

记:

则，由图乘法易得，各位移系数如下：

基本结构在外荷载下的弯矩图如下：

图7-6 荷载弯矩图
分别记C处、G处、CG中点处的弯矩为M1、M2 和M3，则：

将荷载弯矩图与各单位弯矩图分别图乘可得：
其中：
由力法典型方程可得：

解得：

又由平衡条件可知：

即：

带入数据计算可得：

２、画出车架的内力图
由叠加法知：，各段弯矩方程如下：

图7-7 结构弯矩图
由各段的弯矩方程求导可得各段剪力方程如下：

图7-8 结构剪力图
３、画出各截面上弯曲正应力最大值沿轴线方向的变化曲线
根据公式： ，可以求出各段的惯性矩的值：

根据第2问中的弯矩方程和公式求出各段的最大弯曲正应力方程，由VB画出弯曲正应力最大值沿轴线方向的变化曲线：

图7-9 正应力最大值变化曲线
4、求出最大挠度的值，画出车架挠曲线的大体形状
现采用图乘法求解各个特殊点的挠度，在A点加一个竖直向下的单位力，如下图所示：

图7-10 单位力加在A点
与第1、2问同理，运用力法可求得此时整个车架的弯矩图如下所示：

图7-11 单位弯矩图3

带入数据计算可得：

同理可算得：
CD中点M处的挠度
DF中点N出的挠度
FG中点K的挠度
B点的绕度
由以上计算，可以得到车架在B端得挠度最大 ，绘出车架挠曲线如下图所示：

图7-12 车架挠曲线
5、按等截面梁重新设定截面尺寸
重新设计截面梁的截面尺寸时的重要依据是使截面上的最大弯曲正应力小于许用应力。根据弯矩图可以判断最大弯矩发生的截面，最大弯矩已知，想要改变最大正应力的大小，就需要根据重新设计截面的尺寸。
根据弯曲正应力的强度条件
由弯矩图可知，最大弯矩发生在后簧滑板G处的截面：

带入数据解得：
b=0.075m,h=0.112m

四、 程序计算
1、 VB程序
代码：
Dim Fa,Fb,t,E,σ0,σ(1 To 3),q,a(1 To 3),k,x,y,y0,ya,S,n As Double
Dim l(0 To 5),h(1 To 3),b(1 To 3),I(1 To 3),M(0 To 3),M11,M22,M12,M21,M13,M23,_
δ11,δ12,δ21,δ22,δ1p,δ2p,X1,X2,M10,M20,Fc,Fg,M0(0 To 9500),Iz,b0,h0,W(1 To 3)As Double ‘全局变量定义

Private Sub Command0_Click() ‘力法解车架支反力的弯矩图
Picture1.Cls
y=1000
S=0.05
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)
Picture1.Line(x,y)-(x+1000*l(1),y+S*M(1))
Picture1.Line(x+1000*(l(0)+l(1)+l(5)),y)-(x+1000*(l(0)+l(1)),y+S*M(2))

For k=0 To l(0)Step 0.001
M(0)=a(1)*k ^ 2+a(2)*k+a(3)
Picture1.PSet(x+1000*l(1)+1000*k,y+S*M(0)) '外荷载下弯矩
Next k

y=y+2.5*y0
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)
Picture1.Line(x+1000*l(1),y)-(x+1000*(l(2)+l(1)),y-1000*M11)
Picture1.Line(x+1000*(l(0)+l(1)),y)-(x+1000*(l(2)+l(1)),y-1000*M11)

y=y+y0
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)
Picture1.Line(x+1000*l(1),y)-(x+1000*(l(2)+l(1)+l(3)),y-1000*M22)
Picture1.Line(x+1000*(l(0)+l(1)),y)-(x+1000*(l(2)+l1)+l(3)),y-1000*M22) '单位力作用下弯矩图
End Sub

Private Sub Command1_Click() ‘画车架弯矩图
Picture1.Cls
y=3000
S=0.2
n=0
Print Tab(100); "A--G各特殊点弯矩值："
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)
Picture1.Line(x,y)-(x+1000*l(1),y+S*M(1))
Picture1.Line(x+1000*(l(0)+l(1)+l(5)),y)-(x+1000l(0)+l(1)),y+S*M(2))
For k=0 To l(0)Step 0.001
If k < l(2)Then
M10=k/l(2)*M11
Else
M10=(l(0)-k)/(l(0)-l(2))*M11
End If
If k < l(2)+l(3)Then
M20=k/(l(0)-l(4))*M22
Else
M20=(l(0)-k)/l(4)*M22
End If
M(0)=a(1)*k ^ 2+a(2)*k+a(3)
M0(1000*(l(1)+k))=(M(0)-X1*M10-X2*M20) ‘车架各点弯矩值
Picture1PSet(x+1000*l(1)+1000*k,y+S*M0(1000*(l(1)+k)))
Next k

For k=0 To l(1)Step 0.001
M0(1000*k)=k/l(1)*M(1)
Next k
For k=0 To l(5)Step 0.001
M0(1000*(l(1)+l(0)+k))=(l(5)-k)/l(5)*M(2)
Next k
For k=0.001 To l(0)+l(1)+l(5)-0.001 Step 0.001
If(M0(1000*k)< M0(1000*k-1)And M0(1000*k)< M0(1000*k+1))Or(M0(1000*k)> M0(1000*k-1)And M0(1000*k)> M0(1000*k+1))Then
Print Tab(100); Round(M0(1000*k),2)& "N·m" ‘A--G各特殊点弯矩值
End If
Next k
End Sub

Private Sub Command2_Click() ‘输出支反力值
Print Tab(100); "Fc="; Round(Fc,2); "N"
Print Tab(100); "Fd="; Round(X1,2); "N"
Print Tab(100); "Ff="; Round(X2,2); "N"
Print Tab(100); "Fg="; Round(Fg,2); "N"
Command2.Enabled=False
End Sub

Private Sub Command4_Click() ‘画车架最大正应力曲线
x=1000
y=8000
Print Tab(100); "A--G各特殊点正应力值："
Picture1.Cls
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)

For k=0 To l(0)Step 0.001
If k < l(2)Then
M10=k/l(2)*M11
Else
M10=(l(0)-k)/(l(0)-l(2))*M11
End If
If k < l(2)+l(3)Then
M20=k/(l(0)-l(4))*M22
Else
M20=(l(0)-k)/l(4)*M22
End If
M(0)=a(1)*k ^ 2+a(2)*k+a(3)
M(0)=-Abs(M(0)-X1*M10-X2*M20)
σ(3)=M(0)*h(2)/2/I(2)
Picture1.PSet(x+1000*l(1)+1000*k,y+20*10 ^ -6*σ(3))
M0(1000*(l(1)+k))=10 ^ -6*σ(3)
Next k

M0(1000*l(1)-1)=0
M0(1000*(l(1)+l(0))+1)=0

For k=l(1)To l(0)+l(1)Step 0.001
If(M0(1000*k)< M0(1000*k-1)And M0(1000*k)< M0(1000*k+1))Or(M0(1000*k)> M0(1000*k-1)And M0(1000*k)> _
M0(1000*k+1))And Abs(M0(1000*k))> 0.1 Then
Print Tab(100); "" & Round(Abs(M0(1000*k)),2)& "MPa"
End If ‘输出A--G各特殊点正应力值
Next k

σ(1)=M(1)*h(1)/2/I(1)
σ(2)=M(2)*h(3)/2/I(3)
Picture1.Line(x,y)-(x+1000*l(1),y+20*10 ^ -6*σ(1))
Picture1.Line(x+1000*(l(0)+l(1)+l(5)),y)-(x+1000*(l(0)+l(1)),y+20*10 ^ -6*σ(2))
Picture1.Line(x+1000*l(1),y+20*10 ^ -6*σ(1))-(x+1000*l(1),y+20*10 ^ -6*M(1)*h(2)/2/I(2))

Picture1.Line(x+1000*(l(0)+l(1)),y+20*10 ^ -6*σ(2))-(x+1000*(l(0)+l(1)),y+20*10 ^ -6*M(2)*h(2)/2/I(2))
End Sub

Private Sub Command5_Click() ‘作简力图
S=0.1
y=4000
Picture1.Cls
Picture1.Line(x,y)-(x+1000*(l(0)+l(1)+l(5)),y)
Picture1.Line(x,y+S*Fa)-(x+1000*l(1),y+S*Fa)
Picture1.Line(x+1000*l1),y+S*(Fa-Fc))-(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)))
Picture1.Line(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)-X1))-(x+1000*(l(1)+l(2)+l(3)),y+S*(Fa-Fc-X1+q*(l(2)+l(3))))
Picture1.Line(x+1000*(l(1)+l(0)-l(4)),y-S*(Fb-Fg+q*l(4)))-(x+1000*(l(1)+l(0)),y-S*(Fb-Fg))
Picture1.Line(x+1000*(l(1)+l(0)),y-S*Fb)-(x+1000*(l(1)+l(0)+l(5)),y-S*Fb) '剪力大小

Picture1.Line(x,y)-(x,y+S*Fa)
Picture1.Line(x+1000*l(1),y+S*Fa)-(x+1000*l(1),y+S*(Fa-Fc))
Picture1.Line(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)))-(x+1000*(l(1)+l(2)),y+S*(Fa-Fc+q*l(2)-X1))
Picture1.Line(x+1000*(l(1)+l(2)+l(3)),y+S*(Fa-Fc-X1+q*(l(2)+l(3))))-(x+1000*(l(1)+l(0)-l(4)),y-S*(Fb-Fg+q*l(4)))
Picture1.Line(x+1000*(l(1)+l(0)),y-S*(Fb-Fg))-(x+1000*(l(1)+l(0)),y-S*Fb)
Picture1.Line(x+1000*(l(1)+l(0)+l(5)),y-S*Fb)-(x+1000*(l(1)+l(0)+l(5)),y) '竖直线
End Sub

Private Sub Command6_Click() ‘截面设计
For b0=0.03 To 0.1 Step 0.00001
h0=b0*1.5
If Abs(-M(2)/σ0-(b0*h0 ^ 2-(b0-2*t)*(h0-2*t)^ 3/h0)/6)< 10 ^ -8 Then
Print Tab(120); Round(b0,3); Round(h0,3)
End If
Next b0
End Sub

Private Sub Command7_Click() ‘数据输入及计算
Fb=Val(Text1)
q=Val(Text2)
x=1000
y=2023
y0=2023
σ0=160*10 ^ 6
E=210*10 ^ 9
M(1)=-Fa*l(1)
M(2)=-Fb*l(5)
M(3)=(M(1)+M(2))/2+(q*l(0)^ 2)/8
a(3)=M(1)
a(1)=-2*(-M(2)+2*M(3)+-M(1))/l(0)^ 2
a(2)=(-M(1)+M(2)-a(1)*l(0)^ 2)/l(0)
M11=(l(3)+l(4))*l(2)/l(0)
M22=(l(2)+l(3))*l(4)/l(0)
M12=l(4)/(l(3)+l(4))*M11
M21=l(2)/(l(3)+l(2))*M22
M13=l(0)/(l(3)+l(4))*M11
M23=l(0)/(l(3)+l(2))*M22
δ11=0.5*M11*l(2)*2/3*M11+0.5*M11*(l(3)+l(4))*2/3*M11 ‘各位移系数
δ22=0.5*M22*l(4)*2/3*M22+0.5*M22*(l(3)+l(2))*2/3*M22
δ12=0.5*M11*l(2)*2/3*M21+0.5*M12*l(4)*2/3*M22+0.5*(M11-M12)*_
l(3)*(1/3*M22+2/3*M21)+M12*l(3)*0.5*(M21+M22)
δ21=δ12
δ1p=-0.5*M13*l(0)*(1/3*M(2)+2/3*M(1))-2/3*0.125*q*l(0)^ 3*0.5*M13-(-M(1)*l(2)/3*M13 _
- 0.5*(a(1)*l(2)^ 2+a(2)*l(2)+a(3))*l(2)/3*M13-2/3*0.125*q*l(2)^ 3*0.5*M13)
δ2p=-0.5*M23*l(0)*(1/3*M(1)+2/3*M(2))-2/3*0.125*q*l(0)^ 3*0.5*M23-(-M(2)*l(4)/3*M23 _
- 0.5*(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3))*l(4)/3*M23-2/3*0.125*q*l(4)^ 3*0.5*M23)
X2=(δ11*δ2p-δ12*δ1p)/(δ12 ^ 2-δ11*δ22)
X1=(-δ1p-δ12*X2)/δ11
Fc=-(X1*(l(3)+l(4))+X2*l(4)+Fb*l(5)-Fa*(l(1)+l(0))-q*l(0)^ 2/2)/l(0)
Fg=Fa+Fb+q*l(0)-Fc-X1-X2

Print
For k=1 To 3
I(k)=(b(k)*h(k)^ 3-(b(k)-2*t)*(h(k)-2*t)^ 3)/12
Print Tab(100); "M" & k; "="; Round(M(k),1); "N·m"
W(k)=b(k)*h(k)-(b(k)-2*t)*(h(k)-2*t)
Next k 'Iz
Print Tab(100); "CD、DF、FG段弯矩方程一次项："
Print Tab(100); Round(a(2)-2*a(1)*l(1)-X1*M11/l(2)-X2*M22/(l(2)+l(3)),2); _
Tab; Round(a(2)-2*a(1)*l(1)+X1*M11/(l(3)+l(4))-X2*M22/(l(2)+l(3)),2)_
; Tab; Round(a(2)-2*a(1)*l(1)+X1*M11/(l(3)+l(4))+X2*M22/l(4),2)
Print Tab(100); "CD、DF、FG段弯矩方程常数项："
Print Tab(100); Round(a(1)*l(1)^ 2-a(2)*l(1)+a(3)+X1*M11*l(1)/l(2)+X2*M22*l(1)/(l(2)+l(3)),2); _
Tab;
Print Round(a(1)*l(1)^ 2-a(2)*l(1)+a(3)-X1*M11*(l(1)+l(0))/(l(3)+l(4))+X2*M22*l(1)/(l(2)+l(3)),2)_
; Tab;
Print Round(a(1)*l(1)^ 2-a(2)*l(1)+a(3)-X1*M11*(l(1)+l(0))/(l(3)+l(4))-X2*M22*(l(0)+l(1))/l(4),2)
End Sub

Private Sub Command8_Click() ‘位移计算
M11=M11*X1
M22=M22*X2
M12=l(4)/(l(3)+l(4))*M11
M21=l(2)/(l(3)+l(2))*M22
M13=l(0)/(l(3)+l(4))*M11
M23=l(0)/(l(3)+l(2))*M22
ya=1/412125*0.5*M(1)*l(1)*2/3*1.1+1/788725*((0.5*M11*l(2)+0.5*M21*l(2)-_
0.5*(a(1)*l(2)^ 2+a(2)*l(2)+a(3))*l(2))*(1.1/3-0.*2/3)+0.5*M(1)*l(2)*(1.1*2/3-0./3)-_
2/3*0.125*q*l(2)^ 3*0.5*(1.1-0.)_
+ 0.5*((a(1)*l(2)^ 2+a(2)*l(2)+a(3))-(M11-M12))*l(3)*(0.*2/3-0./3)_
+ 0.5*(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3)-(M22M21))*l(3)*(0./3-0.*2/3)_
+(2/3*0.125*q*l(3)^ 2-M12-M21)*l(3)*0.5*(0.-0.)_
+ 0.5*(M12+M22-(a(1)*(l(2)+l(3))^ 2+a(2)*(l(3)+l(2))+a(3)))*l(4)*0.*2/3 _
+ M(2)*0.5*l(4)*0./3-2/3*0.125*q*l(4)^ 3*0.5*0.)
Print Tab(100); ya
End Sub

Private Sub Form_Load() ‘固定数据赋值
Picture1.Height=10000
Picture1.Width=11500
l(1)=1.1
l(2)=1.6
l(4)=1.6
l(3)=3.1
l(5)=2.1
l(0)=l(2)+l(3)+l(4)
b(1)=0.06
b(2)=0.08
b(3)=0.07
h(1)=0.1
h(2)=0.12
h(3)=0.11
t=0.005
Fa=2680
E=210*10 ^ 9
Print Tab(100); "请输入数据"
Print
End Sub
关键环节的执行结果：

2、结构力学求解器程序
代码：
TITLE,车架模型计算
结点,1,0,0
结点,2,1.1,0
结点,3,2.7,0
结点,4,5.8,0
结点,5,7.4,0
结点,6,9.5,0
单元,1,2,0,0,0,1,1,1
单元,2,3,1,1,1,1,1,1
单元,3,4,1,1,1,1,1,1
单元,4,5,1,1,1,1,1,1
单元,5,6,1,1,1,0,0,0
结点支承,2,3,0,0,0
结点支承,3,1,0,0
结点支承,4,3,0,0,0
结点支承,5,1,0,0
单元荷载,1,1,2680,0,90
单元荷载,5,1,4100,1,90
单元荷载,2,3,15200,0,1,90
单元荷载,3,3,15200,0,1,90
单元荷载,43,15200,0,1,90
单元材料性质,1,1,,412125,0,0,-1
单元材料性质,2,4,,788725,0,0,-1
单元材料性质,5,5,,580475,0,0,-1
END
关键环节的执行结果：

五、 设计体会
正所谓“纸上得来终觉浅，绝知此事要躬行。”材料力学课程设计让我体验到了平时做的习题是解决不了工程实际问题的。要想解决实际的生活问题，我们还需要学习很多知识。在做课程设计的时候，我使用了很多工具，如：Visual Basic，结构力学求解器，word2023等。查了很多资料，运用网络和图书管的网上资源可以查到自己想要找的参考书籍。此外，本次课程设计使我结识到解决工程实际问题的一般方法是：一方面把实际问题抽象成力学模型，然后通过对力学模型的分析建立相关方程，最后求解得倒结果。
总体感觉在材料力学课程设计的时候涉及的知识方面很广，从使用力学知识进行力学分析，到使用word编辑文档。每一项想要做好都不是那么容易做好的，比如最简朴的word，在编辑的时候可以使用标题，导航等各种工具以方便进行文档排版和设计，尚有页眉页脚等使文档排版更加美观。在做这些事情的时候，我觉得一篇文章就是一个学生综合能力的反映，也是学生对待课程设计态度的反映。此外，由于全过程的计算我都是通过编程来完毕的，所以在此文中没有具体地反映各环节的数据计算
通过设计我的能力得到了提高，在做设计的过程中，由于编程计算涉及到的编译器知识点较多，因而设计进行得比较缓慢，这也是相对于其他同学的平均时间而言。在设计过程中，我重要是重新复习了VB的相关知识，并且学习了一些需要用到但是还没有学到的力学方面的知识，同时也参考了在网络上下载的一些资料。虽然我使用了半个多月的时间完毕这次课程设计，但此作品还是有不完善的地方，有待进一步学习。
参考文献
1、王焕定等《结构力学》 高等教育出版社2023年1月
2、徐波、姚雪存《Visual Basic 2023 大学教程》 电子工业出版社2023年10月
3、聂毓琴、孟广伟《材料力学》 机械工业出版社2023年1月