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

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

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

源碼語言:簡體中文

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

推薦星級:

更新時間:2088-07-28 16:36:56

源碼簡介


figure('name','自控電梯');

axis([-2.0,15.0,-2.0,15.0])

hold on

fill([-2,15,15,-2],[-2,-2,15,15],[0.5,0.2,0.3]);

x1=[8 8 10 10];

y1=[6 0 0 6];

x2=[10 10 12 12];

text(-1,8,'上升','fontsize',10,'color','c');

text(4,8,'下降','fontsize',10,'color','c');

text(6,12.5,'控制電機','fontsize',10,'color','c');

text(12.5,3,'電梯','fontsize',10,'color','c');

text(5,4.5,'關閉','fontsize',10,'color','c');

text(5,1.5,'打開','fontsize',10,'color','c'); 

l1=line([2;5.5],[11;11],'color','c','linestyle','-','linewidth',2);

l2=line([2;2],[9;11],'color','c','linestyle','-','linewidth',2);

l3=line([1;1],[7;9],'color','c','linestyle','-','linewidth',2);

l4=line([3;3],[7;9],'color','c','linestyle','-','linewidth',2);

l5=line([1;3],[9;9],'color','c','linestyle','-','linewidth',2);%繪制導線

k1=line([2;1],[6;7],'color','r','linestyle','-','linewidth',2);%單刀雙擲開關

k2=line([4;5],[3;4],'color','b','linestyle','-','linewidth',2);%單刀雙擲開關

g1=line([7.7;8],[3;3],'color','b','linestyle','-','linewidth',2);

g2=line([7.7;7.7],[3;4],'color','b','linestyle','-','linewidth',2);

g3=line([7.4;7.7],[2;4],'color','b','linestyle','-','linewidth',2);

g4=line([7.4;7.4],[2;4],'color','b','linestyle','-','linewidth',2);

g5=line([7.1;7.4],[2;4],'color','b','linestyle','-','linewidth',2);

g6=line([7.1;7.1],[2;4],'color','b','linestyle','-','linewidth',2);

g7=line([6.8;7.1],[2;4],'color','b','linestyle','-','linewidth',2);

g8=line([6.8;6.8],[2;4],'color','b','linestyle','-','linewidth',2);

g9=line([6.5;6.8],[2;4],'color','b','linestyle','-','linewidth',2);

g10=line([6.5;6.5],[2;3],'color','b','linestyle','-','linewidth',2);

g11=line([6.0;6.5],[3;3],'color','b','linestyle','-','linewidth',2);

g12=line([6;6],[2;4],'color','c','linestyle','-','linewidth',2);

g13=line([5;6],[2;2],'color','c','linestyle','-','linewidth',2);

g14=line([5;6],[4;4],'color','c','linestyle','-','linewidth',2);%繪制電梯門伸縮控制開關

door1=patch(x1,y1,[0 1 1]);

door2=patch(x2,y1,[0 1 1]);%畫電梯的兩面門

t=0:pi/100:2*pi;

fill(6+0.5*sin(t),11+cos(t),[0.7,0.85,0.9]);%電機左端

fill(8.5+0.5*sin(t),11+cos(t),[0.7,0.85,0.9]);%電機右端

e0=line([9;10],[11;11],'color','r','linewidth',2);%

e1=line([10;10],[6;11],'color','b','linewidth',2);%連接電機中軸和電梯的線

%畫電機的表面(用八根不同顏色的線代替,每根之間相差pi/4)

%為簡便起見,初始條件下可將八根線分成兩組放在電機的頂端和底端

s1=line([6;8.5],[12;12],'color','c','linestyle','-','linewidth',2);

s2=line([6;8.5],[10;10],'color','m','linestyle','-','linewidth',2);

s3=line([6;8.5],[12;12],'color','b','linestyle','-','linewidth',2);

s4=line([6;8.5],[10;10],'color','w','linestyle','-','linewidth',2);

s5=line([6;8.5],[12;12],'color','k','linestyle','-','linewidth',2);

s6=line([6;8.5],[10;10],'color','g','linestyle','-','linewidth',2);

s7=line([6;8.5],[12;12],'color','r','linestyle','-','linewidth',2);

s8=line([6;8.5],[10;10],'color','b','linestyle','-','linewidth',2);

a=0;    %設定電機運轉的初始角度

da=0.05;%設定電機正轉的條件

s=0;    %設定門運動的初始條件

ds=0.05;%設定門運動的周期

while s<5    %條件表達式  (當0<s<5時,電機正轉,門上升)

a=a+da;

  xa1=6+abs(0.5*sin(a)); %當線運動到電機背面時會覆蓋電機左端,用abs可解決這一問題增強逼真感)

  xa2=8.5+0.5*sin(a);

  ya1=11+cos(a);

  ya2=11+cos(a);%設定s1的兩端點坐標(s1是對應0的線)

  xb1=6+0.5*abs(sin(a+pi));

  xb2=8.5+0.5*sin(a+pi);

  yb1=11+cos(a+pi);

  yb2=11+cos(a+pi); %設定s2的兩端點坐標(s2是對應pi的線)

  xc1=6+abs(0.5*sin(a+pi/2));

  xc2=8.5+0.5*sin(a+pi/2);

  yc1=11+cos(a+pi/2);

  yc2=11+cos(a+pi/2);%設定s3的兩端點坐標(s3是對應pi/2的線)

  xd1=6+0.5*abs(sin(a-pi/2));

  xd2=8.5+0.5*sin(a-pi/2);

  yd1=11+cos(a-pi/2);

  yd2=11+cos(a-pi/2);%設定s4的兩端點坐標(s4是對應-pi/2的線)

  xe1=6+abs(0.5*sin(a+pi/4));

  xe2=8.5+0.5*sin(a+pi/4);

  ye1=11+cos(a+pi/4);

  ye2=11+cos(a+pi/4);%設定s5的兩端點坐標(s5是對應pi/4的線)

  xf1=6+0.5*abs(sin(a+pi*3/4));

  xf2=8.5+0.5*sin(a+pi*3/4);

  yf1=11+cos(a+pi*3/4);

  yf2=11+cos(a+pi*3/4);%設定s6的兩端點坐標(s6是對應pi*3/4的線)

  xg1=6+abs(0.5*sin(a-pi*3/4));

  xg2=8.5+0.5*sin(a-3*pi/4);

  yg1=11+cos(a-3*pi/4);

  yg2=11+cos(a-3*pi/4);%設定s7的兩端點坐標(s7是對應-3*pi/4的線)

  xh1=6+0.5*abs(sin(a-pi/4));

  xh2=8.5+0.5*sin(a-pi/4);

  yh1=11+cos(a-pi/4);

  yh2=11+cos(a-pi/4);  %設定s8的兩端點坐標(s8是對應-pi/4的線)

  set(s1,'xdata',[xa1;xa2],'ydata',[ya1;ya2]);

  set(s2,'xdata',[xb1;xb2],'ydata',[yb1;yb2]);

  set(s3,'xdata',[xc1;xc2],'ydata',[yc1;yc2]);

  set(s4,'xdata',[xd1;xd2],'ydata',[yd1;yd2]);

  set(s5,'xdata',[xe1;xe2],'ydata',[ye1;ye2]);

  set(s6,'xdata',[xf1;xf2],'ydata',[yf1;yf2]);

  set(s7,'xdata',[xg1;xg2],'ydata',[yg1;yg2]);

  set(s8,'xdata',[xh1;xh2],'ydata',[yh1;yh2]); %繪制電機表面各線條的運動

  s=s+ds;

  set(door1,'xdata',x1,'ydata',[6+0.5*s 0+0.5*s 0+0.5*s 6+0.5*s]);

  set(door2,'xdata',x2,'ydata',[6+0.5*s 0+0.5*s 0+0.5*s 6+0.5*s]); %繪制門的向上運動

  set(e1,'xdata',[10;10],'ydata',[6+0.5*s;11]);  %繪制門頂的繩索的向上運動

  set(gcf,'doublebuffer','on');%消除振動

  drawnow;

  end

b=0;%設定電機反轉的條件

db=0.05;

while s<10    %條件表達式  (當5<s<10時,電機反轉,門下降)

b=b-db;

  xa1=6+abs(0.5*sin(a+b));

  xa2=8.5+0.5*sin(a+b);

  ya1=11+cos(a+b);

  ya2=11+cos(a+b);%設定s1的兩端點坐標(s1是對應0的線)

  xb1=6+0.5*abs(sin(a+pi+b));

  xb2=8.5+0.5*sin(a+pi+b);

  yb1=11+cos(a+pi+b);

  yb2=11+cos(a+pi+b);%設定s2的兩端點坐標(s2是對應pi的線)

  xc1=6+abs(0.5*sin(a+pi/2+b));

  xc2=8.5+0.5*sin(a+pi/2+b);

  yc1=11+cos(a+pi/2+b);

  yc2=11+cos(a+pi/2+b);%設定s3的兩端點坐標(s3是對應pi/2的線)

  xd1=6+2*abs(sin(a-pi/2+b));

  xd2=8.5+0.5*sin(a-pi/2+b);

  yd1=11+cos(a-pi/2+b);

  yd2=11+cos(a-pi/2+b);%設定s4的兩端點坐標(s4是對應-pi/2的線)

  xe1=6+abs(0.5*sin(a+pi/4+b));

  xe2=8.5+0.5*sin(a+pi/4+b);

  ye1=11+cos(a+pi/4+b);

  ye2=11+cos(a+pi/4+b);%設定s5的兩端點坐標(s5是對應pi/4的線)

  xf1=6+0.5*abs(sin(a+pi*3/4+b));

  xf2=8.5+0.5*sin(a+pi*3/4+b);

  yf1=11+cos(a+pi*3/4+b);

  yf2=11+cos(a+pi*3/4+b);%設定s6的兩端點坐標(s6是對應pi*3/4的線)

  xg1=6+abs(0.5*sin(a-pi*3/4+b));

  xg2=8.5+0.5*sin(a-3*pi/4+b);

  yg1=11+cos(a-3*pi/4+b);

  yg2=11+cos(a-3*pi/4+b);%設定s7的兩端點坐標(s7是對應-3*pi/4的線)

  xh1=6+0.5*abs(sin(a-pi/4+b));

  xh2=8.5+0.5*sin(a-pi/4+b);

  yh1=11+cos(a-pi/4+b);

  yh2=11+cos(a-pi/4+b);%設定s8的兩端點坐標(s8是對應-pi/4的線)

  %繪制電機表面各線條的運動

  set(s1,'xdata',[xa1;xa2],'ydata',[ya1;ya2]);

  set(s2,'xdata',[xb1;xb2],'ydata',[yb1;yb2]);

  set(s3,'xdata',[xc1;xc2],'ydata',[yc1;yc2]);

  set(s4,'xdata',[xd1;xd2],'ydata',[yd1;yd2]);

  set(s5,'xdata',[xe1;xe2],'ydata',[ye1;ye2]);

  set(s6,'xdata',[xf1;xf2],'ydata',[yf1;yf2]);

  set(s7,'xdata',[xg1;xg2],'ydata',[yg1;yg2]);

  set(s8,'xdata',[xh1;xh2],'ydata',[yh1;yh2]);

  s=s+ds;

  set(k1,'xdata',[2;3],'ydata',[6;7]);   %繪制閘刀的換向運動

  set(door1,'xdata',x1,'ydata',[11-0.5*s 5-0.5*s 5-0.5*s 11-0.5*s]);

  set(door2,'xdata',x2,'ydata',[11-0.5*s 5-0.5*s 5-0.5*s 11-0.5*s]);%繪制門的向下運動

  set(e1,'xdata',[10;10],'ydata',[11-0.5*s;11]);  %繪制門頂繩索的向下運動

  set(gcf,'doublebuffer','on');%消除振動

  drawnow;

  end

  for i=1:400

    a1=10-0.005*i;

    a2=10+0.005*i;

    x1=[8 8 a1 a1];

    x2=[a2 a2 12 12];

    set(door1,'xdata',x1);

    set(door2,'xdata',x2);

    set(k2,'xdata',[4;5],'ydata',[3;2]); %繪制閘刀的換向運動

    set(gcf,'doublebuffer','on');%消除振動

    drawnow;

    end %繪制電梯門的打開運動

  for i=1:400

    a3=8+0.005*i;

    a4=12-0.005*i;

    x1=[8 8 a3 a3];

    x2=[a4 a4 12 12];

    set(door1,'xdata',x1);

    set(door2,'xdata',x2);

    set(k2,'xdata',[4;5],'ydata',[3;4]); %繪制閘刀的換向運動

    set(gcf,'doublebuffer','on');%消除振動

    drawnow;

    end %繪制電梯門的關閉運動


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

電梯動畫演示程序 --下載地址

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

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

想創業卻沒有經驗的人

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

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

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

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

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

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

瀏覽說明

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