专栏首页WOLFRAMMma粉丝分享:全国建模大赛B题【椭圆形活动桌面设计】 by 银色子弹

Mma粉丝分享:全国建模大赛B题【椭圆形活动桌面设计】 by 银色子弹

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

by:银色子弹

代码:

uoyuan[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"]

(代码附上啦~~~如果你有更好的点子,更完善的办法,发过来啦~~~大家齐分享!!!欢迎继续投稿,不分领域,不限内容,你懂的...)

本文分享自微信公众号 - WOLFRAM(WolframChina)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2014-11-21

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

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

    WolframChina
  • ;薛定谔把妹法用Mathematica拿下她

    WolframChina
  • Wolfram 语言和Mathematica 版本12 发布了

    我们很高兴地宣布Mathematica 和 Wolfram语言英文版本 12 今天发布了!这是一次重大的版本更新,新版本在诸多领域引入了数百个新功能,范围涵盖数...

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

    WolframChina
  • 碎片化 | 第四阶段-29-Struts2入门示例1-视频

    如清晰度低,可转PC网页观看高清版本: http://v.qq.com/x/page/u0565acptbm.html 入门示例 1.hello Stru...

    码神联盟
  • 碎片化 | 第四阶段-30-Struts2入门示例流程梳理-视频

    如清晰度低,可转PC网页观看高清版本: http://v.qq.com/x/page/h056559mlsg.html 入门示例 1.hello Stru...

    码神联盟
  • Spark 伪分布式 & 全分布式 安装指南

    0、前言 3月31日是 Spark 五周年纪念日,从第一个公开发布的版本开始,Spark走过了不平凡的5年:从刚开始的默默无闻,到13年的鹊起,14年的大爆发...

    用户1177713
  • 企业应用架构模式 读书笔记

    Active Record 活动记录:包装数据库表或视图中的行,封装数据库访问,并将业务逻辑加到该数据上的对象。

    lilugirl
  • C++之ListNode

    于小勇
  • Aurora Share Logic

    Vivado IDE 中的共享逻辑选项配置核心,包括可收集的资源,如收发器四路PLL(QPLL),收发器差分缓冲区(IBUFDS_GTE2)以及核心或示例设计中...

    瓜大三哥

扫码关注云+社区

领取腾讯云代金券