程序exn711 clear,N=inpute('输入力的数目N=)%输入力系的数据 for i=1:N i,f,:)=input((力f0)的x,y两个分量fx(0),fy(0]=): p(i,:)=input('力f0的一个作用点的坐标p()=[px,py]="); end p0=input('简化转移点p0的坐标p0=[p0x,pOy]=): ft=sum(f), %求主向量 for i=1:N %计算各力对p0点的力矩 m(0)=fi,2)*(p(i,1)-p0(1)-f0,1)*(p(i,2)-p0(2); end mt=sum(m) %相加求主矩 pt=mt/[ft(2);-ft(1)】+p0 %求合力作用点的坐标 程序exn711 clear, N=input('输入力的数目N=') %输入力系的数据 for i=1:N i, f(i,:)=input('力f(i)的x,y两个分量[fx(i),fy(i) ] = '); p(i,:)=input('力f(i)的一个作用点的坐标p(i)= [px,py ] = '); end p0=input('简化转移点p0的坐标p0= [p0x,p0y ] = '); ft=sum(f), % 求主向量 for i=1:N %计算各力对p0点的力矩 m(i)=f(i,2)*(p(i,1)-p0(1))-f(i,1)*(p(i,2)-p0(2)); end mt=sum(m) % 相加求主矩 pt = mt/ [ft(2);-ft(1)] + p0 % 求合力作用点的坐标