请教各位大佬Excel画图问题_excel吧

请教各位大佬画图问题
想画出三角形，并求其内心点坐标
先画出直接坐标系，再用三条直接构成三角形，最后标会其内心，并给出坐标点
如图所示，已知条件
先建立直接坐标系，根据φc3=35°8.5′画一条直线，确定单位长度，比如1是多长。
过EP点先画A1，其方向为南偏东66.8度，长度为在其中心Ep点之后1.6(负值在其后，正值在其前)，做其垂线即为三角形第一条，其余两条线按次方法，构成三角形后，做出其内心位置，并计算其坐标点

excel的图表是用来做统计的，不是用来画准确图像的，画图像去matlab，mathematica之类的数学软件

已知三角形三个坐标，请计算出内心的坐标 vba
Function Incenter(x1 As Double, y1 As Double, x2 As Double, y2 As Double, x3 As Double, y3 As Double) As Variant
　Dim area As Double
　area = 0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1))
　Incenter = Array((x1 * (x2 + x3 - area) + x2 * (x3 + x1 - area) + x3 * (x1 + x2 - area)) / (3 * area), (y1 * (y2 + y3 - area) + y2 * (y3 + y1 - area) + y3 * (y1 + y2 - area)) / (3 * area))
End Function

-0.311447343, 3.334850682
-2.732470925, -2.313818985
4.095863088, -1.55996409
三角形3个顶点的坐标。

Option Explicit
Sub abc()
　Dim a, i, x, y
　Dim p1(1 To 3, 1 To 3) '垂线点坐标及斜率
　Dim p2(1 To 3, 1 To 2) '三角形顶点坐标
　a = [a1:c3].Value
　For i = 1 To 3 '转换为标准坐标系
　　If InStr(UCase(a(i, 2)), "SE") Then
　　　a(i, 2) = 270 + Val(a(i, 2))
　　ElseIf InStr(UCase(a(i, 2)), "SW") Then
　　　a(i, 2) = 270 - Val(a(i, 2))
　　Else
　　　MsgBox "!": Exit Sub
　　End If
　Next
　For i = 1 To 3 '获取垂线点坐标
　　If a(i, 2) Mod 90 = 0 Then '边为水平或垂直线
' Select Case a(i, 2)
' Case 0
' p1(i, 1) = a(i, 3): p1(i, 2) = 0
' Case 90
' p1(i, 1) = 0: p1(i, 2) = a(i, 3)
' Case 180
' p1(i, 1) = -a(i, 3): p1(i, 2) = 0
' Case 270
' p1(i, 1) = 0: p1(i, 2) = -a(i, 3)
' End Select
　　Else
　　　x = Abs(Cos(a(i, 2) * 3.1415926 / 180) * a(i, 3))
　　　y = Abs(Sin(a(i, 2) * 3.1415926 / 180) * a(i, 3))
　　　p1(i, 3) = -1 / Tan((a(i, 2)) * 3.1415926 / 180)
　　　Select Case a(i, 2)
　　　Case 0 To 90
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = x: p1(i, 2) = y
　　　　Else
　　　　　p1(i, 1) = -x: p1(i, 2) = -y
　　　　End If
　　　Case 90 To 180
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = -x: p1(i, 2) = y
　　　　Else
　　　　　p1(i, 1) = x: p1(i, 2) = -y
　　　　End If
　　　Case 180 To 270
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = -x: p1(i, 2) = -y
　　　　Else
　　　　　p1(i, 1) = x: p1(i, 2) = y
　　　　End If
　　　Case 270 To 360
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = x: p1(i, 2) = -y
　　　　Else
　　　　　p1(i, 1) = -x: p1(i, 2) = y
　　　　End If
　　　End Select
　　End If
　Next
　p2(1, 1) = (p1(1, 3) * p1(1, 1) - p1(1, 2) - p1(2, 3) * p1(2, 1) + p1(2, 2)) / (p1(1, 3) - p1(2, 3))
　p2(1, 2) = p1(1, 3) * (p2(1, 1) - p1(1, 1)) + p1(1, 2)
　p2(2, 1) = (p1(1, 3) * p1(1, 1) - p1(1, 2) - p1(3, 3) * p1(3, 1) + p1(3, 2)) / (p1(1, 3) - p1(3, 3))
　p2(2, 2) = p1(1, 3) * (p2(2, 1) - p1(1, 1)) + p1(1, 2)
　p2(3, 1) = (p1(2, 3) * p1(2, 1) - p1(2, 2) - p1(3, 3) * p1(3, 1) + p1(3, 2)) / (p1(2, 3) - p1(3, 3))
　p2(3, 2) = p1(2, 3) * (p2(3, 1) - p1(2, 1)) + p1(2, 2)
　[e1].Resize(3, 2) = p2
End Sub

Option Explicit
Sub abc()
　Dim a, b, c, i, x, y
　Dim p1(1 To 3, 1 To 3) '垂线点坐标及斜率
　Dim p2(1 To 3, 1 To 2) '三角形顶点坐标
　a = [a1:c3].Value
　For i = 1 To 3 '转换为标准坐标系
　　If InStr(UCase(a(i, 2)), "SE") Then
　　　a(i, 2) = 270 + Val(a(i, 2))
　　ElseIf InStr(UCase(a(i, 2)), "SW") Then
　　　a(i, 2) = 270 - Val(a(i, 2))
　　Else
　　　MsgBox "!": Exit Sub
　　End If
　Next
　For i = 1 To 3 '获取垂线点坐标
　　If a(i, 2) Mod 90 = 0 Then '边为水平或垂直线
　　　'Select Case a(i, 2)
　　　'Case 0
　　　' p1(i, 1) = a(i, 3): p1(i, 2) = 0
　　　'Case 90
　　　' p1(i, 1) = 0: p1(i, 2) = a(i, 3)
　　　'Case 180
　　　' p1(i, 1) = -a(i, 3): p1(i, 2) = 0
　　　'Case 270
　　　' p1(i, 1) = 0: p1(i, 2) = -a(i, 3)
　　　'End Select
　　Else
　　　x = Abs(Cos(a(i, 2) * 3.1415926 / 180) * a(i, 3))
　　　y = Abs(Sin(a(i, 2) * 3.1415926 / 180) * a(i, 3))
　　　p1(i, 3) = -1 / Tan((a(i, 2)) * 3.1415926 / 180)
　　　Select Case a(i, 2)
　　　Case 0 To 90
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = x: p1(i, 2) = y
　　　　Else
　　　　　p1(i, 1) = -x: p1(i, 2) = -y
　　　　End If
　　　Case 90 To 180
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = -x: p1(i, 2) = y
　　　　Else
　　　　　p1(i, 1) = x: p1(i, 2) = -y
　　　　End If
　　　Case 180 To 270
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = -x: p1(i, 2) = -y
　　　　Else
　　　　　p1(i, 1) = x: p1(i, 2) = y
　　　　End If
　　　Case 270 To 360
　　　　If a(i, 3) > 0 Then
　　　　　p1(i, 1) = x: p1(i, 2) = -y
　　　　Else
　　　　　p1(i, 1) = -x: p1(i, 2) = y
　　　　End If
　　　End Select
　　End If
　Next
　p2(1, 1) = (p1(1, 3) * p1(1, 1) - p1(1, 2) - p1(2, 3) * p1(2, 1) + p1(2, 2)) / (p1(1, 3) - p1(2, 3))
　p2(1, 2) = p1(1, 3) * (p2(1, 1) - p1(1, 1)) + p1(1, 2)
　p2(2, 1) = (p1(1, 3) * p1(1, 1) - p1(1, 2) - p1(3, 3) * p1(3, 1) + p1(3, 2)) / (p1(1, 3) - p1(3, 3))
　p2(2, 2) = p1(1, 3) * (p2(2, 1) - p1(1, 1)) + p1(1, 2)
　p2(3, 1) = (p1(2, 3) * p1(2, 1) - p1(2, 2) - p1(3, 3) * p1(3, 1) + p1(3, 2)) / (p1(2, 3) - p1(3, 3))
　p2(3, 2) = p1(2, 3) * (p2(3, 1) - p1(2, 1)) + p1(2, 2)
　[e1].Resize(3, 2) = p2
　a = Sqr((p2(2, 2) - p2(3, 2)) ^ 2 + (p2(2, 1) - p2(3, 1)) ^ 2)
　b = Sqr((p2(1, 2) - p2(3, 2)) ^ 2 + (p2(1, 1) - p2(3, 1)) ^ 2)
　c = Sqr((p2(1, 2) - p2(2, 2)) ^ 2 + (p2(1, 1) - p2(2, 1)) ^ 2)
　x = (p2(1, 1) * a + p2(2, 1) * b + p2(3, 1) * c) / (a + b + c)
　y = (p2(1, 2) * a + p2(2, 2) * b + p2(3, 2) * c) / (a + b + c)
　[h1] = Round(y, 5) & "," & Round(x, 5)
End Sub

难道是学航海的？

专业的事，交给专业的软件！

螺旋地带我有国语配音

日	一	二	三	四	五	六

请教各位大佬Excel画图问题

扫二维码下载贴吧客户端