前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Mma粉丝分享:全国建模大赛B题椭圆形活动桌面设计

Mma粉丝分享:全国建模大赛B题椭圆形活动桌面设计

作者头像
WolframChina
发布2018-05-31 16:35:17
4300
发布2018-05-31 16:35:17
举报
文章被收录于专栏:WOLFRAM

椭圆形活动桌面设计(2014年全国建模大赛B题)

by:银色子弹

Tuoyuan[a_,b_,h_,n_,name_]:= Print[Clear["Global`*"]; l=Table[Null,{i,n}]; L=Table[Null,{i,n}]; For[i=1,i<n+1,i++,l[[i]]=Sqrt[(1-((25-b/n-(2b)/n (i-1))/b)^2)a^2]]; For[i=1,i<n+1,i++,L[[i]]=60-Sqrt[(1-((25-b/n-(2b)/n (i-1))/b)^2)a^2]]; \[Sigma]=ArcSin[h/L[[1]]]; Export[name, Table[ X=Table[Null,{i,n}]; Y=Table[Null,{i,n}]; Z=Table[Null,{i,n}]; DA=Table[Null,{i,n}]; For[i=1,i<n+1,i++,X[[i]]=l[[i]]+(L[[i]]Cos[\[Theta]])/2; Y[[i]]=25-(2b)/n (i-1); Z[[i]]=(-L[[i]]*Sin[\[Theta]])/2]; For[i=1,i<n+1,i++, DA[[i]]=Solve[{z==Z[[1]]/(X[[l]]-l[[i]]) x-(Z[[1]]l[[i]])/(X[[l]]-l[[i]]), (x-l[[i]])^2==(L[[i]])^2,x>=0,z<=0 },{x,z}] ]; Graphics3D[ {capForm[cap],Thickness[.005], Table[Line[{{l[[i]],Y[[i]],0},{x/.DA[[i,1]],Y[[i]],z/.DA[[i,1]]}}, VertexColors->{Red,Yellow} ],{i,1,n} ], Line[{{-x[[1]],-30,Z[[1]]},{-X[[1]],30,Z[[1]]}}],Scale[Cylinder[{{0,0,0},{0,0,3}},b],{a/b,1,1},{0,0,0}] },PlotRange->{{-90,90},{-50,50},{-50,3}},Axes->False,Boxed->False ],{\[Theta],0,\[Sigma],0.05}]]]

Tuoyuan[15, 25, 50, 10, "tuoyuan001.gif"]

代码附上啦~~~你有更好的点子,更完善的办法,发过来啦!大家齐分享~~~

在此对子弹君的支持表示感谢

欢迎继续投稿,不分领域,不限内容,你懂的...

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2014-11-20,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 WOLFRAM 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档