MATLAB代做  | MATLAB代写  | MATLAB有偿编程
首 页
当前位置:MATLAB代做|MATLAB代写|MATLAB有偿编程matlab源码基础应用
打桩机动画演示程序        [↓跳到下载地址]
官方主页:源码共享网站:www.buycode.cn

联系方式:客服QQ:1747812398 买代码源码软件站,欢迎咨询

运行环境:Win9X/2000/XP/2003/

源码语言:简体中文

源码类型:破解软件 - 基础应用

推荐星级:

更新时间:2088-08-01 16:26:24

源码简介

clear;   %清除工作区
clc;     %清除命令区
figure('name','打桩机');   %设置标题
axis ([0 ,10,0,10]);   %建立坐标系
hold on;
axis off;   %除掉坐标
text(3,9.8,'武工院打桩机','fontsize',20,'color','r');
%画打桩机支架
c1=line([1;5.5],[ 0.15;0.15],'color','k','linewidth',8);
c2=line([1.7;5.2],[ 1.5;0.15],'color','k','linewidth',4);
c3=line([1.8;5.2],[ 0.1;8],'color','k','linewidth',4);
c4=line([1.7;5.2],[ 1.5;8],'color','k','linewidth',2);
c5=line([1.2;1.8],[ 0.5;0.5],'color','k','linewidth',13);
fill([4.9,5.3,5.3,4.9],[8.0,8.0,0.3,0.3],[1,0.1,0.5]);
fill([4.4,4.6,5.6,5.8,5.6,4.6],[8.4,8.3,8.3,8.4,8.0,8.0],[1,0.1,0.5])
%画打桩机运动部分和水泥桩
b1=line([8;8],[1;6],'color','b','linewidth',6);
b2=line([5.5,5.5],[7.9,8],'color','k','linewidth',1);
b3=line([5.3,5.55],[7.9,7.9],'color','k','linewidth',3);
b4=line([5.5,5.5],[7.9,6.3],'color','k','linewidth',3);
b5=line([5.5,5.5],[7,6.6],'color','k','linewidth',10);
b6=line([5.5,5.5],[6.6,6.3],'color','k','linewidth',12);
pausetime=1.6;   %设置暂停时间
pause(pausetime);
%吊装水泥桩
s=0;  
ds=0.01;
pausetime1=.002;
while s<2.5    %水泥桩向左移动
      s=s+ds;
      set(b1,'xdata',[8-s;8-s],'ydata',[1;6]);
      pause(pausetime1);
end
pausetime2=1;
pause(pausetime2);
s=0;  
ds=0.01;
while s<1     %水泥桩向下移动
     s=s+ds;
     set(b1,'xdata',[5.5;5.5],'ydata',[1-s;6-s]);
     pause(pausetime1);
end
pause(pausetime2);
s=0;  
ds=0.01;
while s<1.3    %打桩机运动部分下移与水泥桩顶端相接触
      s=s+ds;
      set(b2,'xdata',[5.5;5.5],'ydata',[7.9-s,8]);
      set(b3,'xdata',[5.3;5.55],'ydata',[7.9-s,7.9-s]);
      set(b4,'xdata',[5.5;5.5],'ydata',[7.9-s,6.3-s]);
      set(b5,'xdata',[5.5;5.5],'ydata',[7-s,6.6-s]);
      set(b6,'xdata',[5.5;5.5],'ydata',[6.6-s,6.3-s]);
      pause(pausetime1);
end
%打桩机开始打桩
pausetime3=.4;
pause(pausetime2);
s=0;  
ds=0.06;  %设定打桩进度
while s<4
a=0;  
da=0.01;
pausetime4=.0002;                  
while a<.4   %两个子循环设置打桩机铁锺上下反复运动
     a=a+da;
       set(b5,'xdata',[5.5;5.5],'ydata',[5.7-s+a,5.3-s+a]);
     pause(pausetime4);
end
a=0;  
while a<.4
     a=a+da;
       set(b5,'xdata',[5.5;5.5],'ydata',[6.1-s-a,5.7-s-a]);
     pause(pausetime4);
end
s=s+ds;
%打桩机运动部分与水泥桩同时向下移动
set(b1,'xdata',[5.5;5.5],'ydata',[0;5-s]);
set(b2,'xdata',[5.5;5.5],'ydata',[6.6-s,8]);
set(b3,'xdata',[5.3;5.55],'ydata',[6.6-s,6.6-s]);
set(b4,'xdata',[5.5;5.5],'ydata',[6.6-s,5-s]);
set(b5,'xdata',[5.5;5.5],'ydata',[5.7-s,5.3-s]);
set(b6,'xdata',[5.5;5.5],'ydata',[5.3-s,5-s]);
pause(pausetime3);
end


提 示:本站所有源码只提供浏览,需要定制的朋友可以联系在线客服!
注意:价格根据项目的难易程度来定价格业务咨询

打桩机动画演示程序 --下载地址

注意:为避免不必要的误会,本站项目里的源码只公开部分需要的联系在线客服

本站长期招聘程序代写高手,欢迎加入华南地区matlab团队

想创业却没有经验的人

无论你是否有过网上开店的经验,都可以随时联系在线客服,建立自己独立的网站
想开网店却不知道如何入手

淘宝创业成本低而且风险小,如果想开淘宝店的朋友可以联系在线客服。
想兼职创业,却不擅长交际与服务的人

在家创业月入5000元。网站程序+百套群发工具+网赚资料+域名+空间+本站终身代理资格,这样你网赚的条件全具备了。每天3小时管理、推广、收钱。
缺乏能快速赢利型产品的人

导入多种最新流行营销软件+网赚教程,让入驻者轻松加盟、复制有效成交技巧、快速赚钱。
·上一源码:嫦娥奔月演示程序
·下一源码:弹性蹦球演示程序

源码评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

浏览说明

* 本站所有源码全部公开,随时随地浏览!
* MATLAB软件如用于商业用途,请购买正版!
* 如果您发现下载链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含破解及注册码均是由网上搜集,若侵犯了你的版权利益,敬请来信通知我们!
Copyright © 2008-2014 www.buycode.cn. All Rights Reserved.
页面执行时间:218.75000 毫秒