MATLAB代做  | MATLAB代寫  | MATLAB有償編程
首 頁
當前位置:MATLAB代做|MATLAB代寫|MATLAB有償編程matlab源碼參考源碼matlab方面
基于matlab編程曲柄連桿機構充氣球動畫演示程序        [↓跳到下載地址]
官方主頁:源碼共享網站:www.kggbzb.tw

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

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

源碼語言:簡體中文

源碼類型:源碼程序 - 參考源碼 - matlab方面

推薦星級:

更新時間:2015-08-14 20:55:37

源碼簡介

hf=figure('name','打氣筒吹氣球');
set(hf,'color','g');

axis([-10,10,-4,4]);
hold on
axis off;   %除掉坐標

xa0=-2.5;%活塞左頂點坐標
xa1=-1.8;%活塞右頂點坐標
xb0=-2;%連桿左頂點坐標
xb1=5;%連桿右頂點坐標

x3=5.6;%轉輪坐標
y3=0;%轉輪坐標
x4=xb1;%設置連桿頭的初始位置橫坐標
y4=0;%設置連桿頭的初始位置縱坐標
x5=xa1;
y5=0;
x6=x3;%設置連軸初始橫坐標
y6=0;%設置連軸初始縱坐標
a=0.7;
b=0.7
c=0.7
a1=line([xa0;xa1],[0;0],'color','m','linestyle','-','linewidth',20);   %設置活塞
a8=line([-2.7;2.3],[0.3;0.3],'color','b','linestyle','-','linewidth',5);%設置打氣筒
a9=line([-2.6;2.3],[-0.3;-0.3],'color','b','linestyle','-','linewidth',5);%設置打氣筒
a10=line([-2.6;-2.6],[-0.1;-0.37],'color','b','linestyle','-','linewidth',5);%設置打氣筒
a11=line([2.0;2.0],[0.1;0.37],'color','b','linewidth',5);%設置打氣筒
a12=line([2.0;2.0],[-0.1;-0.37],'color','b','linewidth',5);%設置打氣筒
a13=line([-2.6;-2.6],[0.1;0.37],'color','b','linestyle','-','linewidth',5);%設置打氣筒
a14=line([-2.7;-2.7],[0.1;-0.1],'color','b','linestyle','-','linewidth',9);%設置氣筒嘴
a16=line([-3.2;-3.2],[0.1;-0.1],'color','r','linestyle','-','linewidth',25);%設置氣筒嘴
a2=line([xb0;xb1],[0;0],'color','m','linewidth',5);%設置連桿
a5=line(x5,y5,'color','black','linestyle','.','markersize',25);%設置連桿活塞連接頭
a4=line(x4,y4,'color','black','linestyle','.','markersize',25);%設置連桿連接頭
a6=line([xb1;x3],[0;0],'color','b','linestyle','-','linewidth',7);%設置連桿連接軸
a7=line(x3,0,'color','m','linestyle','.','markersize',50);%設置運動中心
a3=line(x3,y3,'color' ,[0.5 0.6 0.3],'linestyle','.','markersize',85);%設置手輪
len1=6.8;%連桿長
len2=0.7;%活塞長   
r=1.3;%運動半徑
dd=0.01;
d=-4;
plot(d,0,'color','r','marker','.','markersize',10);
pausetime=.0001
s=0;
ds=1;
t=0;
dt=0.015*pi;
   while t<=15.68
             t=t+dt;
          drawnow;
    lena1=sqrt((len1)^2-(r*sin(2*t))^2);%連桿在運動過程中橫軸上的有效長度
    rr1=r*cos(t);%半徑在運動過程中橫軸上的有效長度
    xaa1=x3-sqrt(len1^2-(sin(2*t)*r)^2)-(r*cos(2*t));%活塞在運動過程中的右頂點坐標位置
    xaa0=xaa1-2;%%活塞在運動過程中的左頂點坐標位置
    x55=x3-cos(2*t)*r;%連桿在運動過程中橫坐標位置
    y55=y3-sin(2*t)*r*0.32;%連桿在運動過程中縱坐標位置
    set(a4,'xdata',x55,'ydata',y55);%設置連桿頂點運動
    set(a1,'xdata',[xaa1-0.2;xaa1],'ydata',[0;0]);%設置活塞運動
    set(a2,'xdata',[xaa1;x55],'ydata',[0;y55]);
    set(a5,'xdata',xaa1);%設置活塞與連桿連接頭的運動
    set(a6,'xdata',[x55;x3],'ydata',[y55;0]);
       if (sign(y55-y3)>0)
         s=s+ds;
         d=d-dd;
         if s>200
         s=0;
         d=0;
      end
        set(gcf,'doublebuffer','on');%消除震動 
        plot(d,0,'color','r','marker','.','markersize',s);%畫氣球
        set(gcf,'doublebuffer','on') %消除抖動   
     pause(pausetime);  %暫停一會
     drawnow;
       end
   end
  x=[-8.0 -7.0 -6.0 -5.5 -4.5 -3.5 -3.7 -3  -4 -5.5 -6.5 -7.5 -9.1 -7.3 ];
  y=[-1.8 -1.2 -2.8 -1.5 -2.8 -0.5 -0.7 0.7 0.2 1.5 0.8  1.2 1.9  0.5];
     fill(x,y,'r');  
     text(-6,0,'pa','fontsize',22);


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

基于matlab編程曲柄連桿機構充氣球動畫演示程序 --下載地址

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

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

想創業卻沒有經驗的人

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

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

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

導入多種最新流行營銷軟件+網賺教程,讓入駐者輕松加盟、復制有效成交技巧、快速賺錢。

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

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

瀏覽說明

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