通过单位矩阵与周期矩阵耦合统计方程解组数 - VFP论坛

得分:0

模9        3        4        5        6        7        8        9
3        6        7        8        9        10        11        12
4        7        8        9        10        11        12        13
5        8        9        10        11        12        13        14
6        9        10        11        12        13        14        15
7        10        11        12        13        14        15        16
8        11        12        13        14        15        16        17
9        12        13        14        15        16        17        18
10        13        14        15        16        17        18        19
11        14        15        16        17        18        19        20
12        15        16        17        18        19        20        21
13        16        17        18        19        20        21        22
14        17        18        19        20        21        22        23
15        18        19        20        21        22        23        24
16        19        20        21        22        23        24        25
17        20        21        22        23        24        25        26
18        21        22        23        24        25        26        27
19        22        23        24        25        26        27        28
20        23        24        25        26        27        28        29
21        24        25        26        27        28        29        30
22        25        26        27        28        29        30        31
23        26        27        28        29        30        31        32
24        27        28        29        30        31        32        33

统计3/3        1        3        6        10        15        21        28
1        1        3        6        10        15        21        28
3        3        9        18        30        45        63        84
6        6        18        36        60        90        126        168
10        10        30        60        100        150        210        280
15        15        45        90        150        225        315        420
21        21        63        126        210        315        441        588
28        28        84        168        280        420        588        784
36        36        108        216        360        540        756        1008
42        42        126        252        420        630        882        1176
46        46        138        276        460        690        966        1288
48        48        144        288        480        720        1008        1344
48        48        144        288        480        720        1008        1344
46        46        138        276        460        690        966        1288
42        42        126        252        420        630        882        1176
36        36        108        216        360        540        756        1008
28        28        84        168        280        420        588        784
21        21        63        126        210        315        441        588
15        15        45        90        150        225        315        420
10        10        30        60        100        150        210        280
6        6        18        36        60        90        126        168
3        3        9        18        30        45        63        84
1        1        3        6        10        15        21        28

模9        统计6
6        1
7        6
8        21
9        56
10        126
11        252
12        462
13        792
14        1281
15        1966
16        2877
17        4032
18        5432
19        7056
20        8856
21        10752
22        12642
23        14412
24        15946
25        17136
26        17892
27        18152
28        17892
29        17136
30        15946
31        14412
32        12642
33        10752
34        8856
35        7056
36        5432
37        4032
38        2877
39        1966
40        1281
41        792
42        462
43        252
44        126
45        56
46        21
47        6
48        1
合计        262144
单位矩阵，第三步计算，3+3；数据区域仅仅显示了7列数据，还有15列数据未显示。

素数问题的解决是我学习编程永恒的动力。

第 32 楼

得分:0

模9        3        4        5        6        7        8        9
6        9        10        11        12        13        14        15
7        10        11        12        13        14        15        16
8        11        12        13        14        15        16        17
9        12        13        14        15        16        17        18
10        13        14        15        16        17        18        19
11        14        15        16        17        18        19        20
12        15        16        17        18        19        20        21
13        16        17        18        19        20        21        22
14        17        18        19        20        21        22        23
15        18        19        20        21        22        23        24
16        19        20        21        22        23        24        25
17        20        21        22        23        24        25        26
18        21        22        23        24        25        26        27
19        22        23        24        25        26        27        28
20        23        24        25        26        27        28        29
21        24        25        26        27        28        29        30
22        25        26        27        28        29        30        31
23        26        27        28        29        30        31        32
24        27        28        29        30        31        32        33
25        28        29        30        31        32        33        34
26        29        30        31        32        33        34        35
27        30        31        32        33        34        35        36
28        31        32        33        34        35        36        37
29        32        33        34        35        36        37        38
30        33        34        35        36        37        38        39
31        34        35        36        37        38        39        40
32        35        36        37        38        39        40        41
33        36        37        38        39        40        41        42
34        37        38        39        40        41        42        43
35        38        39        40        41        42        43        44
36        39        40        41        42        43        44        45
37        40        41        42        43        44        45        46
38        41        42        43        44        45        46        47
39        42        43        44        45        46        47        48
40        43        44        45        46        47        48        49
41        44        45        46        47        48        49        50
42        45        46        47        48        49        50        51
43        46        47        48        49        50        51        52
44        47        48        49        50        51        52        53
45        48        49        50        51        52        53        54
46        49        50        51        52        53        54        55
47        50        51        52        53        54        55        56
48        51        52        53        54        55        56        57

统计6/3        1        3        6        10        15        21        28
1        1        3        6        10        15        21        28
6        6        18        36        60        90        126        168
21        21        63        126        210        315        441        588
56        56        168        336        560        840        1176        1568
126        126        378        756        1260        1890        2646        3528
252        252        756        1512        2520        3780        5292        7056
462        462        1386        2772        4620        6930        9702        12936
792        792        2376        4752        7920        11880        16632        22176
1281        1281        3843        7686        12810        19215        26901        35868
1966        1966        5898        11796        19660        29490        41286        55048
2877        2877        8631        17262        28770        43155        60417        80556
4032        4032        12096        24192        40320        60480        84672        112896
5432        5432        16296        32592        54320        81480        114072        152096
7056        7056        21168        42336        70560        105840        148176        197568
8856        8856        26568        53136        88560        132840        185976        247968
10752        10752        32256        64512        107520        161280        225792        301056
12642        12642        37926        75852        126420        189630        265482        353976
14412        14412        43236        86472        144120        216180        302652        403536
15946        15946        47838        95676        159460        239190        334866        446488
17136        17136        51408        102816        171360        257040        359856        479808
17892        17892        53676        107352        178920        268380        375732        500976
18152        18152        54456        108912        181520        272280        381192        508256
17892        17892        53676        107352        178920        268380        375732        500976
17136        17136        51408        102816        171360        257040        359856        479808
15946        15946        47838        95676        159460        239190        334866        446488
14412        14412        43236        86472        144120        216180        302652        403536
12642        12642        37926        75852        126420        189630        265482        353976
10752        10752        32256        64512        107520        161280        225792        301056
8856        8856        26568        53136        88560        132840        185976        247968
7056        7056        21168        42336        70560        105840        148176        197568
5432        5432        16296        32592        54320        81480        114072        152096
4032        4032        12096        24192        40320        60480        84672        112896
2877        2877        8631        17262        28770        43155        60417        80556
1966        1966        5898        11796        19660        29490        41286        55048
1281        1281        3843        7686        12810        19215        26901        35868
792        792        2376        4752        7920        11880        16632        22176
462        462        1386        2772        4620        6930        9702        12936
252        252        756        1512        2520        3780        5292        7056
126        126        378        756        1260        1890        2646        3528
56        56        168        336        560        840        1176        1568
21        21        63        126        210        315        441        588
6        6        18        36        60        90        126        168
1        1        3        6        10        15        21        28

模9        统计9
9        1
10        9
11        45
12        165
13        495
14        1287
15        3003
16        6435
17        12861
18        24229
19        43353
20        74097
21        121515
22        191907
23        292743
24        432399
25        619677
26        863109
27        1170073
28        1545777
29        1992195
30        2507067
31        3083103
32        3707559
33        4362297
34        5024385
35        5667237
36        6262237
37        6780735
38        7196247
39        7486635
40        7635987
41        7635987
42        7486635
43        7196247
44        6780735
45        6262237
46        5667237
47        5024385
48        4362297
49        3707559
50        3083103
51        2507067
52        1992195
53        1545777
54        1170073
55        863109
56        619677
57        432399
58        292743
59        191907
60        121515
61        74097
62        43353
63        24229
64        12861
65        6435
66        3003
67        1287
68        495
69        165
70        45
71        9
72        1
合计        134217728
单位矩阵，第四步，6+3，数据区域仅仅显示了7列数据，还有15列数据未显示。
单位矩阵计算完成。  周期矩阵可以重复上述步骤，只不过从0周开始，算10个周期的吧，即参与元素是0至9的10个数。

素数问题的解决是我学习编程永恒的动力。

第 33 楼

得分:0

9个未知数（或称，9个自变量）的线性不定方程，限制条件，自变量不能取9的倍数，求N对应的解组数。上边是用Excel手工计算的。单位矩阵计算步骤，周期矩阵计算步骤未列出，最后一步，单位矩阵与周期矩阵耦合也未列出。

素数问题的解决是我学习编程永恒的动力。

第 34 楼

得分:0

在Excel上能实现的，在vfp上也一定可以实现，还有vb6上都可以实现。

素数问题的解决是我学习编程永恒的动力。

第 35 楼

得分:0

在vb6版块，给出了多种解决方案。其中一人，还在Excel中建了宏进行了计算。

素数问题的解决是我学习编程永恒的动力。

第 36 楼

得分:0

CLEAR ALL
SELECT 1
USE  d:\孪生素数\孪素19.DBF ALIAS 孪19表
  SELECT 2
USE  d:\孪生素数\孪素基表.DBF ALIAS 孪基表
    kssj=SECONDS()                      &&取出开始时间
   For N=1 to 19
    @ 3,6 say N
       SELECT 孪基表
       go 1
       for m=1 to 22275
           && @ 4,8 say 孪素
           X=孪素+510510*(N-1)
           MZ=X%19
                IF  MZ=0 OR MZ=2
                  else
                  SELECT   孪19表      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE 孪19 WITH X     &&将N值付给素
                ENDIF
                SELECT 孪基表
                 SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是用vfp程序通过孪素17基表制作孪素19生成元表。
发在此标题下并不合适，无奈找不到自己的贴切主题，就这样吧，主题太少了。

素数问题的解决是我学习编程永恒的动力。

第 37 楼

得分:0

如果纯讨论数学，把数学模型转变成程序，那这个程序的应用价值何在？因为旁观者要看明白、听明白楼主所述，耗时一定很久，更何况还要演算、编程、测试，所以在不明白价值的情况下，难有“闲人”深入。
比如说，楼主解决这问题是用于“围棋机器人”？“复杂排课算法”？.....

第 38 楼

得分:0

CLEAR ALL
SELECT 1
USE d:\孪生素数\素数表万.DBF ALIAS 万素
SELECT 2
USE d:\孪生素数\孪素19.DBF ALIAS 孪素19基表
SELECT 3
USE d:\孪生素数\孪生素数表.DBF ALIAS 孪素表
     kssj=SECONDS()                      &&取出开始时间
  For i=1 to 10
         @ 3,6 say i
         SELECT 孪素19基表
       go 1
       SELECT 孪素19基表
    for m=1 to 378675
       k=孪19
       N=k+9699690*(i-1)
        Kf=INT(SQRT(N))       &&求出奇数的开方根
        SELECT  万素             &&打开素数表
        LOCATE FOR 素数>=kf      &&根据开方根,查找最大素数
        DO CASE
                CASE EOF()          &&如果超出素数表最后一条记录
                        GO BOTTOM
                CASE 素数>kf     &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                        SKIP -1
        ENDCASE
        SSS=RECNO()    &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 9           &&从第一条记录开始读取素数(3)
        FOR j=1 TO SSS-8      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
                qmz=MOD(N,素数)   &&以读取的素数为条件,对被判断值求模【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
                IF qmz=0 OR qmz=2
                        EXIT
                ENDIF
                SKIP            &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-8
                SELECT  孪素表  &&打开盛放素数的表
                APPEND BLANK                        &&增加一条空记录
                REPLACE 孪素 WITH N             &&将N值付给素数
        ENDIF
        SELECT 2
        skip
      ENDFOR
   ENDFOR
        =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是筛选10个周期中的孪生素数程序（周期值9699690）.
有专业知识，又有vfp编程，那一方面都会影响到读者。

素数问题的解决是我学习编程永恒的动力。

第 39 楼

得分:0

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=6.000000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(1+8/(A-2)^3)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*(1+8/(B-2)^3)
        SELECT 1
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
运行结果：6*∏\((1+{8\over (P-2)^3})\)=8.471329459766746000，（P≥5，P是素数）
没有合适的位置，就这么着了。

素数问题的解决是我学习编程永恒的动力。

第 40 楼

得分:0

SELECT 1
USE h:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE h:\素数式系数\孪中十亿.DBF ALIAS 孪中表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 1
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 孪中 WITH A+1          &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作孪中程序。
发的位置不对，只是作下记录，给用心者学习参考。

素数问题的解决是我学习编程永恒的动力。