- 注册时间
- 2011-3-28
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 13453
- 在线时间
- 小时
|
发表于 2016-7-10 11:29:38
|
显示全部楼层
有一个零的是两个旋转矩阵乘积。三个矩阵乘积,除非恰好碰上和为零
- Do[Print[Apply[GCD,Flatten[#]]^-1 #&[Apply[Dot,RandomSample[{{{Cos[a],Sin[a],0},{-Sin[a],Cos[a],0},{0,0,1}},{{Cos[b],0,Sin[b]},{0,1,0},{-Sin[b],0,Cos[b]}},{{1,0,0},{0,Cos[c],Sin[c]},{0,-Sin[c],Cos[c]}}}]]/.(#->ArcCos[(2m n)/(m^2+n^2)/.{m->RandomInteger[{1,10^2}],n->RandomInteger[{1,10^2}]}]&/@{a,b,c})]],{10}]
复制代码
{{32787752160,30474825004,32401397397},{-41451697565,35534391360,8524435680},{-16134505920,-29363144853,43944119596}}
{{9217256412,13402361120,1677227355},{-13492884955,9228906960,404379612},{-615167280,-1611888237,16260921760}}
{{47309248800,52799257147,24666522804},{-58269456000,43365326004,18933645253},{-932416205,-31081358880,68318691840}}
{{165311971200,198053717220,59998455335},{-203719298020,169247528079,2619011772},{-36380450265,-47782179772,257966012304}}
{{93234615,22245452,3785536560},{-3700600748,-797399265,95828580},{797706720,-3701774460,2106377}}
{{202552875,18682983000,367810300},{-17412536636,322200648,-6777161685},{-6781792248,-269256061,17411632920}}
{{1235865111,1287492148,479005380},{-1267723548,820755936,1064744785},{529111700,-1040753775,1432242000}}
{{409332240,96215971,742100472},{-249533195,815005872,31970604},{-705481260,-232446600,419271125}}
{{144606132,219011724,613661125},{-647341500,119805125,109785060},{-74128901,-618981132,238378500}}
{{540603960,859075139,195106548},{-790207355,371685048,552948336},{389421360,-438371340,851182045}} |
|