MATLAB代做  | MATLAB代寫  | MATLAB有償編程
首 頁
當前位置:MATLAB代做|MATLAB代寫|MATLAB有償編程matlab源碼基礎應用
彈性蹦球演示程序        [↓跳到下載地址]
官方主頁:源碼共享網站:www.kggbzb.tw

聯系方式:客服QQ:1747812398 買代碼源碼軟件站,歡迎咨詢

運行環境:Win9X/2000/XP/2003/

源碼語言:簡體中文

源碼類型:破解軟件 - 基礎應用

推薦星級:

更新時間:2088-07-30 16:27:38

源碼簡介

figure(1);%定義函數
axis([-5.1,5,-0.05,1.05]);%繪制二維圖形
hold on;%保持當前圖形及軸系所有的特性
axis('off');%覆蓋坐標刻度,并填充背景
%通過填充繪出臺階及兩邊的擋板
fill([4.12,4.22,4.22,4.12],[-0.05,-0.05,1.05,1.05],'y');
fill([-5,-3.2,-3.2,-5],[-0.05,-0.05,0,0],'g');
fill([-3.2,-2.8,-2.8,-3.2],[-0.05,-0.05,0.2,0.2],'g');
fill([-3.2,-1.4,-1.4,-3.2],[0.2,0.2,0.25,0.25],'g');
fill([-1.4,-1,-1,-1.4],[0.2,0.2,0.45,0.45],'g');
fill([-1.4,0.4,0.4,-1.4],[0.45,0.45,0.5,0.5],'g');
fill([0.4,0.8,0.8,0.4],[0.45,0.45,0.7,0.7],'g');
fill([0.4,2.0,2.0,0.4],[0.7,0.7,0.75,0.75],'g');
fill([2.0,2.3,2.3,2.0],[-0.05,-0.05,0.75,0.75],'g');
fill([2.3,4.12,4.12,2.3],[-0.05,-0.05,0,0],'g');
%x2=line([-5,5],[0.25,0.25],'color','g','linestyle','-', 'markersize',50)%設置臺階邊框線,顏色,擦試方式
%line([-5,5],[0.5,0.5],'color','b','linestyle','-', 'markersize',50)%設置球與地面接觸面的顏色,擦試方式
%line([-5,5],[0.75,0.75],'color','b','linestyle','-', 'markersize',50)%設置球與地面接觸面的顏色,擦試方式
head=line(-5,1,'color','r','linestyle','.','erasemode','xor', 'markersize',60);%設置小球顏色,大小,線條和擦試方式
%body=line(-5,1,'color','b','linestyle','-','erasemode','none'); %描繪軌跡線
%設置初始條件
while 1
t=4;
dt=0.001;
w=0;
dw=0.001;
w=0;%設置球彈起的初始位置
%設置球彈起的高度
while t<=4.12
    t=dt+t;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)+1;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
w=0;%設置球彈起的初始位置
%設置球彈起的高度
while t>=2.11
    t=t-dt;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)+1;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
w=0;%設置球彈起的初始位置
  %設置球彈起的高度
while t>=1.11
    t=t-dt;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)/4+1;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
w=-0.71;%設置球彈起的初始位置
  %設置球彈起的高度
while t>=-0.62
    t=t-dt;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)/2+1;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
w=-0.71;%設置球彈起的初始位置
  %設置球彈起的高度
while t>=-2.31
    t=t-dt;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)/2+0.75;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
w=-0.71;%設置球彈起的初始位置
  %設置球彈起的高度
while t>=-4
    t=t-dt;
if w<=1
    w=dw+w;
else
    w=-1;
end
y=(-w*w)/2+0.5;
set(head,'xdata',t,'ydata',y);%設置球的運動
%set(body,'xdata',t,'ydata',y);%描繪軌跡線
drawnow;
end %結束程序
for i=0:0.01:200%設置延時
    y=i+2;
    if(y>199)
    end
end
end


提 示:本站所有源碼只提供瀏覽,需要定制的朋友可以聯系在線客服!
注意:價格根據項目的難易程度來定價格業務咨詢

彈性蹦球演示程序 --下載地址

注意:為避免不必要的誤會,本站項目里的源碼只公開部分需要的聯系在線客服

本站長期招聘程序代寫高手,歡迎加入華南地區matlab團隊

想創業卻沒有經驗的人

無論你是否有過網上開店的經驗,都可以隨時聯系在線客服,建立自己獨立的網站
想開網店卻不知道如何入手

淘寶創業成本低而且風險小,如果想開淘寶店的朋友可以聯系在線客服。
想兼職創業,卻不擅長交際與服務的人

在家創業月入5000元。網站程序+百套群發工具+網賺資料+域名+空間+本站終身代理資格,這樣你網賺的條件全具備了。每天3小時管理、推廣、收錢。
缺乏能快速贏利型產品的人

導入多種最新流行營銷軟件+網賺教程,讓入駐者輕松加盟、復制有效成交技巧、快速賺錢。
·上一源碼:打樁機動畫演示程序
·下一源碼:電路演示程序

源碼評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論

瀏覽說明

* 本站所有源碼全部公開,隨時隨地瀏覽!
* MATLAB軟件如用于商業用途,請購買正版!
* 如果您發現下載鏈接錯誤,請點擊報告錯誤謝謝!
* 站內提供的所有軟件包含破解及注冊碼均是由網上搜集,若侵犯了你的版權利益,敬請來信通知我們!
Copyright © 2008-2014 www.kggbzb.tw. All Rights Reserved.
頁面執行時間:250.00000 毫秒
安微25选5开奖号