投资者咨询：请老师帮助通达信改成文华的代码，谢谢！ (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-8-22 8:58
P1:=5;
P2:=20;
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,ཇ',0);
DRAWNUMBER(ISLASTBAR,C,C),COLORMAGENTA;
N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 ');
MAR1:=MA(CLOSE,P1);
C1:=C>=MAR1;
C2:=C<MAR1;
AA:=C1>=C2;
BB:=C2>C1;
STICKLINE(AA,C,O,3,0),COLORRED;
STICKLINE(AA,H,L,0,0),COLORRED;
STICKLINE(BB,C,O,3,0),COLOR00FF00;
STICKLINE(BB,H,L,0,0),COLOR00FF00;
STICKLINE(AA,CLOSE,OPEN,3,0),COLOR000099;
STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0000CC;
STICKLINE(AA,CLOSE,OPEN,1.5,0),COLOR0000FF;
STICKLINE(AA,CLOSE,OPEN,0.5,0),COLORCC66FF;
STICKLINE(BB,CLOSE,OPEN,3,0),COLORFF7700;
STICKLINE(BB,CLOSE,OPEN,2.2,0),COLORFF9900;
STICKLINE(BB,CLOSE,OPEN,1.5,0),COLORFFBB00;
STICKLINE(BB,CLOSE,OPEN,0.5,0),COLORCYAN;
MAA:MAR1,COLOR00FF00,LINETHICK2;
IF(MAA>=REF(MAA,1),MAA,DRAWNULL),COLORRED,LINETHICK2;
IF(MAA<REF(MAA,1),MAA,DRAWNULL),COLORFFFFFF,LINETHICK2;
MAB:MA(CLOSE,P2),COLOR00FF00,LINETHICK2;
IF(MAB>=REF(MAB,1),MAB,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MAB<REF(MAB,1),MAB,DRAWNULL),COLORGREEN,LINETHICK2;
SJ8:=STRCAT(STRCAT(N8,Y8), R8);
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
VAR6:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
VAR7:=EMA(0.667*REF(VAR6,1)+0.333* VAR6,2)*VAR3;
DRAWTEXT(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,'←低吸'),COLOR00FFFF;
DRAWTEXT(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,'←高抛'),COLOR00FFFF;
DRAWICON(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,13);
DRAWICON(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,14);
AAA:= MAA>=REF(MAA,1);{C>=MAA;}
BBB:= MAA<REF(MAA,1);{ C<MAA;}
DDD:=MAB>=REF(MAB,1);
EEE:=MAB<REF(MAB,1);
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
NN:=120;
HH:=HHV(V*TT,NN);
LL:=LLV(V,NN);
最高:=CONST(HH);
最低:=CONST(LL);
最高2:=CONST(HHV(H,NN));
最低2:=CONST(LLV(L,NN));
PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
RCC1:=最高2*0.9-(最高2-最低2)*PP;
最低3:=MIN(RCC1,最低2);
AA1:=最低3;
今日保护价:(REF(C,2)+REF(C,1)+O)/3,COLOR00FFFF,NODRAW;
顶点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,HHV(H,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,DOTLINE;
低点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,LLV(L,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,DOTLINE;
STICKLINE(CCI>=200 AND H>=顶点,O,C,3,0),COLORBLUE;
STICKLINE(CCI<=100 AND L<=低点,O,C,3,0),COLORYELLOW;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORMAGENTA;
技术人员回复
日期:2018-8-22 9:01
参考：
P1:=10;
P2:=20;
DRAWGBK1(C>0, RGB(0,10,10));
DRAWNUMBER1(ISLASTBAR,C,C,0),COLORMAGENTA;
MAR1:=MA(CLOSE,P1);
C1:=C>=MAR1;
C2:=C<MAR1;
AA:=C1>=C2;
BB:=C2>C1;
STICKLINE1(AA,C,O,3,0),COLORRED;
STICKLINE1(AA,H,L,0,0),COLORRED;
STICKLINE1(BB,C,O,3,0),COLOR00FF00;
STICKLINE1(BB,H,L,0,0),COLOR00FF00;
STICKLINE1(AA,CLOSE,OPEN,3,0),COLOR000099;
STICKLINE1(AA,CLOSE,OPEN,2.2,0),COLOR0000CC;
STICKLINE1(AA,CLOSE,OPEN,1.5,0),COLOR0000FF;
STICKLINE1(AA,CLOSE,OPEN,0.5,0),COLORCC66FF;
STICKLINE1(BB,CLOSE,OPEN,3,0),COLORFF7700;
STICKLINE1(BB,CLOSE,OPEN,2.2,0),COLORFF9900;
STICKLINE1(BB,CLOSE,OPEN,1.5,0),COLORFFBB00;
STICKLINE1(BB,CLOSE,OPEN,0.5,0),COLORCYAN;
MAA:MAR1,COLOR00FF00,LINETHICK2;
IF(MAA>=REF(MAA,1),MAA,NULL),COLORRED,LINETHICK2;
IF(MAA<REF(MAA,1),MAA,NULL),COLORFFFFFF,LINETHICK2;
MAB:MA(CLOSE,P2),COLOR00FF00,LINETHICK2;
IF(MAB>=REF(MAB,1),MAB,NULL),COLORMAGENTA,LINETHICK2;
IF(MAB<REF(MAB,1),MAB,NULL),COLORGREEN,LINETHICK2;
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=1;
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
VAR6:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
VAR7:=EMA(0.667*REF(VAR6,1)+0.333* VAR6,2)*VAR3;
DRAWTEXT(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,'←低吸'),COLOR00FFFF;
DRAWTEXT(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,'←高抛'),COLOR00FFFF;
DRAWICON(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,13);
DRAWICON(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,14);
AAA:= MAA>=REF(MAA,1);
BBB:= MAA<REF(MAA,1);
DDD:=MAB>=REF(MAB,1);
EEE:=MAB<REF(MAB,1);
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
TT:=IF(ISLASTBAR,240/FROMOPEN,1);
TYP:=(CLOSE+HIGH+LOW)/3;//求最新价，最高价和最低价三者的简单平均
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));//TYP与TYP的N周期平均值做差，该差值与TYP在N个周期内的0.015倍的平均绝对偏差值做比值
NN:=120;
HH:=HHV(V*TT,NN);
LL:=LLV(V,NN);
最高:=REFX1(HH,10000);
最低:=REFX1(LL,10000);
最高2:=REFX1(HHV(H,NN),10000);
最低2:=REFX1(LLV(L,NN),10000);
PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>REFX1(LLV(L,20),10000),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>REFX1(LLV(L,50),10000),0.7,0.6)),NODRAW;
RCC1:=最高2*0.9-(最高2-最低2)*PP;
最低3:=MIN(RCC1,最低2);
AA1:=最低3;
STICKLINE1(AAA,AA1-0.000*AA1,AA1-0.040*AA1,4,0),COLOR0000FF;
STICKLINE1(BBB,AA1-0.000*AA1,AA1-0.040*AA1,4,1),COLOR686868;
STICKLINE1(EEE,AA1-0.050*AA1,AA1-0.090*AA1,4,1),COLOR686868;
STICKLINE1(DDD,AA1-0.050*AA1,AA1-0.090*AA1,4,0),COLORFF00FF;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
今日保护价:(REF(C,2)+REF(C,1)+O)/3,COLOR00FFFF,NODRAW;
顶点:IF(CURRBARSCOUNT<=60,REFX1(IF(ISLASTBAR=1,HHV(H,BARSLAST(CURRBARSCOUNT=60)),1),10000),NULL),COLORRED,DOT;
低点:IF(CURRBARSCOUNT<=60,REFX1(IF(ISLASTBAR=1,LLV(L,BARSLAST(CURRBARSCOUNT=60)),1),10000),NULL),COLORMAGENTA,DOT;
STICKLINE1(CCI>=200 AND H>=顶点,O,C,3,0),COLORBLUE;
STICKLINE1(CCI<=100 AND L<=低点,O,C,3,0),COLORYELLOW;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORMAGENTA;
投资者咨询：请老师帮助通达信改成文华的代码，谢谢！ (文华财经WH6赢顺V6.7)
来源:文华财经 日期:2018-8-22 8:58
谢谢，老师。
