求把通达信顾比倒数线代码转为金字塔的 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

PH:=TROUGHBARS(2,P1,1);

LLL:=HHV(H,PH);

TJ1:= LLL=HIGH AND LLL<REF(LLL,1);{//=1}

TS:=SUMBARS(TJ1,2);

TJ:=PEAKBARS(2,P1,1)=1 AND TS>=PH;

DRAWICON(TJ,HIGH*1.01+0.02,2);

___警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORYELLOW;

PL:=BARSLAST(TJ);

___支撑:IF(BARSLAST(TJ1),

REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;

___压力:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;

TJ_2:=LOW>REF(REF(LOW,TS),PL);

DRAWICON(COUNT(TJ_2,PL+1)=1,HIGH*1.005,2);{//向下的箭头表示出局点};

DRAWICON(BARSLAST(TJ1),REF(LOW*0.995,BARSLAST(TJ1)),1);

DA:EMA(CLOSE,3),NODRAW;

DB:EMA(CLOSE,5) ,NODRAW;

DC:EMA(CLOSE,8) ,NODRAW;

DD:EMA(CLOSE,10) ,NODRAW;

DE:EMA(CLOSE,12) ,NODRAW;

DF:EMA(CLOSE,15) ,NODRAW;

CA:EMA(CLOSE,30) ,NODRAW;

CB:EMA(CLOSE,35) ,NODRAW;

CC:EMA(CLOSE,40) ,NODRAW;

CD:EMA(CLOSE,45) ,NODRAW;

CE:EMA(CLOSE,50) ,NODRAW;

CF:EMA(CLOSE,60) ,NODRAW;

CDYX:=CA>CB AND CB>CC AND CC>CD AND CD>CE AND CE>CF;

CKYX:=CA<CB AND CB<CC AND CC<CD AND CD<CE AND CE<CF;

DDYX:=DA>DB AND DB>DC AND DC>DD AND DD>DE AND DE>DF;

DKYX:=CA<CB AND DB<DC AND DC<DD AND DD<DE AND DE<DF;

IF(CDYX,CA,DRAWNULL),NODRAW;

IF(CDYX,CB,DRAWNULL),NODRAW;

IF(CDYX,CC,DRAWNULL),NODRAW;

IF(CDYX,CD,DRAWNULL),NODRAW;

IF(CDYX,CE,DRAWNULL),NODRAW;

IF(CDYX,CF,DRAWNULL),NODRAW;

IF(CKYX,CA,DRAWNULL),NODRAW;

IF(CKYX,CB,DRAWNULL),NODRAW;

IF(CKYX,CC,DRAWNULL),NODRAW;

IF(CKYX,CD,DRAWNULL),NODRAW;

IF(CKYX,CE,DRAWNULL),NODRAW;

IF(CKYX,CF,DRAWNULL),NODRAW;

IF(DDYX,DA,DRAWNULL),NODRAW;

IF(DDYX,DB,DRAWNULL),NODRAW;

IF(DDYX,DC,DRAWNULL),NODRAW;

IF(DDYX,DD,DRAWNULL),NODRAW;

IF(DDYX,DE,DRAWNULL),NODRAW;

IF(DDYX,DF,DRAWNULL),NODRAW;

IF(DKYX,DA,DRAWNULL),NODRAW;

IF(DKYX,DB,DRAWNULL),NODRAW;

IF(DKYX,DC,DRAWNULL),NODRAW;

IF(DKYX,DD,DRAWNULL),NODRAW;

IF(DKYX,DE,DRAWNULL),NODRAW;

IF(DKYX,DF,DRAWNULL),NODRAW;

KO:=CLOSE;

KC:=REF(CLOSE,1);

STICKLINE(KO<=KC ,CLOSE ,OPEN,3,0 ),NODRAW;

STICKLINE(KO<=KC ,CLOSE ,OPEN,2,0 ),NODRAW;

STICKLINE(KO<=KC,CLOSE ,OPEN,1,0 ),NODRAW;

STICKLINE(KO<=KC,CLOSE ,OPEN,0.5,0 ),NODRAW;

STICKLINE(KO>KC,CLOSE,OPEN,3,0 ),NODRAW;

STICKLINE(KO>KC,CLOSE,OPEN,2,0 ),NODRAW;

STICKLINE(KO>KC,CLOSE,OPEN,1,0 ),NODRAW;

STICKLINE(KO>KC,CLOSE,OPEN,0.5 ,0 ),NODRAW;

STICKLINE(KO>KC,OPEN,LOW,0,0 ),COLORRED;

STICKLINE(KO>KC,CLOSE,HIGH,0 ,0 ),COLORRED;

STICKLINE(KO<=KC,CLOSE,LOW,0 ,0 ),NODRAW;

{ART}

N:=10;

M:=1.5;

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));

ATR:=MA(TR1,10);

MEDIAN:= (HIGH + LOW) / 2;

X:=20;

{MID :=MA(C,X);

UPPER: MID + 2*STD(CLOSE,X),COLORGRAY;

LOWER: MID - 2*STD(CLOSE,X),COLORGRAY;}

HH:=MEDIAN + ATR * M;

LL:=MEDIAN - ATR * M;

W:=BARSLAST((HH>=HHV(HH,N)))-BARSLAST((LLV(LL,N)>=LL));

BBX:=LLV(HH,BARSLAST(W<0));

SSX:=HHV(LL,BARSLAST(W>0));

WW:=IF(W>0,BBX,IF(W<0,SSX,C));

WWW:IF(W<0,WW,DRAWNULL),COLORMAGENTA,LINETHICK2;

WWW1:IF(W>0,WW,DRAWNULL),COLORBLUE,LINETHICK2;

STICKLINE(0>W,H,L,0,0),COLORRED;

STICKLINE(0>W AND C>O,O,C,3,0),NODRAW;

STICKLINE(0>W AND C<O,O,C,3,0),NODRAW;

STICKLINE(0<W,H,L,0,0),NODRAW;

STICKLINE(0<W AND C>O,O,C,3,0),NODRAW;

STICKLINE(0<W AND C<O,O,C,3,0),NODRAW;

参数p1的最小值是2，最大值是100,缺省为5

在通达信中的应用效果图片在附件里。
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20181218185924.jpg

主题：求把通达信顾比倒数线代码转为金字塔的