MATLAB 哪位大佬帮我试试这个程序

MATLAB 哪位大佬帮我试试这个程序,第1张

帮你修改了一下,可以运行了

function daba

%靶的制作和打靶得分

n=10 %环的个数

cc=jet(n)

th=(0:360)*pi/180 %角度向量

figure %创建图形窗口

axis equal %使坐标间隔相等

hold on %保持皮裤桥图像cc='gcmyrbgcmy' %颜色字符(1)

for i=1:n %按环数循环(2)

    x=(n+1-i)*cos(th) %横坐标

    y=(n+1-i)*sin(th) %纵坐标

    fill(x,y,cc(i,:)) %填色(3)

end %结束循环

s=0 %总分清零

ht1=text(-n,n-1,'','FontSize',16) %取文本句柄(4)

ht2=text(-n,-n+1,'','FontSize',16) %取文本句柄(4)

for i=1:n %按次数循纯耐环

    [x,y]=ginput(1) %获取坐标(5)

    plot(x,y,'k.','MarkerSize',20) %画点

    set(ht1,'String',['次数:',num2str(i)])%设置次数字符串(6)

    r=sqrt(x^2+y^2) %求射击点靶心距离

    m=n-floor(r) %计分(7)

    if m>0 %如果分数大于零(8)

        text(x,y,num2str(m),'FontSize',16)%显示分数(9)

        s=s+m %累加分数

        set(ht2,'String',['总分:',num2str(s)])%设置总分字符串(10)

    end %结束条件

    % %[y,fs]=wavread('燃猛f:\1.wav')

    % %wavplay(y,fs)

end %结束循环

if s<85

    %[y,fs]=wavread('f:\2.wav')

    %wavplay(y,fs)

    text(5,10,'[太菜了,继续锻炼吧!]','FontSize',16)

end

if s>=85

    %[y,fs]=wavread('f:\3.wav')

    %wavplay(y,fs)

    text(5,10,'哇,好强啊!','FontSize',16)

end

matlab 循环自加,以实现计数功能,编码如下:

j=0

for i=1:30

if ((c(i)>ucl)|(c(i)<lcl))

j=j+1

end

end

matlab简介:

MATLAB是美国MathWorks公司出品的商业数学软件,用于算法开发、数据可视化、数据分析以及数值计算的高级技术计算语言和交互式环境,主要包括MATLAB和Simulink两大部分。

MATLAB是matrix&laboratory两个词的组合,意为矩阵工厂(矩阵实验室)。是由美国mathworks公司发布的主要面对科学计算郑判猛、可视化以及交互式程序设计的高科技计算环境。它将数值分析、矩阵计算、科学数据可视化以及非线性动态系统的建模和仿真等诸多强大功能集成在一个易于使用的冲明视窗环境中,为科学研究、工程设计以及必须进行有效数值计算的众多科学领域提供了一种全面的解决方案,喊桥并在很大程度上摆脱了传统非交互式程序设计语言(如C、Fortran)的编辑模式,代表了当今国际科学计算软件的先进水平。

给你一个湖南大学物电院周群益老师的模拟打靶的程序,可以参考啊!

%靶的制作和打靶得分

clear                                  %清除变量

n=10                                  %环的个数

th=(0:360)*pi/180                     %角度向量

figure                                 %创建图形窗口

axis equal                             %使坐标间隔相等

hold on                                %保持图像

cc='gcmyrbgcmy'                       %颜色前宽字符(1)

for i=1:n                              %按环数循裂宏环(2)

x=(n+1-i)*cos(th)                 %横坐标

y=(n+1-i)*sin(th)                 %纵坐标

fill(x,y,cc(i))                    %填色(3)

end                                    %结束循环

s=0                                   %总分清零

ht1=text(-n,n-1,'','FontSize',16)     %取文本句柄(4)

ht2=text(-n,-n+1,'','FontSize',16)    %取文本句柄(4)

for i=1:n                              %按次数循环

[x,y]=ginput(1)                   %获取坐标(5)

plot(x,y,'k.','MarkerSize',20)     %画点

set(ht1,'String',['次数:',num2str(i)])%设置次数字符串(6)

r=sqrt(x^2+y^2)                   %求射击点靶心距离

m=n-floor(r)                      %计分(7)

if m>0                             %如果分数大于零(8)

text(x,y,num2str(m),'FontSize'慧源亮,16)%显示分数(9)

s=s+m                         %累加分数

set(ht2,'String',['总分:',num2str(s)])%设置总分字符串(10)

end                                %结束条件

end                                    %结束循环


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/yw/12271871.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-22
下一篇2023-05-22

发表评论

登录后才能评论

评论列表(0条)

    保存