- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 公式模型编写问题提交 (http://222.73.7.161/bbs/list.asp?boardid=4)
---- 求把通达信顾比倒数线代码转为金字塔的 (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=167197)
-- 发布时间：2018/12/18 19:02:23
-- 求把通达信顾比倒数线代码转为金字塔的
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
此主题相关图片如下：qq截图20181218185924.jpg-- 发布时间：2018/12/18 19:12:04
--
我自己试着转换，只是把MEDIAN这个变量改个名，因为和系统函数名冲突了。
之后编译正常。但是现实的线条和通达信上的有差别。多了那个细细的蓝色线。
此主题相关图片如下：qq截图20181218191026.jpg
此主题相关图片如下：qq截图20181218191026.jpg-- 发布时间：2018/12/20 9:47:34
--
那个蓝色线肯定是某个变量输出，K图上方的变量显示颜色和它对应的指标线是一致的，你上面截图我看不到蓝色线对应的变量。你看下是哪个变量。
-- 发布时间：2018/12/21 8:19:49
--
好的，谢谢版主回复