亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        格點(diǎn)計(jì)算器

        2020-03-31 10:59:36張奎福
        數(shù)理化解題研究 2020年9期
        關(guān)鍵詞:正點(diǎn)分點(diǎn)松原市

        張奎福

        (吉林省松原市長(zhǎng)嶺縣巨寶山鎮(zhèn) 131533)

        一、符號(hào)

        [a] 不大于a的最大整數(shù)

        G(r) 半徑為r的圓內(nèi)格點(diǎn)數(shù)

        g(r) 半徑為r的圓上格點(diǎn)數(shù)

        x格點(diǎn)的橫坐標(biāo)

        y格點(diǎn)的縱坐標(biāo)

        r∈Zr是整數(shù)

        r?Zr不是整數(shù)

        ∑ 求和

        二、問(wèn)題

        Gauss(1777-1855)問(wèn)題:中心在原點(diǎn)、半徑為r的圓的內(nèi)部有多少個(gè)格點(diǎn)?

        三、格點(diǎn)的分類(lèi)

        原點(diǎn):x=y=0.

        分點(diǎn):x2=y2≠0.

        正點(diǎn):x×y=0,x2≠y2.

        散點(diǎn):x×y≠0,x2≠y2.

        四、圓上格點(diǎn)

        x2+y2=r2.

        ∵x∈Z,∴x2∈Z,

        ∵y∈Z,∴y2∈Z,

        ∴x2+y2=r2∈Z.

        ∴當(dāng)r2?Z時(shí),g(r)=0.

        ∵g(0)=1,

        ∴只考慮r2∈Z,r>0.

        正點(diǎn):當(dāng)r∈Z時(shí),有4個(gè).

        五、圓內(nèi)格點(diǎn)

        x2+y2≤r2.

        ∵當(dāng)r2?Z時(shí),g(r)=0,

        ∴圓內(nèi)格點(diǎn)是分層分布的,它們只在半徑為r且r2∈Z的同心圓上.

        原點(diǎn):1.

        分點(diǎn):4s.

        正點(diǎn):4[r].

        六、計(jì)算器草圖

        七、VB編程

        Dim a, b, c, r, s, t, i, l, k

        Private Sub CommandButton1_Click()

        a = 0: b = 0: c = 1: r = 0: s = 0: t = 0: i = 0: k = 0: TextBox1 = ""

        End Sub

        Private Sub CommandButton10_Click()

        If TextBox1 = 0 Then TextBox1 = "7": GoTo 10

        TextBox1 = TextBox1 & "7"

        10 End Sub

        Private Sub CommandButton11_Click()

        If TextBox1 = 0 Then TextBox1 = "8": GoTo 10

        TextBox1 = TextBox1 & "8"

        10 End Sub

        Private Sub CommandButton12_Click()

        If TextBox1 = 0 Then TextBox1 = "9": GoTo 10

        TextBox1 = TextBox1 & "9"

        10 End Sub

        Private Sub CommandButton13_Click()

        If Int(r) = r Then b = b + 4

        If Sqr(a / 2) = s Then b = b + 4

        For i = s + 1 To Sqr(a - 1)

        k = a - i * i

        If Int(Sqr(k)) = Sqr(k) Then b = b + 8

        Next i

        TextBox1 = b

        End Sub

        Private Sub CommandButton14_Click()

        If TextBox1 <> 0 Then TextBox1 = TextBox1 & "0"

        End Sub

        Private Sub CommandButton15_Click()

        For i = 1 To s:

        c = c + 8 * Int(Sqr(a - i * i))

        Next i

        c = c + 4 * Int(r) - 4 * s * s

        TextBox1 = c

        End Sub

        Private Sub CommandButton2_Click()

        If t = 0 Then TextBox1 = TextBox1 & ".": t = 1

        End Sub

        Private Sub CommandButton3_Click()

        a = TextBox1: r = Sqr(a): s = Int(Sqr(a / 2))

        TextBox1 = r

        End Sub

        Private Sub CommandButton4_Click()

        If TextBox1 = 0 Then TextBox1 = "1": GoTo 10

        TextBox1 = TextBox1 & "1"

        10 End Sub

        Private Sub CommandButton5_Click()

        If TextBox1 = 0 Then TextBox1 = "2": GoTo 10

        TextBox1 = TextBox1 & "2"

        10 End Sub

        Private Sub CommandButton6_Click()

        If TextBox1 = 0 Then TextBox1 = "3": GoTo 10

        TextBox1 = TextBox1 & "3"

        10 End Sub

        Private Sub CommandButton7_Click()

        If TextBox1 = 0 Then TextBox1 = "4": GoTo 10

        TextBox1 = TextBox1 & "4"

        10 End Sub

        Private Sub CommandButton8_Click()

        If TextBox1 = 0 Then TextBox1 = "5": GoTo 10

        TextBox1 = TextBox1 & "5"

        10 End Sub

        Private Sub CommandButton9_Click()

        If TextBox1 = 0 Then TextBox1 = "6": GoTo 10

        TextBox1 = TextBox1 & "6"

        10 End Sub

        Private Sub UserForm_Click()

        End Sub

        八、使用說(shuō)明

        九、程序測(cè)試

        r2,G(r).

        1,5.10,37.102,317.103,3149.104,31417.105,314197.

        106,3141549.107,31416025.108,314159053.109,3141592409.

        1010,31415925457.1011,314159264013.1012,3141592649625.

        1013,31415926532017.1014,314159265350589.

        2*1014,628318530711997.3*1014,942477796083985.

        318309886183721-318309886183724,1015-3.

        318309886183725,1015+45.

        猜你喜歡
        正點(diǎn)分點(diǎn)松原市
        自動(dòng)替換國(guó)家站異常數(shù)據(jù)技術(shù)方法探究
        來(lái)自低谷的你
        青年生活(2020年13期)2020-05-26 01:51:33
        定比分點(diǎn)之換底分點(diǎn)伸縮法
        五禽戲“動(dòng)作節(jié)分點(diǎn)”劃分與學(xué)練建議(三)
        健身氣功(2018年2期)2018-06-04 06:51:02
        正點(diǎn)
        趣味漢字——正點(diǎn)和整點(diǎn)
        松原市備春耕堅(jiān)持高起點(diǎn)高標(biāo)準(zhǔn)
        向大作家學(xué)寫(xiě)作秘訣
        ——讀《曹文軒教你寫(xiě)作》有感
        松原市林下經(jīng)濟(jì)發(fā)展模式和措施探討
        淺談松原市防沙治沙示范區(qū)建設(shè)
        人妻少妇被粗大爽视频| 亚洲男女免费视频| 中文字幕一区二区三区日韩网| 美女射精视频在线观看| 国产精品久久久三级18| 少妇太爽了在线观看免费视频| 亚洲欧洲高潮| 日韩精品首页在线观看| 人妖在线一区二区三区| 无码中文亚洲av影音先锋| 性饥渴艳妇性色生活片在线播放| 在线观看精品视频一区二区三区| 在线看高清中文字幕一区| 最美女人体内射精一区二区| 伊人狠狠色丁香婷婷综合| 毛片无码高潮喷白浆视频| 天堂av一区二区麻豆| 草草影院ccyy国产日本欧美| 狠狠色噜噜狠狠狠888米奇视频| 国产精品玖玖玖在线资源| 91人妻人人做人人爽九色| 老熟妇乱子交视频一区| 久久久精品人妻久久影视| 999久久66久6只有精品| 亚洲熟妇av一区二区三区hd| 中文字幕在线观看| 又粗又大又黄又爽的免费视频| 色婷婷精品综合久久狠狠| 成av人片一区二区久久| 天堂中文官网在线| 免费人成毛片乱码| 天堂a版一区二区av| 性人久久久久| 国产成人精品999在线观看| 99精品国产闺蜜国产在线闺蜜| 亚洲综合在不卡在线国产另类 | 北条麻妃国产九九九精品视频| 最新国产乱视频伦在线| 国产精品很黄很色很爽的网站| 伊人中文字幕亚洲精品乱码| 国产欧美日韩久久久久|