#我的贴吧故事#用mathematica 求解初中高中数学几何题目

已知△ABC是边长为1的等边三角形，点D、E分别是边AB、BC的中点，连接DE并延长到点F，使得DE=2EF
,经常会遇到这样的问题,我想用mathematica作图,怎么办

纯画图还是用几何画板吧
解析法证明几何问题应该不在初高中的学习范畴吧

a = {0, 0};
b = {Cos[Pi/3], Sin[Pi/3]};
c = {1, 0};
d = (a + b)/2;
e = (b + c)/2;
f = e + (e - d)/2;
Graphics[{Line@{a, b, c, a}, Line@{d, e, f},
Text[Style[ToUpperCase@#, 16], {0.05, 0.03} + ToExpression[#]] & /@
Characters@"abcdef"}]
勉强实现

版本12加入了平面几何相关的函数，不过感觉可能还没做完，也欠稳定，比如楼主那个DE==2EF我试了半天也成不了，只好明确指定坐标了：
scene=GeometricScene[{a,b,c,d->{0,0},e->{0,1},f->{0,3}},{RegularPolygon[{a,b,c}],d==Midpoint@{a,b},e==Midpoint@{b,c},Line@{d,e,f}}]
RandomInstance@scene

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

13回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六