Question

matlab7解决土木基础工程问题，老师说是解一元三次方程，给了代码，运行不出来复制上去，找不到运行按钮

% base_hight_solve.m
clear
format bank;format compact
disp('满足抗冲切要求的柱下扩展基础最小高度求解程序')
F=input('基本组合下的柱脚轴力kN:');
M=input('相对于基础底面中心的基本组合下的弯矩kN*m:');
b=input('偏心方向基础底面尺寸m:');
l=input('非偏心方向基础底面尺寸m:');
hc=input('偏心方向柱截面尺寸m:');
bc=input('非偏心方向柱截面尺寸m:');
ft=input('混凝土抗拉强度设计值N/mm^2:');
c00=input('保护层厚度mm:');
pj=F/(b*l)+6*M/(l*b^2);
l1=(l-bc)/2;b1=(b-hc)/2;
c2=0.7*ft*(1e+3)+pj;c1=0.7*ft*(1e+3)*bc-2*l1*pj+l*pj;c0=(l1^2-b1*l)*pj;
p=[c2,c1,c0];
c=roots(p);
if(c(1)>0)
h0=c(1);
else
h0=c(2);
end
h0=round(h0*100+0.5)*10;
disp('满足抗冲切要求的基础最小有效高度为mm：'),h0
h=h0+c00+5;
disp('满足抗冲切要求的基础最小高度为mm：'),h
h0=h0/1000;
Al=((b-hc)/2-h0)*l-((l-bc)/2-h0)^2;Fl=pj*Al;
Ft=0.7*ft*(bc+h0)*h0*(1e+3);
disp('冲切力为kN:'),Fl
disp('抗冲切力为kN:'),Ft

，程序运行结果如下：
满足抗冲切要求的柱下扩展基础最小高度求解程序
基本组合下的柱脚轴力kN:2728.1
相对于基础底面中心的基本组合下的弯矩kN*m:264.14
偏心方向基础底面尺寸m:3.05
非偏心方向基础底面尺寸m:3.05
偏心方向柱截面尺寸m:0.5
非偏心方向柱截面尺寸m:0.4
混凝土抗拉强度设计值N/mm^2:1.27
保护层厚度mm:40
满足抗冲切要求的基础最小有效高度为mm：
h0 = 610.00
满足抗冲切要求的基础最小高度为mm：
h = 655.00
冲切力为kN:
Fl = 529.63
抗冲切力为kN:
Ft = 547.71

Answer 1

输入计算数据：

满足抗冲切要求的柱下扩展基础最小高度求解程序
基本组合下的柱脚轴力kN:2728.1
相对于基础底面中心的基本组合下的弯矩kN*m:264.14
偏心方向基础底面尺寸m:3.05
非偏心方向基础底面尺寸m:3.05
偏心方向柱截面尺寸m:0.5
非偏心方向柱截面尺寸m:0.4
混凝土抗拉强度设计值N/mm^2:1.27
保护层厚度mm:40

计算结果：
满足抗冲切要求的基础最小有效高度为mm：
h0 =
610.00
满足抗冲切要求的基础最小高度为mm：
h =
655.00
冲切力为kN:
Fl =
529.63
抗冲切力为kN:
Ft =
547.71

原始输入数据应该按你计算的数据进行计算才行。