作业帮 > 数学 > 作业

我发现了这个数字规律,

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/25 04:34:24
我发现了这个数字规律,
我发现了,(电筒数),(名字是朋友帮取的),我用从0到N的数,列了个等差数列 表,我原来是为了,看看,这些数里面,质数在这个数列里是不是有规律呢?那个规律并没有发现,倒发现了这个规律!也就是一个数,与相邻的那列,平行,低一行,的那个数相乘,那么它们的积,也必然以两个乘数的方向看去的话,是一个方向的,并且,积与相乘 的第二个数的相隔(包括第二个数与积)的格数正好是等于第一个数,我的空间里有我试验再现时情景,《电筒数!》请问大家,这个规律前人有 了吗,如果没有,我这个发现,在哪里申请认证啊?
以下是我写的宏代码!请大家也拿去研究研究吧,
Private Sub 计算_Click()
Dim n$,lgs%,qish1%,qish2%,qisl1%,tt,oush1%,oush2%,ous&,ousl%,oush%
Dim zgs&,n1&,qis&,hs() As Boolean,n2%,qsil0%,qisl%,lzgs&,bfb!
Dim x&,qis1&,qis2&,qis3&,pfs() As Long
Cells.Select
Selection.Delete Shift:=xlUp
tiao:
n = InputBox("请输入列数","金字塔数列表:",1)
If n = "" Then End
tt = Now
If n < 0 Then
x = MsgBox("请输入大于0的数,如果不想计算请按取消,如果想计算请按确定并且重新在输入框中输入!",65,"输入错误提示:")
If x = 1 Then
GoTo tiao
ElseIf x = 2 Then
End
End If
End If
n1 = (n + 1) * (n + 1) - 1
ReDim hs(n1)
n = n + 6
zgs = 0
ReDim pfs(1 To n - 2)
oush1 = n
oush2 = n
ous = -1
For ousl = 1 To n - 5
For oush = oush1 To oush2
ous = ous + 1
Cells(oush,ousl) = ous
Next oush
oush1 = oush1 - 1
oush2 = oush2 + 1
Next ousl
End Sub
请大家进入这个网址看看我的视频吧!
哦我这里播放的不是很清楚,进入我空间,那里播放比较清楚的!看我的空间博客里面的《电筒数!》里面视频哦!
这个东东不是很难证明的,如果你学过代数的话.
在你的图里,所有的数n都可以写成n=m^2+k的形式,其中0