求数据分类程序 - VFP论坛

得分:0

以下是引用千分之在2015-5-18 14:37:26的发言：

第一列  第二列  第三列  类型
0.77    0.16    0.07
0.7     0.2     0.1
0.64    0.24    0.12
0.57    0.25    0.18
0.51    0.27    0.22
0.49    0.28    0.23
0.25    0.27    0.48
0.26    0.28    0.46
0.44    0.29    0.27
0.44    0.28    0.28
0.4     0.29    0.31
0.39    0.29    0.32
0.39    0.29    0.32
0.37    0.29    0.34
按六种情况，在类型栏里把他分类。
（谢谢大侠们，）

不只六种情况吧？

第 12 楼

得分:0

反正只有六种情况就按最笨的办法处理呗

DO IT YOURSELF !

第 13 楼

得分:0

if a>b and b>c
if a>c and c>b
if b>a and a>c
if b>c and c>a
if c>a and a>b
if c>b and b>a

DO IT YOURSELF !

第 14 楼

得分:0

回复 13楼 wp231957

看来楼主是这个意思,
是三列数据大中小的6总不同组合.
A  第一列>第二列>第三列
B  第二列>第三列>第一列
C  第三列>第一列>第二列
D  第一列>第三列>第二列
*
*
*

[ 本帖最后由 muyubo 于 2015-5-18 19:35 编辑 ]

第 15 楼

得分:0

求大侠赐教

第 16 楼

得分:0

回复 14楼 muyubo

感谢！
如何把他们分别，找出来请赐教。

第 17 楼

得分:0

回复 11楼吹水佬

排除相等的情况，只有六种

第 18 楼

得分:0

就用WP的if a>b and b>c
if a>c and c>b
if b>a and a>c
if b>c and c>a
if c>a and a>b
if c>b and b>a

程序代码：

SCAN
if 第一列>第二列 and 第二列>第三列
  repl 第四列 with "A"
endif
if 第一列>第三列 and 第三列>第二列
  repl 第四列 with "B"
endif
if 第二列>第一列 and 第一列>第三列
  repl 第四列 with "C"
endif
if 第二列>第三列 and 第三列>第一列
  repl 第四列 with "D"
endif
if 第三列>第一列 and 第一列>第二列
  repl 第四列 with "E"
endif
if 第三列>第二列 and 第二列>第一列
  repl 第四列 with "F"
endif
ENDSCAN

[ 本帖最后由 muyubo 于 2015-5-18 20:07 编辑 ]

第 19 楼

得分:0

变通一下
假设
CREATE CURSOR 表1 (第一列 N(4,2), 第二列 N(4,2), 第三列 N(4,2), 类型 C(1), 大中小 C(3))

程序代码：

CREATE CURSOR 表1 (第一列 N(4,2), 第二列 N(4,2), 第三列 N(4,2), 类型 C(1), 大中小 C(3))
INSERT INTO 表1 VALUES (0.77,    0.16,    0.07, "", "")
INSERT INTO 表1 VALUES (0.7,     0.2,     0.1,  "", "")
INSERT INTO 表1 VALUES (0.64,    0.24,    0.12, "", "")
INSERT INTO 表1 VALUES (0.57,    0.25,    0.18, "", "")
INSERT INTO 表1 VALUES (0.51,    0.27,    0.22, "", "")
INSERT INTO 表1 VALUES (0.49,    0.28,    0.23, "", "")
INSERT INTO 表1 VALUES (0.25,    0.27,    0.48, "", "")
INSERT INTO 表1 VALUES (0.26,    0.28,    0.46, "", "")
INSERT INTO 表1 VALUES (0.44,    0.29,    0.27, "", "")
INSERT INTO 表1 VALUES (0.44,    0.28,    0.28, "", "")
INSERT INTO 表1 VALUES (0.4,     0.29,    0.31, "", "")
INSERT INTO 表1 VALUES (0.39,    0.29,    0.32, "", "")
INSERT INTO 表1 VALUES (0.39,    0.29,    0.32, "", "")
INSERT INTO 表1 VALUES (0.37,    0.29,    0.34, "", "")

ALINES(a1, "321,312,231,213,123,132", ",")
ALINES(a2, "A,B,C,D,E,F", ",")
SCAN 
    ss = "222"
    SCATTER FIELDS 第一列, 第二列, 第三列 TO a列
    ai = ASCAN(a列, MAX(a列[1], a列[2], a列[3]))
    ss = STUFF(ss, ai, 1, "3")
    ai = ASCAN(a列, MIN(a列[1], a列[2], a列[3]))
    ss = STUFF(ss, ai, 1, "1")
    REPLACE 类型 WITH a2[ASCAN(a1, ss)], 大中小 WITH ss
ENDSCAN

GO top
BROWSE

第 20 楼

得分:0

回复 19楼吹水佬

哇噻,一道小题用了那么多函数,学习学习.