免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
新浪微博
QQ空间
Facebook
Google+
Plurk
Twitter
Line
返回列表 发帖
qingfengmingyue

1# 跳转到 » 倒序看帖
打印
tT
发表于 2019-4-23 14:08 | 只看该作者

[组合] 异面垂直多少对

异面垂直有多少对

1.png (41.19 KB)

1.png

收藏 分享
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

kuing

2#
发表于 2019-4-23 15:26 | 只看该作者
纯文字题目请转录为文本，尽量不贴图：一、便于日后搜索；二、节省空间。

笨方法：分类讨论。
1、第一条线取棱，则第二条线有 `6` 种选择：比如一取 `AA_1`，则二在 `\triangle BCD` 和 `\triangle B_1C_1D_1` 上取；
2、第一条线取面对角线，则第二条线有 `5` 种选择：比如一取 `AC`，则二在 `BB_1D_1D` 上取（注意要排除 `BD`）；
3、第一条线取体对角线，则第二条线有 `6` 种选择：比如一取 `AC_1`，则二在 `\triangle BDA_1` 和 `\triangle B_1D_1C` 上取。
最后，由于都重复计算了一次，所以要除以 `2`，所以答案为 `(12\times6+12\times5+4\times6)\div2=78`。

TOP

wwdwwd117

3#
发表于 2019-4-23 16:03 | 只看该作者
回复 2# kuing

我也是算的78，但是分类不一样24+24+24+6=78

TOP

色k

4#
发表于 2019-4-23 16:05 | 只看该作者
回复 3# wwdwwd117

过程写一下啊

TOP

qingfengmingyue

5#
发表于 2019-4-23 17:47 | 只看该作者
回复 2# kuing

开始数得是70对 棱与棱异面垂直的少数了8对

TOP

qingfengmingyue

6#
发表于 2019-4-23 17:56 | 只看该作者
回复 4# 色k

棱与棱24对  面对角线与面对角线6对  面对角线与棱24对 体对角线与面对角线24对

TOP

kuing

7#
发表于 2019-4-23 22:45 | 只看该作者
用程序验证不知有何简单方法？
我用MMC(A)验证如下：
  1. lst0 = Tuples[{0, 1}, 3];
  2. lst1 = Subsets[lst0, {4}];
  3. lst2 = Table[{(lst1[[i, 1]] - lst1[[i, 2]]).(lst1[[i, 3]] - lst1[[i, 4]]),
  4. (lst1[[i, 1]] - lst1[[i, 3]]).(lst1[[i, 2]] - lst1[[i, 4]]),
  5. (lst1[[i, 1]] - lst1[[i, 4]]).(lst1[[i, 2]] - lst1[[i, 3]]),
  6. Det[{lst1[[i, 2]] - lst1[[i, 1]], lst1[[i, 3]] - lst1[[i, 1]],
  7. lst1[[i, 4]] - lst1[[i, 1]]}]}, {i, 1, Length[lst1]}];
  8. DeleteCases[lst2, {___, ___, ___, 0}];
  9. Flatten[%];
  10. Select[%, # == 0 &] // Length
复制代码
lst0 是八顶点坐标，lst1 是任取四点，lst2 计算 lst1 每组点的两两连线的数量积，以及一个用于判断是否四点共面的行列式，然后将共面的删掉，最后统计有多少个 0。
输出结果 78

TOP

qingfengmingyue

8#
发表于 2019-4-23 23:50 | 只看该作者
回复 7# kuing

相交垂直应该是54对吧

TOP

kuing

9#
发表于 2019-4-24 10:07 | 只看该作者
回复 8# qingfengmingyue

是的，其中四点共面垂直相交的 6 个，直角三角形 48 个。

后者可用类似于 7# 的程序验证：
  1. lst0 = Tuples[{0, 1}, 3];
  2. lst1 = Subsets[lst0, {3}];
  3. lst2 = Table[{(lst1[[i, 1]] - lst1[[i, 2]]).(lst1[[i, 1]] - lst1[[i, 3]]),
  4. (lst1[[i, 2]] - lst1[[i, 3]]).(lst1[[i, 2]] - lst1[[i, 1]]),
  5. (lst1[[i, 3]] - lst1[[i, 1]]).(lst1[[i, 3]] - lst1[[i, 2]])}, {i, 1, Length[lst1]}];
  6. Flatten[lst2];
  7. Select[%, # == 0 &] // Length
复制代码

TOP

敬畏数学

10#
发表于 2019-4-24 10:39 | 只看该作者
要得到78答案，不易啊。

TOP

返回列表 回复 发帖