MATLAB代做  | MATLAB代寫  | MATLAB有償編程
首 頁
當前位置:MATLAB代做|MATLAB代寫|MATLAB有償編程matlab源碼參考源碼matlab方面
基于matlab編程動態模擬程序例子小電風扇源碼程序        [↓跳到下載地址]
官方主頁:源碼共享網站:www.kggbzb.tw

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

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

源碼語言:簡體中文

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

推薦星級:

更新時間:2016-04-07 21:41:31

源碼簡介

clear
speed = 100;
t = 0;
Y_a = 4;
Y_b = 4;
Y_c = 4;
y0 = figure;
axis equal;
axis off
axis([-6 6 -10 6])
title('可調速電風扇','fontsize',15);
grid off;
[x1,y1,z1]=sphere(30); %產生球體坐標
x=5*x1;
y=5*y1;
z=5*z1;
shading interp;
hold on;
mesh(x,y,z),colormap(hot); %畫風扇框架
hold on;
hidden off;
hold on;
fill([-3,-1,1,3],[-8.5,-5,-5,-8.5],[0.5,0.5,0.5]); %畫一個多邊形
text(-0.6,-6,'谷速 ','color','k'); %多邊形里的文字
text(-1.2,-7,'軟件 ','color','k'); %多邊形里的文字
hold on
ax = Y_a * cos(2 * pi * t);
ay = Y_a * sin(2 * pi * t); %計算初始三個葉片的橫坐標和縱坐標
bx = Y_b * cos(2 * pi * t - 2 * pi/3);
by = Y_b * sin(2 * pi * t - 2 * pi/3);
cx = Y_c * cos(2 * pi * t + 2 * pi/3);
cy = Y_c * sin(2 * pi * t + 2 * pi/3);
y_line_a = line([0 ax],[0 ay],'EraseMode','xor','Color','r','linestyle','-','linewidth',20); %畫出三個葉片
y_line_b = line([0 bx],[0 by],'EraseMode','xor','Color','b','linestyle','-','linewidth',20);
y_line_c = line([0 cx],[0 cy],'EraseMode','xor','Color','g','linestyle','-','linewidth',20);
k=1;

%b1為停止按鈕
b1=uicontrol('parent',y0,...
    'units','points',...
    'tag','b2',...
    'style','pushbutton',...
    'string','停止',...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[280 10 50 20],...
    'callback','k=0;');

%b2為關閉按鈕
b2=uicontrol('parent',y0,...
    'units','points',...
    'tag','b3',...
    'style','pushbutton',...
    'string','關閉',...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[350 10 50 20],...
    'callback',[...
    'k=1;,',...
    'close']);

%s1為調速框條
s1=uicontrol('parent',y0,...
    'units','points',...
    'tag','s1',...
    'style','slider',...
    'value',1*speed,...
    'max',100,...
    'min',30,...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[30 10 190 20],...
    'callback',[...
    'm=get(gcbo,''value'');,',...
    'speed = m/1;']);

%t1為上面的文字說明
t1=uicontrol('parent',y0,...
    'units','points',...
    'tag','t',...
    'style','text',...
    'fontsize',15,...
    'string','風速 請點擊滑動條空白處',...
    'backgroundcolor',[0.75 0.75 0.75],...
    'position',[30 30 190 20]);

while 1 %讓風扇轉起來的循環
    if k==0
        break
    end
    t = t + 1/speed;
    ax = Y_a * cos(2 * pi * t);
    ay = Y_a * sin(2 * pi * t);
    bx = Y_b * cos(2 * pi * t - 2 * pi/3);
    by = Y_b * sin(2 * pi * t - 2 * pi/3);
    cx = Y_c * cos(2 * pi * t + 2 * pi/3);
    cy = Y_c * sin(2 * pi * t + 2 * pi/3);
    drawnow;
    set(y_line_a,'XData',[0 ax],'YData',[0 ay]);
    set(y_line_b,'XData',[0 bx],'YData',[0 by]);
    set(y_line_c,'XData',[0 cx],'YData',[0 cy]);
end


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

基于matlab編程動態模擬程序例子小電風扇源碼程序 --下載地址

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

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

想創業卻沒有經驗的人

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

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

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

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

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

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

瀏覽說明

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