[原创]请教vfbpgyfk先生一个编程问题

独舟星海 · 发表于 2021-10-31 07:04

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 G:\三角递增法\相同记录数表总2 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的重复数

独舟星海 · 发表于 2021-10-31 07:04

SELECT 1
USE G:\三角递增法\相同记录数表总2.DBF ALIAS 相同记录表2
SELECT 2
USE G:\三角递增法\无偶最终结果表新总2.DBF ALIAS 无偶结果表新2
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 3283352
   @ 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,"运行时间提示")

独舟星海 · 发表于 2021-10-31 07:06

SELECT 1
USE G:\三角递增法\无偶最终结果表新总2.DBF ALIAS 无偶总新2
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
   For j=358 to 714
   @ 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,"运行时间提示")

独舟星海 · 发表于 2021-10-31 07:06

四部曲完成，第二总区间段，已经全部给出。

独木星空谁 · 发表于 2021-11-1 19:39

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 34
USE G:\三角递增法\偶数周期表34.DBF ALIAS 偶周期34
SELECT 35
USE G:\三角递增法\偶数周期表35.DBF ALIAS 偶周期35
SELECT 36
USE G:\三角递增法\偶数周期表36.DBF ALIAS 偶周期36
SELECT 37
USE G:\三角递增法\偶数周期表37.DBF ALIAS 偶周期37
SELECT 38
USE G:\三角递增法\偶数周期表38.DBF ALIAS 偶周期38
SELECT 39
USE G:\三角递增法\偶数周期表39.DBF ALIAS 偶周期39
SELECT 40
USE G:\三角递增法\偶数周期表40.DBF ALIAS 偶周期40
SELECT 41
USE G:\三角递增法\偶数周期表41.DBF ALIAS 偶周期41
SELECT 42
USE G:\三角递增法\偶数周期表42.DBF ALIAS 偶周期42
SELECT 43
USE G:\三角递增法\偶数周期表43.DBF ALIAS 偶周期43
SELECT 44
USE G:\三角递增法\偶数周期表44.DBF ALIAS 偶周期44
SELECT 45
USE G:\三角递增法\偶数周期表45.DBF ALIAS 偶周期45
SELECT 46
USE G:\三角递增法\偶数周期表46.DBF ALIAS 偶周期46
SELECT 47
USE G:\三角递增法\偶数周期表47.DBF ALIAS 偶周期47
SELECT 48
USE G:\三角递增法\偶数周期表48.DBF ALIAS 偶周期48
SELECT 49
USE G:\三角递增法\偶数周期表49.DBF ALIAS 偶周期49
SELECT 50
USE G:\三角递增法\偶数周期表50.DBF ALIAS 偶周期50
SELECT 51
USE G:\三角递增法\偶数周期表51.DBF ALIAS 偶周期51
kssj=SECONDS()
bwjm="偶周期"
For j=34 to 51
   @ 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,"运行时间提示")
第三总区间段的，四步走。第一步

独木星空谁 · 发表于 2021-11-1 19:44

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 G:\三角递增法\相同记录数表总3 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的重复数
USE IN 相同记录数表总3 &&加了此语句后，不需要关闭程序，相同记录数表总3就有了记录，不在是0，没有加之前，dfb中无记录，也打不开，只有关闭程序才可以。
第二步

独木星空谁 · 发表于 2021-11-1 19:45

SELECT 1
USE G:\三角递增法\相同记录数表总3.DBF ALIAS 相同记录表3
SELECT 2
USE G:\三角递增法\无偶最终结果表新总3.DBF ALIAS 无偶结果表新3
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 2330520
   @ 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,"运行时间提示")
导出符合条件的记录
第三步

独木星空谁 · 发表于 2021-11-1 19:46

SELECT 1
USE G:\三角递增法\无偶最终结果表新总3.DBF ALIAS 无偶总新3
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
   For j=715 to 1071
   @ 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,"运行时间提示")
统计每百万出现的反例个数
第四步

独木星空谁 · 发表于 2021-11-1 19:47

区段范围统计各段个数总区段
715 715000000 31 31 35
716 716000000 63 32 35
717 717000000 95 32 35
718 718000000 131 36 35
719 719000000 172 41 35
720 720000000 205 33 35
721 721000000 248 43 35
722 722000000 285 37 35
723 723000000 324 39 35
724 724000000 367 43 35
725 725000000 399 32 35
726 726000000 435 36 35
727 727000000 475 40 35
728 728000000 516 41 35
729 729000000 561 45 35
730 730000000 592 31 35
731 731000000 632 40 35
732 732000000 670 38 35
733 733000000 712 42 35
734 734000000 755 43 35
735 735000000 792 37 36
736 736000000 818 26 36
737 737000000 852 34 36
738 738000000 900 48 36
739 739000000 938 38 36
740 740000000 971 33 36
741 741000000 1004 33 36
742 742000000 1035 31 36
743 743000000 1064 29 36
744 744000000 1099 35 36
745 745000000 1128 29 36
746 746000000 1167 39 36
747 747000000 1199 32 36
748 748000000 1235 36 36
749 749000000 1272 37 36
750 750000000 1299 27 36
751 751000000 1334 35 36
752 752000000 1363 29 36
753 753000000 1398 35 36
754 754000000 1429 31 36
755 755000000 1475 46 36
756 756000000 1509 34 37
757 757000000 1544 35 37
758 758000000 1567 23 37
759 759000000 1593 26 37
760 760000000 1630 37 37
761 761000000 1658 28 37
762 762000000 1683 25 37
763 763000000 1712 29 37
764 764000000 1743 31 37
765 765000000 1774 31 37
766 766000000 1808 34 37
767 767000000 1836 28 37
768 768000000 1866 30 37
769 769000000 1896 30 37
770 770000000 1925 29 37
771 771000000 1966 41 37
772 772000000 1990 24 37
773 773000000 2017 27 37
774 774000000 2040 23 37
775 775000000 2063 23 37
776 776000000 2109 46 37
777 777000000 2145 36 38
778 778000000 2170 25 38
779 779000000 2186 16 38
780 780000000 2213 27 38
781 781000000 2237 24 38
782 782000000 2266 29 38
783 783000000 2291 25 38
784 784000000 2316 25 38
785 785000000 2350 34 38
786 786000000 2376 26 38
787 787000000 2402 26 38
788 788000000 2430 28 38
789 789000000 2458 28 38
790 790000000 2487 29 38
791 791000000 2506 19 38
792 792000000 2538 32 38
793 793000000 2563 25 38
794 794000000 2600 37 38
795 795000000 2627 27 38
796 796000000 2652 25 38
797 797000000 2673 21 38
798 798000000 2695 22 39
799 799000000 2731 36 39
800 800000000 2752 21 39
801 801000000 2781 29 39
802 802000000 2808 27 39
803 803000000 2839 31 39
804 804000000 2860 21 39
805 805000000 2878 18 39
806 806000000 2910 32 39
807 807000000 2939 29 39
808 808000000 2962 23 39
809 809000000 2982 20 39
810 810000000 3007 25 39
811 811000000 3028 21 39
812 812000000 3055 27 39
813 813000000 3075 20 39
814 814000000 3099 24 39
815 815000000 3126 27 39
816 816000000 3156 30 39
817 817000000 3176 20 39
818 818000000 3204 28 39
819 819000000 3227 23 40
820 820000000 3248 21 40
821 821000000 3277 29 40
822 822000000 3306 29 40
823 823000000 3343 37 40
824 824000000 3364 21 40
825 825000000 3385 21 40
826 826000000 3408 23 40
827 827000000 3420 12 40
828 828000000 3451 31 40
829 829000000 3473 22 40
830 830000000 3491 18 40
831 831000000 3512 21 40
832 832000000 3544 32 40
833 833000000 3567 23 40
834 834000000 3596 29 40
835 835000000 3614 18 40
836 836000000 3634 20 40
837 837000000 3657 23 40
838 838000000 3690 33 40
839 839000000 3715 25 40
840 840000000 3737 22 41
841 841000000 3758 21 41
842 842000000 3788 30 41
843 843000000 3804 16 41
844 844000000 3823 19 41
845 845000000 3852 29 41
846 846000000 3870 18 41
847 847000000 3892 22 41
848 848000000 3915 23 41
849 849000000 3938 23 41
850 850000000 3973 35 41
851 851000000 3990 17 41
852 852000000 4006 16 41
853 853000000 4039 33 41
854 854000000 4054 15 41
855 855000000 4073 19 41
856 856000000 4096 23 41
857 857000000 4126 30 41
858 858000000 4163 37 41
859 859000000 4196 33 41
860 860000000 4215 19 41
861 861000000 4236 21 42
862 862000000 4262 26 42
863 863000000 4284 22 42
864 864000000 4306 22 42
865 865000000 4332 26 42
866 866000000 4350 18 42
867 867000000 4373 23 42
868 868000000 4389 16 42
869 869000000 4410 21 42
870 870000000 4428 18 42
871 871000000 4452 24 42
872 872000000 4475 23 42
873 873000000 4493 18 42
874 874000000 4518 25 42
875 875000000 4535 17 42
876 876000000 4552 17 42
877 877000000 4577 25 42
878 878000000 4599 22 42
879 879000000 4618 19 42
880 880000000 4633 15 42
881 881000000 4650 17 42
882 882000000 4670 20 43
883 883000000 4694 24 43
884 884000000 4713 19 43
885 885000000 4735 22 43
886 886000000 4761 26 43
887 887000000 4787 26 43
888 888000000 4803 16 43
889 889000000 4823 20 43
890 890000000 4839 16 43
891 891000000 4858 19 43
892 892000000 4877 19 43
893 893000000 4896 19 43
894 894000000 4911 15 43
895 895000000 4930 19 43
896 896000000 4944 14 43
897 897000000 4963 19 43
898 898000000 4986 23 43
899 899000000 5010 24 43
900 900000000 5028 18 43
901 901000000 5046 18 43
902 902000000 5062 16 43
903 903000000 5082 20 44
904 904000000 5097 15 44
905 905000000 5115 18 44
906 906000000 5136 21 44
907 907000000 5193 57 44
908 908000000 13159 7966 44
909 909000000 36969 23810 44
910 910000000 60778 23809 44
911 911000000 84588 23810 44
912 912000000 108398 23810 44
913 913000000 132207 23809 44
914 914000000 156016 23809 44
915 915000000 179826 23810 44
916 916000000 203635 23809 44
917 917000000 227445 23810 44
918 918000000 251255 23810 44
919 919000000 275064 23809 44
920 920000000 298873 23809 44
921 921000000 322683 23810 44
922 922000000 346493 23810 44
923 923000000 370302 23809 44
924 924000000 394112 23810 45
925 925000000 410080 15968 45
926 926000000 418456 8376 45
927 927000000 423288 4832 45
928 928000000 426197 2909 45
929 929000000 428106 1909 45
930 930000000 429389 1283 45
931 931000000 430273 884 45
932 932000000 430919 646 45
933 933000000 431433 514 45
934 934000000 431798 365 45
935 935000000 432067 269 45
936 936000000 432263 196 45
937 937000000 432407 144 45
938 938000000 432512 105 45
939 939000000 432603 91 45
940 940000000 432670 67 45
941 941000000 432712 42 45
942 942000000 432755 43 45
943 943000000 432790 35 45
944 944000000 432813 23 45
945 945000000 432832 19 46
946 946000000 432849 17 46
947 947000000 432868 19 46
948 948000000 432882 14 46
949 949000000 432897 15 46
950 950000000 432913 16 46
951 951000000 432931 18 46
952 952000000 432945 14 46
953 953000000 432969 24 46
954 954000000 432993 24 46
955 955000000 433004 11 46
956 956000000 433020 16 46
957 957000000 433035 15 46
958 958000000 433057 22 46
959 959000000 433071 14 46
960 960000000 433095 24 46
961 961000000 433107 12 46
962 962000000 433122 15 46
963 963000000 433139 17 46
964 964000000 433158 19 46
965 965000000 433174 16 46
966 966000000 433187 13 47
967 967000000 433203 16 47
968 968000000 433223 20 47
969 969000000 433234 11 47
970 970000000 433250 16 47
971 971000000 433260 10 47
972 972000000 433277 17 47
973 973000000 433285 8 47
974 974000000 433300 15 47
975 975000000 433316 16 47
976 976000000 433331 15 47
977 977000000 433347 16 47
978 978000000 433357 10 47
979 979000000 433370 13 47
980 980000000 433383 13 47
981 981000000 433401 18 47
982 982000000 433418 17 47
983 983000000 433432 14 47
984 984000000 433441 9 47
985 985000000 433450 9 47
986 986000000 433460 10 47
987 987000000 433479 19 48
988 988000000 433491 12 48
989 989000000 433507 16 48
990 990000000 433519 12 48
991 991000000 433534 15 48
992 992000000 433549 15 48
993 993000000 433563 14 48
994 994000000 433581 18 48
995 995000000 433594 13 48
996 996000000 433610 16 48
997 997000000 433625 15 48
998 998000000 433636 11 48
999 999000000 433655 19 48
1000 1000000000 433674 19 48
1001 1001000000 433686 12 48
1002 1002000000 433698 12 48
1003 1003000000 433712 14 48
1004 1004000000 433729 17 48
1005 1005000000 433746 17 48
1006 1006000000 433764 18 48
1007 1007000000 433779 15 48
1008 1008000000 433792 13 49
1009 1009000000 433806 14 49
1010 1010000000 433820 14 49
1011 1011000000 433830 10 49
1012 1012000000 433842 12 49
1013 1013000000 433851 9 49
1014 1014000000 433863 12 49
1015 1015000000 433879 16 49
1016 1016000000 433889 10 49
1017 1017000000 433900 11 49
1018 1018000000 433912 12 49
1019 1019000000 433925 13 49
1020 1020000000 433936 11 49
1021 1021000000 433956 20 49
1022 1022000000 433967 11 49
1023 1023000000 433985 18 49
1024 1024000000 433997 12 49
1025 1025000000 434011 14 49
1026 1026000000 434026 15 49
1027 1027000000 434038 12 49
1028 1028000000 434052 14 49
1029 1029000000 434066 14 50
1030 1030000000 434081 15 50
1031 1031000000 434091 10 50
1032 1032000000 434101 10 50
1033 1033000000 434115 14 50
1034 1034000000 434130 15 50
1035 1035000000 434146 16 50
1036 1036000000 434163 17 50
1037 1037000000 434175 12 50
1038 1038000000 434191 16 50
1039 1039000000 434201 10 50
1040 1040000000 434209 8 50
1041 1041000000 434223 14 50
1042 1042000000 434235 12 50
1043 1043000000 434244 9 50
1044 1044000000 434255 11 50
1045 1045000000 434265 10 50
1046 1046000000 434283 18 50
1047 1047000000 434296 13 50
1048 1048000000 434309 13 50
1049 1049000000 434327 18 50
1050 1050000000 434337 10 51
1051 1051000000 434346 9 51
1052 1052000000 434356 10 51
1053 1053000000 434366 10 51
1054 1054000000 434380 14 51
1055 1055000000 434390 10 51
1056 1056000000 434402 12 51
1057 1057000000 434417 15 51
1058 1058000000 434431 14 51
1059 1059000000 434446 15 51
1060 1060000000 434457 11 51
1061 1061000000 434465 8 51
1062 1062000000 434478 13 51
1063 1063000000 434486 8 51
1064 1064000000 434499 13 51
1065 1065000000 434510 11 51
1066 1066000000 434529 19 51
1067 1067000000 434539 10 51
1068 1068000000 434551 12 51
1069 1069000000 434558 7 51
1070 1070000000 434569 11 51
1071 1071000000 434580 11 52
第五步，公布上边四步的结果。

独舟星海 · 发表于 2021-11-1 21:25

经过重新制作，偶数周期表43,44,45,46，四个表，最终获得正确结果。

		自动登录	找回密码
密码			注册