作业帮EXECL 条件函数反推那我就换种表示方式,A,B,C,D,E,F（由0-9的整数组成）你就把他坐标中看成3个点,P(A,B),M(C,D),N(E,F),G就是指角PMN的度数,根据余弦定理就可以知道COSG=(PM2+MN2-PN2)/2PM*MN,其中PM,MN,PN指
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 18:00:35
EXECL 条件函数反推那我就换种表示方式,A,B,C,D,E,F（由0-9的整数组成）你就把他坐标中看成3个点,P(A,B),M(C,D),N(E,F),G就是指角PMN的度数,根据余弦定理就可以知道COSG=(PM2+MN2-PN2)/2PM*MN,其中PM,MN,PN指
EXECL 条件函数反推
那我就换种表示方式,A,B,C,D,E,F（由0-9的整数组成）你就把他坐标中看成3个点,P(A,B),M(C,D),N(E,F),G就是指角PMN的度数,根据余弦定理就可以知道COSG=(PM2+MN2-PN2)/2PM*MN,其中PM,MN,PN指的是长度,这应该能理解吧,根据A,B,C,D,E,F就可以算得.H就是这个三角形的面积,H=SING*PM*MN/2,这个应该知道的吧.我现在想实现的就是,设定G和H的范围,反过来求A,B,C,D,E,F的所有组合,A,B,C,D,E,F必须都是0-9的整数哦.
EXECL 条件函数反推那我就换种表示方式,A,B,C,D,E,F（由0-9的整数组成）你就把他坐标中看成3个点,P(A,B),M(C,D),N(E,F),G就是指角PMN的度数,根据余弦定理就可以知道COSG=(PM2+MN2-PN2)/2PM*MN,其中PM,MN,PN指
你这个问题其实跟excel没什么关系,是一个试算,我写了个宏,按照30-90,5-10计算溢出了,面积改到5-6,算出来有6000组,如果不设条件总共是100万组,装个excel07应该不会溢出.宏怎么用自己上网搜下.
Sub yang1042()
Dim a,b,c,d,e,f As Integer
Dim pm,mn,pn As Single
Dim g,h As Single
Dim i As Double
i = 1
For a = 1 To 10
For b = 1 To 10
For c = 1 To 10
For d = 1 To 10
For e = 1 To 10
For f = 1 To 10
pm = Sqr((a - c) * (a - c) + (b - d) * (b - d))
mn = Sqr((c - e) * (c - e) + (d - f) * (d - f))
pn = Sqr((a - e) * (a - e) + (b - f) * (b - f))
If pm + mn >= pn Or pm + pn >= mn Or mn + pn >= pm Then
Else
g = Application.WorksheetFunction.Acos((pm * pm + mn * mn - pn * pn) / (2 * pm * mn))
h = Sin(g) * pm * mn / 2
If Application.WorksheetFunction.Degrees(g) > 30 And Application.WorksheetFunction.Degrees(g) < 90 Then
If h > 5 And h < 10 Then
Cells(i,1) = a - 1
Cells(i,2) = b - 1
Cells(i,3) = c - 1
Cells(i,4) = d - 1
Cells(i,5) = e - 1
Cells(i,6) = f - 1
i = i + 1
End If
End If
End If
Next
Next
Next
Next
Next
Next
End Sub