Wolfram Book 之直线的交点坐标、距离公式

例 1

以(1)为例,(2)和(3)可以按照同样的方法来做.

Mathematica 代码:

{Solve[{x – y==0, 3 x + 3 y – 10==0}, {x, y}],

ContourPlot[{x – y==0, 3 x + 3 y – 10==0}, {x, -9, 9}, {y, -9, 9},

Axes -> 1, Frame -> 0, PlotLegends -> “Expressions”]} // Column

例 2

使用两种方法计算面积,一种是根据底乘以高除以 2,即 S = AB CD/2,另一种方法是根据三点坐标直接用内置函数计算。计算结果,△ABC 的面积为 5.

例 3

Mathematica 代码:

ContourPlot[{2 x – 7 y – 8 == 0, 6 x – 21 y – 1 == 0}, {x, -9,

9}, {y, -9, 9}, PlotLegends -> “Expressions”]

RegionDistance[ImplicitRegion[2 x – 7 y – 8 == 0, {x, y}], {x, y}] // Simplify

Simplify[%, 6 x – 21 y – 1 == 0]

例 4

经过观察,该直线恒过点 (-2,2).

 

发布者:Cara,转载请注明出处:http://www.makercollider.com/course/2032

发表评论

登录后才能评论
QR code