注册 登录
编程论坛 → VFP论坛

优化程序或者从新编写求四生素数中项不能合成的偶数

独木星空 发布于 2021-10-17 19:31， 13653 次点击
* 以大定小选配素数对
LOCAL xjl,djl,ts,xss,dss,kssj,tj
CLEAR
SELECT 1
USE D:\vfp温习\L8四生素数尾素不能合成数.DBF ALIAS 素数对    &&素数对表结构：偶数、统计
SELECT 2
USE D:\vfp温习\L8四生素数真表.DBF  ALIAS 素数表
kssj=SECONDS()
FOR i=23000001  to 24000000
@ 3,6 say i
    n=i
       X=8+(INT((n-INT((n-1)/5)*5)/2)+(n-INT((n-1)/5)*5))*30+INT((n-1)/5)*210 &&这是在给被判偶数置数，思路每5个偶数构成一个循环期，步长210。
          Y=X/2   &&求出偶数的中值(上一条置数语句，除了外步长210，还有内步长30，但是有2个间断点，所以有些复杂。
        SELECT 素数表
        LOCATE FOR 四素>X
        DO CASE
                CASE EOF()
                        GO Bottom
                CASE 四素>X
                        SKIP -1
        ENDCASE
        xjl=1
        djl=RECNO()
        t=.T.
        DO WHILE t
                dss=四素
                GO xjl
                xss=四素
                                              &&放在这里比较合适，这里原来显示小素数的值，去掉了。
                IF xss<Y+1 OR dss>Y-1                              &&判断跳出语句如果放在后面，有时出现一个重复素数对
                          t=.T.
                          ELSE
                          t=.F.                                       &&跳出命令
                ENDIF                                               &&结束判断
                DO CASE
                        CASE xss+dss>X
                                GO djl
                                SKIP -1
                                djl=RECNO()
                        CASE xss+dss=X
                                EXIT
                        CASE xss+dss<X
                                GO xjl
                                SKIP
                                xjl=RECNO()
                                GO djl
                ENDCASE
        ENDDO
        IF xss>Y OR dss<Y
        SELECT 素数对
                                APPEND BLANK
                                REPLACE 偶数 WITH X
        ENDIF
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是我编写的程序，下一贴把四生素数表（最末的一项代表值，即一组四生素数用最末的一个素数代替），发上来，还有存储表：不能被合成的偶数。
267 回复
#52
吹水佬2021-10-22 13:06
用VFP做这方面的东东就免了，运行效率和数据规模都很有限。
建议用C
#53
独木星空2021-10-22 15:34
回复 52楼 吹水佬
实际上，为了去包袱，已经把它分成了，50块，应该多少有点改进；如果可行的话，打分成500块，每段处理1千万区间段的数据，可以足够快，一共就102949个数据，除500后，平均每次处理数据，仅仅206个，对于现在的vfp来说，也是小菜一碟，不至于那样无用。再说了，一个加法运算，所费时间，无非就是一个去重过程，至于存表过程，应该可以忽略不记。打分的越多，处理速度越快。不行，分成1000个批次处理也是可以，有点过激思想，其实真的没有那么夸张，分成50批次处理，也是可以的。
#54
独木星空2021-10-22 19:23
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四生素数中
SELECT 2
USE D:\三角递增法\各段四生素数个数细分.DBF ALIAS 四生个数细分
kssj=SECONDS()
SELECT 1
     For j=1 to 500
      @ 3,6 say j
      fw=j*10^7
            SELECT 1
            GO 1
            COUNT ALL FOR fw>四中 TO tj
              SELECT  2  &&打开盛放素数式的表
              APPEND BLANK     &&增加一条空记录
              REPLACE 范围 WITH fw
              REPLACE 总个数 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是把四生素数中项表分成了500等份。
#55
独木星空2021-10-22 19:32
只有本站会员才能查看附件，请 登录

这是把四生素数表分成了500个区间，总个数，及分个数。
#56
独木星空2021-10-22 19:59
SELECT [ALL| DISTINCH TOP nExpr IPERCENITI
Select_List Item L .- FROM [FORCE] Table_List Item L.-]
[WITH(BUFFERING =IExpr] IlJoinType] JOIN DatabaseName!]
Table [[AS] LocaLAlias]
[ON JoinCondition [ANDOR JoinCondition!FilterCondition]...]
[WHERE JoinConditionFilterCondition ANDOR JoinCondition! FilterCondition] ...]
[GROUP BY Column List Item L ...]]
[HAVING FilterCondition [ANDIOR ..]I[UNION [ALL] SELECTCommand]
[ORDER BY Order_Item [ASCIDESC] [.....]]
[StorageDestinationDisplayDestination]
[PREFERENCE PreferenceName] INOCONSOLE] [PLAINJINOWAIT
JoinType-INNERILEFTRIGHTI FULL [OUTER]
StorageDestination -INTO [ARRAY ArrayName!
CURSOR CursorName[NOFILTER!READWRITE]ITABLE TableName]
DisplayDestination-TO [FILE FleName [ADDITIVE]
IPRINTER PROMPTISCREENJSELECT [ALL| DISTINCH
TOP nExpr IPERCENITI Select_List Item L .-
FROM [FORCE] Table_List Item L.-][WITH(BUFFERING =IExpr] IlJoinType]
JOIN DatabaseName!]Table [[AS] LocaLAlias]
[ON JoinCondition [ANDOR JoinCondition!FilterCondition]...]
[WHERE JoinConditionFilterCondition ANDOR JoinCondition! FilterCondition] ...]
[GROUP BY Column List Item L ...]]
[HAVING FilterCondition [ANDIOR ..]I[UNION [ALL] SELECTCommand]
[ORDER BY Order_Item [ASCIDESC] [.....]][StorageDestinationDisplayDestination]
[PREFERENCE PreferenceName] INOCONSOLE] [PLAINJINOWAIT
JoinType-INNERILEFTRIGHTI FULL [OUTER]
StorageDestination -INTO [ARRAY ArrayName!
CURSOR CursorName[NOFILTER!READWRITE]ITABLE TableName]
DisplayDestination-TO [FILE FleName [ADDITIVE]IPRINTER PROMPTISCREENJ
分界
选择[ all | distinch top nexpr iperceniti select _ list item l。-
from [ force ] table _ list item l.-][ with (buffering = iexpr ] iljointype ]
join databasename! ][[ as ] localalias ][ on joincondition [ andor joincondition! filtercondition ] ... ]
[ where joinconditionfiltercondition 和/或 joincondition！[过滤条件] ... [按列列表项目 l... ][具有过滤条件[安迪或]。.
]I [ union [ all ] selectcommand ][ order by order item [ ascidesc ][ ... ]
[ storagedestinationdisplaydestination ][ preference preferencename ] inoconsole ][ plainjinowait jointype-innereftrighti full [ outer ]
storagedestination-into [ array arrayname！光标修改名称[ nofilter! readwrite ] itable tablename
显示目的地到[ file flename [ additive ] iprinter prompttiscreenjselect [ all |
distinch top nexpr iperceniti select _ list item l。- from [ force ] table _ list item l.-]
[ with (buffering = iexpr ] iljointype ] join databasename! ][[ as ] localalias ]
[ on joincondition [ andor joincondition! filtercondition ] ... ][ where joinconditionfiltercondition
和/或 joincondition！[过滤条件] ... [按列列表项目 l... ][具有过滤条件[安迪或]。.]I [ union [ all ]
selectcommand ][ order by order item [ ascidesc ][ ... ][ storagedestinationdisplaydestination ][ preference preferencename ]
inoconsole ][ plainjinowait jointype-innereftrighti full [ outer ] storagedestination-into [ array arrayname！
光标曲线名[ nofilter! readwrite ] itable tablename 显示目的地到[文件 flename [ add ]打印机提示符
二次分界
所有 distinch top nexpr iperceniti 选择列表项目从强制表列表项目与缓冲 iexpr iljointypejoin
数据库名称！作为当地的合并条件或合并条件！其中连接条件过滤条件

我把所有的选择命令按顺序合并到一个项目 ascidesstorage/目的地/目的地/目的地优先选择名称控制台 jinowait jointype/innereftrighti full outer
/目的地/目的地/目的地/目的地/目的地/目的地/目的地/目的地/

文件名添加剂 iprinter prompttiscreenjselect all distinch top nexpr iperceniti select list item
from force table list item with buffering iexpr iljointype join databasename！作为当地的合并条件或合并条件！过滤条件，其中连接条件过滤条件
I union all select command order by order item ascidesc storage/目的地/目的地/目的地/目的地/目的地/目的地/目的地/目的地/
目的地/目的地/目的地/目的地/目的地/目的地/目的地/目的地/目的地！
有时一条语句，也够人折腾的。不懂外语的悲哀！
#57
独木星空2021-10-22 20:08
uPDATE[DatabaseName1!]TableName1 SET Column_Name1 - elscoression1LColumn_Name2 = eExpression2 ..] WHERE FiterCondition1[ANDOR FilterCondition2 ...]]
更新数据库名称表名称集列名称 elscoression 列名称表达式其中 fitercondition 和/或 filtercondition
螺旋压缩
稳定条件 适配条件
在线翻译结果，大概意思不错，没有形成似是而非。
#58
独木星空2021-10-22 21:58
select * from 偶数表实验.dbf distinct into table 偶数唯一表
这个简单语句，可以实现去重，留唯一的删除过程，只有一条的保留，一条以上的留下一个代表。
#59
独木星空2021-10-22 22:16
方法总会有的。在最里两层循环完，加上上楼语句；
当第二层循环完，再加上第二层语句（改一下存表名称即可。）
#60
独木星空2021-10-23 05:27
回复 59楼 独木星空
总认为，已经找到了问题的答案，可是真的用时，发现仍就有过不去的坎。
#61
独木星空2021-10-23 08:19
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\各段四生素数个数.DBF ALIAS 四生个数表
SELECT 3
USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
SELECT 4
USE D:\三角递增法\文件起名.DBF ALIAS 文件起名
kssj=SECONDS()
dimension  arr[50]
 For i=6 to 7
      @ 5,12 say i
      SELECT 4
      GO i-1
      arr[i-1]=文件名
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 @ 15,22 say k2
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 SKIP
                 ENDFOR
               SELECT 1
               GO jl+1
             ENDFOR   
          ENDFOR
       SELECT 3
       GO 1
       select * from 偶数表新.dbf DISTINCT INTO table d:\三角递增法\"arr[i-1]".dbf
       CLOSE ALL Database
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个程序存在几处错误的地方：
第一，当程序运行完最内两层循环后，出现对话框，让选择打开数据库中的表，选择“偶数表新”后，新建表arr[i-1]，不加文本号时，可以运行，但是表文件名就是它，并没有被文件起名表中的文件名代替，然后添加表时，说路径或文件名错误，打开文件夹，把名称手工改写成：偶数唯一表m后，可正常添加。
问题1，如何起个变量文件名，目的不让程序覆盖它。
第二，进入下一个循环时，提示：偶数表新已经在另一个工作区打开，所以不能执行，标记删除，到彻底删除记录那个步骤，程序不能正常执行下去。
问题2：如何知道一个表是否已经在其他工作区被打开了，或者在用某一个表时，提前关闭它（不管它是否在另一个工作区是否打开）。
    这是这个程序遇到的两个问题。
    希望得到大家的指导。
#62
独木星空2021-10-23 08:57
把文本号去掉后，保存了个arr[i-1]文件名，并不能添加到数据库中，只能重命名后，才可以添加。
CLOSE ALL Database后，倒是进入了，下一个外循环，提示找不到变量“文件名”，我看了下界面，数据库全部关闭了，这样处理也不行。
#63
独木星空2021-10-23 14:25
即便，不能正常运行。也能完成任务，因为只有50次外循环，无非点击50次键盘就OK了。今天获得前7个表，如果有空，一两天，可以结束战斗。
#64
独木星空2021-10-23 21:34
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\各段四生素数个数.DBF ALIAS 四生个数表
SELECT 3
USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=10 to 11
      @ 5,12 say i
      ?bwjm+ALLTRIM(STR(i-1))
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 @ 15,22 say k2
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 SKIP
                 ENDFOR
               SELECT 1
               GO jl+1
             ENDFOR   
          ENDFOR
       SELECT 3
       USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
       select * from 偶数表新.dbf DISTINCT INTO table d:\三角递增法\bwjm+ALLTRIM(STR(i-1)).dbf
      CLOSE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
解决了一个关卡，SELECT 3
       USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
这个语句，解决了下一语句，需要打开表文件，这一步骤，在用这句语句前，会出现对话框，打开那个数据库，表文件。
处理，完成后，
CLOSE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
提示信息，有不能识别的短语
已变量赋给文件名，还是没有实现。
所以，也就没有下一步出错的机会，进而找不到原因。
#65
独木星空2021-10-23 21:35
自己的问题，自己解决。
#66
schtg2021-10-24 05:49
学习，可喜可贺！
#67
独木星空2021-10-24 16:16
回复 66楼 schtg
怕是把你引向歧途，因为这个问题，还没有最终解决。最后，建立一个新表，不能用变量代替，在之前，会出现对话框，提示打开那个表，用后不知道，是否已经关闭，因为进入下一个外循环时，提示表正在用，（或者在另一个工作区已经打开），不能进行下一步处理。
#68
独木星空2021-10-24 17:22
本题就是化整为零。如果一次性处理50亿内的102949个数据，势必造成拥堵不堪，但是如果，我们把它划分成100份，或者1000份，那就可以轻装上阵，不用面面俱到，只处理部分，不处理整体，分散处理，比起集中处理要快的多，这个算法就是加两个数，看结果分布情况，对于现在的编程，和计算机技术来说，这是非常简单的事情。
#69
独木星空2021-10-24 17:26
打个比方，10000的数，如果10000*10000=1个亿，如果划分成100份，每份只有100个数据，100*100=10000个数据，那处理起来，几乎惊人，那是10000倍的量，有多大，可想而知。所以，化整为零，是一个不错的选择。
#70
独木星空2021-10-24 18:16
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\各段四生素数个数.DBF ALIAS 四生个数表
SELECT 3
USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=16 to 17
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 SKIP
                 ENDFOR
               SELECT 1
               GO jl+1
             ENDFOR   
          ENDFOR
       SELECT 3
       select * from 偶数表新.dbf DISTINCT INTO table d:\三角递增法\&wd.dbf
      
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个程序给建了个新表：偶数唯一表15dbf，看来，后缀不需要加。
另外就是：当内两层循环完成后，仍就有对话框，打开那个表。
进入，下一个循环时，提示：文件已在另一个工作区打开（所以，彻底删除语句不能执行）
#71
独木星空2021-10-24 18:43
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\各段四生素数个数.DBF ALIAS 四生个数表
SELECT 3
USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=17 to 18
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 SKIP
                 ENDFOR
               SELECT 1
               GO jl+1
             ENDFOR   
          ENDFOR
       SELECT 3
       select * from 偶数表新.dbf DISTINCT INTO table d:\三角递增法\&wd
      
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个程序可以正常运行了，用时8分37.46秒
#72
独木星空2021-10-24 21:38
回复 71楼 独木星空
看来，什么也有失控的时候，刚说，程序可以正常运行了，可无法把话收回，接着执行，一次也没有成功。
#73
独木星空2021-10-25 06:58
SELECT 1
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE D:\三角递增法\各段四生素数个数.DBF ALIAS 四生个数表
SELECT 3
USE D:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=26 to 27
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1  &&因为有一条空记录，所以总数--减本段，就是本段起数，用第一段数时，还不行
               FOR k1=1  TO  fgs1
               A=四中
               jl=recno()
                 SELECT  1
                 GO zgs2-fgs2+1  &&因为有一条空记录，所以总数--减本段，就是本段起数
                 For k2=1 to fgs2
                 
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 SKIP
                 ENDFOR
               SELECT 1
               GO jl+1
             ENDFOR   
          ENDFOR
           SELECT 3
           use  D:\三角递增法\偶数表新.dbf
           BROWSE LAST
          && OPEN DATABASE D:\三角递增法\偶数表新
       select * from  D:\三角递增法\偶数表新.dbf DISTINCT INTO table d:\三角递增法\&wd
      USE IN &wd
      SELECT 3
      USE D:\三角递增法\偶数表新.dbf
       && CLOSE DATABASES D:\三角递增法\偶数表新
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个程序可以正常运行了！不知道，是否还会出现第二次开玩笑不？改变，一下外循环值，再出现其他的对话框，提示语，我真的就无语了。运行时间:11分51.56秒。
    以前，对话框：打开那个表，手动选择：偶数表新；
    提示：已经在另一个工作区打开
    提示：有不能识别的短语
#74
独木星空2021-10-25 08:46
运行  For i=26 to 27
用时，13分15.22秒，没有再出现各种情况（不能正常运行情况）。
稍作，改变，可以用于求歌猜数。
#75
独木星空2021-10-25 10:10
这方面的问题，人们一遇到，就退避三舍。
#76
独木星空2021-10-25 14:17
SELECT 1
USE G:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE G:\三角递增法\各段四生素数个数细分.DBF ALIAS 四生个数表细分
SELECT 3
USE G:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=21 to 30
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
       SELECT 3
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl1=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 GO jl2+1
                 ENDFOR
               SELECT 1
               GO jl1+1
             ENDFOR   
          ENDFOR
       SELECT 3
       USE IN 3 &&打开，或关闭，那个工作区（或者，写别名）
      
       select * from 偶数表新.dbf DISTINCT INTO table G:\三角递增法\&wd
      USE IN &wd
      SELECT 3
      USE IN 3
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是移到外储存硬盘，运行的程序，10个外循环值，用时：6分8.94秒。
有一小点，需要每次选择一下：偶数表新，然后，确定。10次手动，怎么解决？
#77
独木星空2021-10-25 14:47
上楼问题视频及照片。
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
#78
独木星空2021-10-25 14:50
没有人帮助，更不会有人欣赏，真的应了，吹水佬版主那句话，自己在自导自演。
#79
吹水佬2021-10-25 16:11
以下是引用独木星空在2021-10-25 14:50:23的发言：

没有人帮助，更不会有人欣赏，真的应了，吹水佬版主那句话，自己在自导自演。

被点名了，吹水也要回。
首先声明没说过“自导自演”，说“自问自答”也是事出有因。
求帮助，先要把问题说清楚，出“填空”题有点难为想帮的人。
之前就回复过，素数的问题对一般人可能兴趣不大，甚至认识也不深，尤其是一些概念的东西，不是有个名就算了，一定要严格解释清楚。
探讨问题要多点互动，不要玩套路，要集百家之长。
#80
独木星空2021-10-25 22:18
SELECT 1
USE G:\三角递增法\四生素数表中.DBF ALIAS 四中表
SELECT 2
USE G:\三角递增法\各段四生素数个数细分.DBF ALIAS 四生个数表细分
SELECT 3
USE G:\三角递增法\偶数表新.DBF ALIAS 偶数表新
kssj=SECONDS()
bwjm="偶数唯一表"
 For i=65 to 66
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
      USE IN 3
      USE G:\三角递增法\偶数表新.DBF ALIAS 偶数表新
       SELECT 3
     
       DELETE ALL
       PACK
       FOR j=1 TO INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=四中
               jl1=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=四中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 GO jl2+1
                 ENDFOR
               SELECT 1
               GO jl1+1
             ENDFOR   
          ENDFOR
       SELECT 3
       USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
       select * from 偶数表新.dbf DISTINCT INTO table G:\三角递增法\&wd
      USE IN &wd
      SELECT 3
      USE IN  3
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
圆满完成任务。
一分耕耘一分收获。
功夫不负有心人。
#81
独木星空2021-10-26 04:16
回复 80楼 独木星空
虽然说，基本上没有什么问题，但是第一次外循环，仍就需要选择一次表文件（偶数表新）
#82
独木星空2021-10-26 10:55
SELECT 1
USE G:\三角递增法\偶数唯一表1.DBF ALIAS 偶唯一表1
SELECT 2
USE G:\三角递增法\无偶数表1.DBF ALIAS 无偶数1
kssj=SECONDS()
 For i=1 to 1190476
      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     && wou=INT((n-1)/5)*210+IIF(MOD(n,5)=1,30,0)+IIF(MOD(n,5)=2,90,0)+IIF(MOD(n,5)=3,120,0)+IIF(MOD(n.5)=4,180,0)+IIF(MOD(n,5)=0,210,0)
     wou=INT((n-1)/5)*210+s
    SELECT  1
    A=偶数
         IF A=wou
         SELECT 1
         skip
         LOOP
         ELSE
         SELECT 2
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   

ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是从已经形成的偶数表中，找出没有四生素数中项和解的偶数程序，在2500万内，有169692个反例（无中项和解的偶数）
#83
独木星空2021-10-26 15:06
SELECT 1
USE G:\三角递增法\偶数唯一表175.DBF ALIAS 偶唯一表175
SELECT 2
USE G:\三角递增法\无偶数表175.DBF ALIAS 无偶数175
kssj=SECONDS()
 For i=103571429 to 104761904
      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     && wou=INT((n-1)/5)*210+IIF(MOD(n,5)=1,30,0)+IIF(MOD(n,5)=2,90,0)+IIF(MOD(n,5)=3,120,0)+IIF(MOD(n.5)=4,180,0)+IIF(MOD(n,5)=0,210,0)
     wou=INT((n-1)/5)*210+s
    SELECT  1
    A=偶数
         IF A=wou
         SELECT 1
         skip
         LOOP
         ELSE
         SELECT 2
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   

ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对175个表的处理
#84
独木星空2021-10-26 16:16
无偶175        前连接        无偶176        后连接        无偶177
4351947720        1        4377160800        0        4402154640
4354379160        1        4388752380        0        4408097370
                43.75亿-44亿               
                前重叠区域               
今天用一种新算法，在5000万的跨度内，找到两个反例。
#85
独木星空2021-10-27 06:40
SELECT 1
USE G:\三角递增法\四生素数表中.DBF ALIAS 四生素数中
SELECT 2
USE G:\三角递增法\各段四生素数个数安整周期.DBF ALIAS 四生个数细分周期
kssj=SECONDS()
SELECT 1
     For j=1 to 238
      @ 3,6 say j
      fw=j*21000000
            SELECT 1
            GO 1
            COUNT ALL FOR 四中<=fw TO tj
              SELECT  2  
              APPEND BLANK   
              REPLACE 范围 WITH fw
              REPLACE 总个数 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是安整周期，打分的四生素数中项程序，把50亿内的四生素数中项分成了238块（区间段），为分步计算做准备。
#86
独木星空2021-10-27 20:48
真的应了吹水佬版主的那句话，自己一直在自问自答。与素数有关的问题，好像带点瘟疫，唯恐被传染上，都避之不及，那里还敢，来到这里，凑热闹。
#87
独木星空2021-10-27 21:37
UsE TDatabaseName!]Table | SQLViewName  2
使用 t 数据库名称表 sql 视图名称
[IN nWorkArea | cTableAlias]
在工作区 c 的桌面别名
[ONLINE)[ADMINN][AGAINJ[NOREQUERY
在线广告反对不公平的行为
[nDataSessionNumberl1[NODATA]
N 数据会话号码1无数据
[INDEX IndexFileList |?
索引文件列表
[ORDER [nIndexNumber |
序号
订单[ n 索引号]
N 阶索引号
iDXFileName[TAG] TagName [OF
文件名[标签]标签名[的
CDxFileNName
Cdx 文件名
ASCENDINGIDESCENDDING1T
上升下降
 [ALIAS cTableAlias[EXCLUSIVE]
 别名 c 表别名[独占]
 SHAREDI
 分享
 INOUPDATE)
 出库日期
 [CONNSTRING
 连接线
 cConnectionString i
 连接字符串
 (cStatementHandleMemvar)
 C 语句处理 memvar
用在线翻译获得的信息，强拉硬拽。
#88
独木星空2021-10-27 22:09
use in 3
admin
管理员
alias 别名
connstring  连接线
exdusive  突出的
index  索引
nodata  无数据
norequery  无节制的
noupdate 新的
online  在线
order  秩序
shared 共享的
用的在线翻译。
#89
独木星空2021-10-27 23:18
SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]] Select_List_Item [,...]
选择所有不同的 top nexpr% select list _ item
选择所有不同的 top nexpr% select _ list _ item
FROM [FORCE] Table_List_Item [,…] [WITH (BUFFERING =IExpr)]
从强制表列表项目与缓冲 iexpr
从强制表列表项目与缓冲 iexpr
[[JoinType] JOIN DatabaseName!]Table [[AS] Local_Alias]
连接类型连接数据库名称表作为本地别名
[ON.JoinCondition [AND | OR JoinCondition | FilterCondition] ..]
合并条件[和 | 或合并条件 | 过滤条件
WHERE JoinCondition | FilterCondition [AND | OR JoinCondition |
哪里合并条件 | 过滤条件[和 | 或合并条件
FilterCondition] ...]
过滤条件
[GROUP BY Column_List_Item [,. ..]]
按列列表项分组
[HAVING FilterCondition [AND | OR ..]]
具有过滤条件 [和 |或...]]
[UNION [ALL] SELECTCommand]
联合[所有]选择命令
[ORDER BY Order_item [AsC | DEsC] [,...]]
按订单项目[ asc | desc ]订购
[StorageDestination | DisplayDestination]
存储目标显示目的地
[PREFERENCE PreferenceName] [NOcoNsOLE] [PLAIN][NOWAIT]
首选项名称没有控制台普通没有等待
JoinType -INNER | LEFT| RIGHT | FULL [OUTER]
连体式内左右全外
StorageDestination -INTO [ARRAY ArrayNName | CURsOR CursorName
存储目的地-进入[阵列阵列名 | 光标目录名
[NOFILTER | READWRITE] | TABLE TableName]
没有过滤器读/写表名
DisplayDestination -TO [FILE FileName [ADDITIVE] | PRINTER
文件名加法打印机
[PROMPT] | SCREEN]
[提示] | 屏幕]
select n 语句的在线翻译
#90
schtg2021-10-28 05:50
向你学习！
#91
独木星空2021-10-28 10:16
SELECT 1
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
bwjm="偶数周期表"
For j=1 to 10
      @ 5,12 say j
      n=j+1
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

SELECT 0  && 未使用的工作区
USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT n
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT n
         skip
         LOOP
         ELSE
         SELECT 1
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
只运行一次，进入第二次外循环，提示别名已被占用
#92
独木星空2021-10-28 14:54
SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 1
USE G:\三角递增法\偶数周期表1.DBF ALIAS 偶周期1
SELECT 2
USE G:\三角递增法\偶数周期表2.DBF ALIAS 偶周期2
SELECT 3
USE G:\三角递增法\偶数周期表3.DBF ALIAS 偶周期3
SELECT 4
USE G:\三角递增法\偶数周期表4.DBF ALIAS 偶周期4
SELECT 5
USE G:\三角递增法\偶数周期表5.DBF ALIAS 偶周期5
SELECT 6
USE G:\三角递增法\偶数周期表6.DBF ALIAS 偶周期6
SELECT 7
USE G:\三角递增法\偶数周期表7.DBF ALIAS 偶周期7
SELECT 8
USE G:\三角递增法\偶数周期表8.DBF ALIAS 偶周期8
SELECT 9
USE G:\三角递增法\偶数周期表9.DBF ALIAS 偶周期9
SELECT 10
USE G:\三角递增法\偶数周期表10.DBF ALIAS 偶周期10
SELECT 11
USE G:\三角递增法\偶数周期表11.DBF ALIAS 偶周期11
SELECT 12
USE G:\三角递增法\偶数周期表12.DBF ALIAS 偶周期12
SELECT 13
USE G:\三角递增法\偶数周期表13.DBF ALIAS 偶周期13
SELECT 14
USE G:\三角递增法\偶数周期表14.DBF ALIAS 偶周期14
SELECT 15
USE G:\三角递增法\偶数周期表15.DBF ALIAS 偶周期15
SELECT 16
USE G:\三角递增法\偶数周期表16.DBF ALIAS 偶周期16
SELECT 17
USE G:\三角递增法\偶数周期表17.DBF ALIAS 偶周期17
kssj=SECONDS()
bwjm="偶周期"
For j=1 to 17
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
运算到：偶数整周期表11时出错，因为此表的数据是n*m的形式，非一个正整数值。
#93
独木星空2021-10-28 19:41
LECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 18
USE G:\三角递增法\偶数周期表1.DBF ALIAS 偶周期18
SELECT 19
USE G:\三角递增法\偶数周期表2.DBF ALIAS 偶周期19
SELECT 20
USE G:\三角递增法\偶数周期表3.DBF ALIAS 偶周期20
SELECT 21
USE G:\三角递增法\偶数周期表4.DBF ALIAS 偶周期21
SELECT 22
USE G:\三角递增法\偶数周期表5.DBF ALIAS 偶周期22
SELECT 23
USE G:\三角递增法\偶数周期表6.DBF ALIAS 偶周期23
SELECT 24
USE G:\三角递增法\偶数周期表7.DBF ALIAS 偶周期24
SELECT 25
USE G:\三角递增法\偶数周期表8.DBF ALIAS 偶周期25
SELECT 26
USE G:\三角递增法\偶数周期表9.DBF ALIAS 偶周期26
SELECT 27
USE G:\三角递增法\偶数周期表10.DBF ALIAS 偶周期27
SELECT 28
USE G:\三角递增法\偶数周期表11.DBF ALIAS 偶周期28
SELECT 29
USE G:\三角递增法\偶数周期表12.DBF ALIAS 偶周期29
SELECT 30
USE G:\三角递增法\偶数周期表13.DBF ALIAS 偶周期30
SELECT 31
USE G:\三角递增法\偶数周期表14.DBF ALIAS 偶周期31
SELECT 32
USE G:\三角递增法\偶数周期表15.DBF ALIAS 偶周期32
SELECT 33
USE G:\三角递增法\偶数周期表16.DBF ALIAS 偶周期33
SELECT 34
USE G:\三角递增法\偶数周期表17.DBF ALIAS 偶周期34
kssj=SECONDS()
bwjm="偶周期"
For j=18 to 34
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
 && USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
上楼用时10分13.20秒；本楼用时12分30.78秒。
唯一的缺陷，就是每次需要把工作区用手工改一遍，不知道是否可以根据外循环值，来对工作区付值否？
select 239是人为之。
#94
独木星空2021-10-28 20:40
回复 93楼 独木星空
手工改写的弊端，工作区改了，表别名改了，外循环值改了，最重要的表文件名没有改，改的是什么？
#95
独木星空2021-10-29 06:52
CLOSE DATA
USE G:\三角递增法\无偶数表总表.dbf && 设源表的名称为"表1"
P=''
FOR K=1 TO FCOUNT()
P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
ENDFOR

SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF 相同记录数 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
#96
独木星空2021-10-29 06:53
SELECT 1
USE G:\三角递增法\无偶相同记录数.DBF ALIAS 无偶相同录
SELECT 2
USE G:\三角递增法\无偶最终结果表.DBF ALIAS 无偶结果表
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 2385727
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=相同记录数
    B=无偶
    IF A=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 无偶 WITH B     &&将N值付给素数式
    ENDIF
   
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#97
独木星空2021-10-30 09:41
昨天晚上，运算了205至221之间的17个区间段，得到了4个反例。
#98
独木星空2021-10-31 05:36
SELECT 1
USE G:\三角递增法\相同记录数表总1.DBF ALIAS 相同记录表1
SELECT 2
USE G:\三角递增法\无偶最终结果表新总1.DBF ALIAS 无偶结果表新1
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 4387838
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=相同记录数
    B=无偶
    IF A=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 无偶 WITH B     &&将N值付给素数式
    ENDIF
   
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
在前两步的基础上，这是第三步，最终找到无四生素数中项和解的偶数。
#99
独木星空2021-10-31 05:38
SELECT 1
USE G:\三角递增法\无偶最终结果表新总1.DBF ALIAS 无偶总新1
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
     For j=1 to 378
      @ 3,6 say j
      fw=j*1000000
            SELECT 1
            GO 1
            COUNT ALL FOR 无偶<=fw TO tj
              SELECT  2  
              APPEND BLANK   
              REPLACE 范围 WITH fw
              REPLACE 统计 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是第四步，统计各打分区间段，有多少个偶数无四生素数中项和解。
#100
schtg2021-10-31 07:16
@独木星空，学习啦，谢谢！
#101
独木星空2021-11-01 08:01
统一制作的偶数周期表n，不知道，问什么有的有删除标记，有的数字间有*号字符，有时在前面（第一位是0，第二位是*，其余是数字），总之，各种情况都有，就是数据不能用，有的还不是表文件。
123456
©2025, BC-CN.NET
电脑版