mathematica子函数共享
Clear["Global`*"];(*清除所有变量*)deg=Pi/180;(*角度制下1°所对应的弧度*)
(*子函数,利用三边计算角的余弦值,角是c边所对的角*)
cs:=((a^2+b^2-c^2)/(2*a*b))
(*子函数,四面体体积公式，a,b,c分别是从一个顶点出发的三条棱，x,y,z分别是对棱*)
fun:=Sqrt/288]
(*子函数,海伦公式,利用海伦公式计算三角形的面积*)
heron:=Module[{p=(a+b+c)/2},Sqrt]
(*子函数,已知△ABC的a b c三边长度,求c这条边上的中线长度*)
zx:=Sqrt[(a^2+b^2-c^2/2)/2]
(*子函数,计算角平分线长度,求的是角C的平分线(也是c边上的角平分线)*)
ca:=Module[{p=(a+b+c)/2},2/(a+b)*Sqrt]
(*miller rabin子函数*)
MR:=Module[{n=n0,a=a0,s,m,t1,k},
s=0;m=n-1;While==0,m=m/2;s=s+1];
t1=PowerMod;
If];
k=0;While];
If,Return]
]
Do,Print[{k}]],{k,1,307}]
有可能会经常用到的，就写成子函数，共享一下，也是备份一下 (*子函数,四面体体积公式，a,b,c分别是从一个顶点出发的三条棱，x,y,z分别是对棱*)
fun:=Sqrt/288]
1,{a,b,c,x,y,z}={8,19,14,4,4,9}, 四面体体积=?
2,四面体的6条边都是正整数，体积=33。来一个？ (*子函数,给定两个点,计算通过这两个点的直线的斜率.输入两点:{a,b},{c,d},返回:(d-b)/(c-a)*)
kk:=Module[{dpt},dpt=pt2-pt1;dpt[]/dpt[]]
nyy 发表于 2023-8-28 09:40
(*子函数,圆内接四边形面积公式(婆罗摩笈多公式)*)
plmjd:=Module[{p=(a+b+c+d)/2},Sqrt[(p-a)*(p-b)*(p-c)*(p-d)]]
找这样的四面体:6条棱的棱长, 4个面的面积,四面体的体积都是整数。可有 mathematica子函数共享？
或者加一条:6条棱中的最长棱尽可能短。谢谢！
页:
[1]