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

椭圆形活动桌面设计(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"]

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

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

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

原文发布于微信公众号 - WOLFRAM(WolframChina)

原文发表时间:2014-11-20

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

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏计算机视觉与深度学习基础

Leetcode 65 Valid Number DFA有限状态机

Validate if a given string is numeric. Some examples: "0" => true " 0.1 " =>...

2286
来自专栏对角另一面

lodash源码分析之自减的两种形式

这个世界需要一个特定的恶人,可以供人们指名道姓,千夫所指:“全都怪你”。 ——村上春树《当我谈跑步时我谈些什么》 本文为读 lodash 源码的第六篇,后续...

2986
来自专栏生信技能树

第2篇:原始数据的质控、比对和过滤

首先对拿到的原始测序数据(fastq或fastq.gz格式)进行质控检测,直接用fastqc软件,再加上multiqc将多个检测结果一起展示。 如:

4863
来自专栏salesforce零基础学习

salesforce 零基础学习(六十八)http callout test class写法

此篇可以参考: https://developer.salesforce.com/docs/atlas.en-us.apexcode.meta/apexcode...

3067
来自专栏小樱的经验随笔

BZOJ 1293: [SCOI2009]生日礼物【单调队列】

1293: [SCOI2009]生日礼物 Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 2534  Solv...

2625
来自专栏数据结构与算法

09:LGTB 学分块

总时间限制: 10000ms 单个测试点时间限制: 1000ms 内存限制: 65536kB描述 LGTB 最近在学分块,但是他太菜了,分的块数量太多他就混乱...

3497
来自专栏一个会写诗的程序员的博客

js 中的模块化编程思维

891
来自专栏温安适的blog

贪婪算法-单源最短路径

3755
来自专栏锦小年的博客

python学习笔记6.7-简化数据结构的初始化过程

我们每编写一个类的时候都需要编写一个初始化函数,那么如果编写的类当做数据结构来用,它们的初始化结构就是一样的,例如: class Stock: def ...

2156
来自专栏大闲人柴毛毛

张全蛋和李小花的故事——“代理模式”

举个例子: 假设张全蛋喜欢上了李小花,张全蛋准备给李小花送一些礼物,但张全蛋又非常害羞,因此买了礼物之后让王尼玛代送。王尼玛跑到李小花把礼物送给她之后就走了。 ...

38512

扫码关注云+社区

领取腾讯云代金券