mathematica 发表于 2020-3-30 12:06:10

Clear["Global`*"];
(*四面体体积公式,a,b,c分别是从一个顶点出发的三条棱,x,y,z分别是对棱*)
fun:=Sqrt/288]
Solve,2*Sqrt,x,x*Sqrt,x]==0,{x}]


求解结果!
\[\left\{\{x\to 0\},\left\{x\to -2 \sqrt{2-\sqrt{3}}\right\},\left\{x\to 2 \sqrt{2-\sqrt{3}}\right\},\left\{x\to -2 \sqrt{\sqrt{3}+2}\right\},\left\{x\to 2 \sqrt{\sqrt{3}+2}\right\}\right\}\]

mathematica 发表于 2020-3-30 14:18:26

mathematica 发表于 2020-3-30 12:06
求解结果!
\[\left\{\{x\to 0\},\left\{x\to -2 \sqrt{2-\sqrt{3}}\right\},\left\{x\to 2 \sqrt{2-\ ...

@chyanog
如何把上面的结果化简成两个根号相加减的形式,
而不是开了一个根号后又开根号的形式?

chyanog 发表于 2020-3-30 15:07:37

本帖最后由 chyanog 于 2020-3-30 15:08 编辑

mathematica 发表于 2020-3-30 14:18
@chyanog
如何把上面的结果化简成两个根号相加减的形式,
而不是开了一个根号后又开根号的形式?

{Sqrt],Sqrt]}/.Sqrt:>Sqrt[(a+Sqrt)/2]+SignSqrt[(a-Sqrt)/2]//Together

mathematica 发表于 2020-4-2 09:33:28

本帖最后由 mathematica 于 2020-4-2 09:34 编辑

chyanog 发表于 2020-3-30 15:07


你写的似乎有bug,我直接用方程组硬解,是能够开根号开出来的,
但是用你的代码,你给的例子也能搞定,但是为什么图上的例子就搞不定呢?
Sqrt)]
就是这个数

解出来的两个结果都是有理数,证明是可以开根号拿出来的!

倪举鹏 发表于 2020-4-16 00:24:48

三角形旋转,四点共圆,对边乘积和除以斜边

mathematica 发表于 2021-3-3 13:07:19

倪举鹏 发表于 2020-4-16 00:24
三角形旋转,四点共圆,对边乘积和除以斜边

哪来的四点共圆?

倪举鹏 发表于 2021-3-16 16:47:20

mathematica 发表于 2021-3-3 13:07
哪来的四点共圆?

三角形旋转90度后,有两个直角三角形
页: 1 [2]
查看完整版本: 已知EA, EB和EC,求正方形ABCD的边长