Mathematica sky到底有多厉害害

8,503被浏览488,988分享邀请回答r_, n_] := Table[N[((-n - 1 + 2 i) r)/n], {i, 1, n}];
y[r_, n_] := N[Sqrt[r^2 - x[r, n]^2]];
table[r_, n_, d_] := Transpose[{
Transpose[{x[r, n] + r/n, y[r, n], Table[0, {i, 1, n}]}],
Transpose[{x[r, n] - r/n, -y[r, n], Table[d, {i, 1, n}]}]
steelStick[ds_, \[Alpha]_, r_,
n_] := {{{x[r, n][[1]] - (2 r)/n,
y[r, n][[1]] +
ds Cos[\[Alpha]], -ds Sin[\[Alpha]]}, {x[r, n][[n]] + (2 r)/n,
y[r, n][[n]] +
ds Cos[\[Alpha]], -ds Sin[\[Alpha]]}}, {{x[r, n][[1]] - (2 r)/
n, -y[r, n][[1]] -
ds Cos[\[Alpha]], -ds Sin[\[Alpha]]}, {x[r, n][[n]] + (2 r)/
n, -y[r, n][[n]] - ds Cos[\[Alpha]], -ds Sin[\[Alpha]]}}};
lengthSticks[r_, n_, lengthBoard_] := lengthBoard - y[r, n];
sticks[r_, n_, lengthBoard_, t_] := {Transpose[{
Transpose[{x[r, n] + r/n, y[r, n], Table[0, {i, 1, n}]}],
Transpose[{x[r, n] - r/n, Table[lengthBoard/2, {i, 1, n}],
Table[t, {i, 1, n}]}]
}], Transpose[{
Transpose[{x[r, n] + r/n, -y[r, n], Table[0, {i, 1, n}]}],
Transpose[{x[r, n] - r/n, Table[-lengthBoard/2, {i, 1, n}],
Table[t, {i, 1, n}]}]
angleSticks[r_, n_, lengthBoard_,
ds_, \[Alpha]_] := {-Sign[\[Alpha]] ArcCos[(
steelStick[ds, \[Alpha], r, n][[1]][[1]][[2]] - y[r, n])/
Sqrt[Table[-ds Sin[\[Alpha]], {i, 1,
n}]^2 + (steelStick[ds, \[Alpha], r, n][[1]][[1]][[2]] -
y[r, n])^2]],
Sign[\[Alpha]] ArcCos[(
steelStick[ds, \[Alpha], r, n][[1]][[1]][[2]] - y[r, n])/
Sqrt[Table[-ds Sin[\[Alpha]], {i, 1,
n}]^2 + (steelStick[ds, \[Alpha], r, n][[2]][[1]][[2]] +
y[r, n])^2]]}
DynamicModule[{n = 25, r = 22.35, t = 1, ds = 13, \[Alpha] = 1.07442,
rs = 0.1, l = 84.5},
Grid[{{Grid[
{{"n: ", Slider[Dynamic[n], {5, 40, 1}], Dynamic[n]},
{"r: ", Slider[Dynamic[r], {1, 40}], Dynamic[r]}, {"l: ",
Slider[Dynamic[l], {0, 200}], Dynamic[l]}, {"t: ",
Slider[Dynamic[t], {0, 10}], Dynamic[t]}, {"rs: ",
Slider[Dynamic[rs], {0, 1}], Dynamic[rs]},
{"ds: ", Slider[Dynamic[ds], {0.1, 100}], Dynamic[ds]},
{"\[Alpha]: ", Slider[Dynamic[\[Alpha]], {-\[Pi]/2, \[Pi]/2}],
Dynamic[\[Alpha]]}}
Graphics3D[
Cuboid[table[r, n, t][[i]]],
(*wood sticks*)
Graphics3D[
Cuboid[{sticks[r, n, l, t][[1]][[i]]}]
angleSticks[r, n, l, ds, \[Alpha]][[1]][[i]], {1, 0,
0}, {x[r, n][[i]], y[r, n][[i]], 0}
Graphics3D[
Cuboid[{sticks[r, n, l, t][[2]][[i]]}]
angleSticks[r, n, l, ds, \[Alpha]][[2]][[i]], {1, 0,
0}, {x[r, n][[i]], -y[r, n][[i]], 0}
(*steel stick*)
Graphics3D[
Cylinder[steelStick[ds, \[Alpha], r, n][[i]], rs],
Graphics3D[Line[{{0, 0, 0}, {1, 0, 0}}]],
Graphics3D[Line[{{0, 0, 0}, {0, 1, 0}}]],
Graphics3D[Line[{{0, 0, 0}, {0, 0, 1}}]]
最后附个大神做的minecraft(对的,是Mathematica里的minecraft)仅仅是演示,巨卡无比,个位数帧……7416 条评论分享收藏感谢收起Mathematica 到底有多厉害_百度知道
Mathematica 到底有多厉害
我有更好的答案
gridMathematica的引入使得用户级的并行编程可以在不同的集群和多处理器系统中进行在2008年,在所有的Mathematica许可证中囊括了并行计算技术,它也是使用最广泛的数学软件之一、图形系统、编程语言,包括支持网格技术如Windows HPC Server 2008、Microsoft Compute Cluster Server和Sun Grid。2010年,Mathematica增加了对CUDA和OpenCLGPU硬件的支持Mathematica是一款科学计算软件,很好地结合了数值和符号计算引擎。在Mathematica 5.2版本中,比如Intel C++编译器或者Visual Studio 2010编译器。自从1988发布以来,它已经对如何在科技和其它领域运用计算机产生了深刻的影响。Mathematica和MATLAB、文本系统、和与其他应用程序的高级连接。很多功能在相应领域内处于世界领先地位、Maple并称为三大数学软件。Mathematica系统已经支持高性能计算,它已经支持自动多线程计算。在2002年。另外,第8版还可以生成C代码,它可以自动由系统C编译器进行编译。Mathematica的发布标志着现代科技计算的开始。Mathematica是世界上通用计算系统中最强大的系统
采纳率:87%
为您推荐:
其他类似问题
mathematica的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。MATLAB 到底有多厉害_百度知道
MATLAB 到底有多厉害
我有更好的答案
athematica是一款科学计算软件,它已经支持自动多线程计算。在2002年。magic函数。另外,第8版还可以生成C代码,它可以自动由系统C编译器进行编译,很好地结合了数值和符号计算引擎、文本系统、和与其他应用程序的高级连接。很多功能在相应领域内处于世界领先地位,包括支持网格技术如Windows HPC Server 2008、Microsoft Compute Cluster Server和Sun Grid。2010年,Mathematica增加了对CUDA和OpenCLGPU硬件的支持,它也是使用最广泛的数学软件之一。Mathematica的发布标志着现代科技计算的开始。Mathematica是世界上通用计算系统中最强大的系统。自从1988发布以来,它已经对如何在科技和其它领域运用计算机产生了深刻的影响。Mathematica和MATLAB、Maple并称为三大数学软件。Mathematica系统已经支持高性能计算。在Mathematica 5.2版本中,gridMathematica的引入使得用户级的并行编程可以在不同的集群和多处理器系统中进行在2008年,在所有的Mathematica许可证中囊括了并行计算技术,比如Intel C++编译器或者Visual Studio 2010编译器、图形系统、编程语言
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Mathematica 到底有多厉害_百度知道
Mathematica 到底有多厉害
我有更好的答案
zhihu.zhihu://www.com/question/" target="_blank">http://www可以参考知乎上的回答很多很棒的例子Mathematica 到底有多厉害? - 知乎<a href="http
采纳率:58%
来自团队:
为您推荐:
其他类似问题
mathematica的相关知识
&#xe675;换一换
回答问题,赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。8,503被浏览488,988分享邀请回答Clear["Global`*"]
DynamicModule[
{check, check1, check2, check3, check4, check5, check6, check7,
check8, check9, check10, check11, check12, check13, check14,
check15, check16, check17, check18, check19, check20, check21,
check22, check23, check24, check25, check26, check27, check28,
check29, check30, check31, check32, check33, check34, check35,
check36, check37, check38, check39, check40, input, input1, input2,
input3, input4, input5, input6, input7, input8, input9, input10,
input11, input12, input13, input14, input15, input16, input17,
input18, input19, input20, input21, input22, input23, input24,
input25, input26, input27, input28, input29, input30, input31,
input32, input33, input34, input35, input36, input37, input38,
input39, input40, box, field, trueQ, pro, trans},
check = Table[Symbol["check" && ToString[i]], {i, 40}];
input = Table[Symbol["input" && ToString[i]], {i, 40}];
box = Checkbox[#1] &@*Dynamic /@
InputField[#, String, FieldSize -& 12,
ContinuousAction -& True] &@*Dynamic /@
trueQ = (StringQ@# && # =!= "") &;
pro = ProgressIndicator@Dynamic[
Count[Thread[Boole /@ check[[#]] Boole@*trueQ /@ input[[#]]],
1]/(1 + Count[trueQ /@ input[[Take[#, -6]]], True])
trans = Transpose@{box, field};
trans[[Range@5]] = {
InputField["", String, FieldSize -& 0.5,
FieldHint -& ToString@#, Appearance -& "Frameless"],
InputField["", String, FieldSize -& 12.5,
FieldHint -& "Step_" && ToString@#, Appearance -& "Frameless"]
} & /@ Range@5;
InputField["", String, FieldSize -& 40,
Appearance -& "Frameless", FieldHint -& "TaskTitle"],
Transpose@ArrayReshape[
Grid@ArrayReshape[List /@ trans[[i]], {1, 2}],
Grid@ArrayReshape[trans[[Table[i + 5 j, {j, 7}]]], {7, 2}],
pro@Table[i + 5 j, {j, 7}]
{i, 5}], {5, 3}],
Dividers -& All]
——————————————之前一直想找一款称心如意的任务进度管理软件,奈何总是找不到自己想要的进度条控制功能,一怒之下想着干脆自己编算了,可惜又抽不出时间。万万没想到的是,这两天突发灵感,用mathematica给它鼓捣出了出来,代码共七行,拥有简单的任务创建和显示进度条功能,界面看着还算比较顺眼,如下:图中的灰色文字是hints,在输入文本后会自动覆盖,每个主任务下有5个子任务框,绿色进度条读取主任务进度,末尾显示deadline,示例如下:刚在实验室写着回答,不小心被路过的师兄看见了,瞬间喷成狗。。。好伤心。。。话说今天还去Wolfram官网看了下,他们貌似快要出CDF player的安卓和ios版本了,这意味着以后我就可以将所写的这类小东西放在手机上玩了,想想还有点小期待。。。不多说了,代码如下:DynamicModule[{mainStep,subStep},
InputField["",String,FieldSize-&55,Appearance-&"Frameless",FieldHint-&"TaskTitle"],
CheckboxBar[Dynamic@mainStep,Thread[Range[5]-&Table[InputField["",String,FieldSize-&12,FieldHint-&"MainStep_"&&ToString@#&[i]],{i,5}]],Appearance-&"Vertical"-&{Automatic,5}],
CheckboxBar[Dynamic@subStep,Thread[Range[25]-&Table[InputField["",String,FieldSize-&12,FieldHint-&""],{25}]],Appearance-&"Horizontal"-&{Automatic,5}],
Row[{Dynamic@ProgressIndicator[Length@mainStep/5],InputField["",String,FieldSize-&15,Appearance-&"Frameless",FieldHint-&"DeadLine"]},"
Frame-&All]]
4414 条评论分享收藏感谢收起}

我要回帖

更多关于 孙悟空到底有多厉害 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信