大智慧顺势操作源码

{顺势操作(主图)}

input: n(5,0,999,1),n1(10,0,999,1),n2(20,0,999,1),n3(30,0,999,1);

A74:=MA(CLOSE,20);

A75:=(CLOSE > MA(CLOSE,5));

A76:=(MA(CLOSE,5) > MA(CLOSE,10));

A77:=(CLOSE > MA(CLOSE,10));

A78:=(MA(CLOSE,5) > MA(CLOSE,20));

A79:=(CLOSE > MA(CLOSE,20));

A710:=REF(A74,1);

A711:=(A74 > A710);

AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));

DSLX:=(CLOSE / INDEXC);

DSLX1:=MA(DSLX,5);

DSLX2:=MA(DSLX,10);

V1:=MA(VOL,5);

V2:=MA(VOL,10);T := BARSLAST(DISPSTATUS=1)+1;

T := BARSLAST(DISPSTATUS=1)+1;

HHg := HHV(H, T);

ddg := LLV(L, T);

{Hk := LL-HH; G12 := LL-HK*1.55; }

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN

IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN

IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN

IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN

IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN

IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN

{所属板块}

var100:='所属板块:';

if inblock('电力')=1 then var100:=var100+' 电力';

if inblock('电脑')=1 then var100:=var100+' 电脑';

if inblock('电器')=1 then var100:=var100+' 电器';

if inblock('电子信息')=1 then var100:=var100+' 电子信息';

if inblock('房地产')=1 then var100:=var100+' 房地产';

if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';

if inblock('钢铁')=1 then var100:=var100+' 钢铁';

if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';

if inblock('供水供气')=1 then var100:=var100+' 供水供气';

if inblock('化工')=1 then var100:=var100+' 化工';

if inblock('化纤')=1 then var100:=var100+' 化纤';

if inblock('机械')=1 then var100:=var100+' 机械';

if inblock('建材')=1 then var100:=var100+' 建材';

if inblock('交通工具')=1 then var100:=var100+' 交通工具';

if inblock('交通设施')=1 then var100:=var100+' 交通设施';

if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';

if inblock('金融')=1 then var100:=var100+' 金融';

if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';

if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';

if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';

if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';

if inblock('其他行业')=1 then var100:=var100+' 其他行业';

if inblock('汽车')=1 then var100:=var100+' 汽车';

if inblock('汽配')=1 then var100:=var100+' 汽配';

if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';

if inblock('石化')=1 then var100:=var100+' 石化';

if inblock('通信')=1 then var100:=var100+' 通信';

if inblock('外贸')=1 then var100:=var100+' 外贸';

if inblock('医药')=1 then var100:=var100+' 医药';

if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';

if inblock('有色金属')=1 then var100:=var100+' 有色金属';

if inblock('运输物流')=1 then var100:=var100+' 运输物流';

if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';

if inblock('安徽')=1 then var100:=var100+' 安徽';

if inblock('北京')=1 then var100:=var100+' 北京';

if inblock('福建')=1 then var100:=var100+' 福建';

if inblock('甘肃')=1 then var100:=var100+' 甘肃';

if inblock('广东')=1 then var100:=var100+' 广东';

if inblock('广西')=1 then var100:=var100+' 广西';

if inblock('贵州')=1 then var100:=var100+' 贵州';

if inblock('海南')=1 then var100:=var100+' 海南';

if inblock('河北')=1 then var100:=var100+' 河北';