欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 指标怎么更改金字塔能用的 求高手

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有3562人关注过本帖树形打印复制链接

主题：指标怎么更改金字塔能用的 求高手
帅哥哟，离线，有人找我吗？
chengjun1201
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：25 积分：46 威望：0 精华：0 注册：2013/2/24 18:14:00 		  发帖心情 Post By：2015/7/9 14:54:12    Post IP：183.198.27.26[显示全部帖子]


当前日期:=date;
INPUT:最近天(30,1,360);当前月:=FRACPART(ROUND(当前日期/100)/100)*100;
月:=MONTH;日:=DAY;
N:=if(sysparam(1)=datacount,最近天,datacount-sysparam(1)+1);
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
VN:=N;
IF VN>DATACOUNT THEN
VN=DATACOUNT+1;
FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN//DATACOUNT-VN+1  从右向左数 VN+1个数
HH[I]:=HH[DATACOUNT];//光标右面的HHV 与LLV
LL[I]:=LL[DATACOUNT];
END;
SETLBOUND(hh,DATACOUNT-VN+1);//TMP:=//只能在 从右向左数 VN+1个数的范围内 画出 hh
SETLBOUND(ll,DATACOUNT-VN+1);//TMP:=
KKH:=BARSLAST(H=HH);//当新高=HHV时候，到今日的距离周期
KKL:=BARSLAST(L=LL);
N低日:=STRTONUM(NUMTOSTR(REF(DATE,KKL),0));//创新高前一天的日期
N高日:=STRTONUM(NUMTOSTR(REF(DATE,KKH),0));

多空:=IF(N低日>N高日,2,1),LINETHICK0;//N低日>N高日  创新低 就是2 
DATE1:=IF(多空=1,N低日,N高日);
LLOW:=ref(LOW,BARSLAST(DATE1=DATE));
H1:=STRTONUM(NUMTOSTR(hh,2));
L1:=STRTONUM(NUMTOSTR(LLOW,2));
VERTLINE(DATE=DATE1),COLORFFAAAA,LINETHICK1;
{DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n \n\n测\n \n点'),COLORFFFFFF;}
IF 多空=1 THEN BEGIN
PARTLINE(DATE>N低日,L1),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.042),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.083),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.125),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.167),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.208),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.25),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.292),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.33),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.375),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.417),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.458),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.5),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.542),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.583),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.625),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.667),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.708),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.75),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.792),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.833),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.875),COLORMAGENTA;
PARTLINE(DATE>N低日,L1*1.917),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*1.958),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N低日,L1*2),COLORMAGENTA;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+0.002,NUMTOSTR(L1,2)+' 0 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.042+0.002,NUMTOSTR(L1*1.042,2)+' 15 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.083+0.002,NUMTOSTR(L1*1.083,2)+' 30 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.125+0.002,NUMTOSTR(L1*1.125,2)+' 45 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.167+0.002,NUMTOSTR(L1*1.167,2)+' 60 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.208+0.002,NUMTOSTR(L1*1.208,2)+' 75 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.25+0.002,NUMTOSTR(L1*1.25,2)+' 90 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.292+0.002,NUMTOSTR(L1*1.292,2)+' 105 '),COLORWHITE,ALIGN2; 
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.33+0.002,NUMTOSTR(L1*1.33,2)+' 120 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.375+0.002,NUMTOSTR(L1*1.375,2)+' 135 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.417+0.002,NUMTOSTR(L1*1.417,2)+' 150 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.458+0.002,NUMTOSTR(L1*1.458,2)+' 165 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.5+0.002,NUMTOSTR(L1*1.5,2)+' 180 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.542+0.002,NUMTOSTR(L1*1.542,2)+' 195 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.583+0.002,NUMTOSTR(L1*1.583,2)+' 210 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.625+0.002,NUMTOSTR(L1*1.625,2)+' 225 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.667+0.002,NUMTOSTR(L1*1.667,2)+' 240 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.708+0.002,NUMTOSTR(L1*1.708,2)+' 255 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.75+0.002,NUMTOSTR(L1*1.75,2)+' 270 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.792+0.002,NUMTOSTR(L1*1.792,2)+' 285 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.833+0.002,NUMTOSTR(L1*1.833,2)+' 290 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.875+0.002,NUMTOSTR(L1*1.875,2)+' 315 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.917+0.002,NUMTOSTR(L1*1.917,2)+' 330 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*1.958+0.002,NUMTOSTR(L1*1.958,2)+' 345 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1*2+0.002,NUMTOSTR(L1*2,2)+' 360 '),COLORWHITE,ALIGN2;
END;

ELSE BEGIN
PARTLINE(DATE>N高日,H1),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.042),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.083),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.125),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.167),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.208),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.25),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.292),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.33),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.375),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.417),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.458),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.5),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.542),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.583),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.625),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.667),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.708),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.75),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.792),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.833),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.875),COLORMAGENTA;
PARTLINE(DATE>N高日,H1-H1*0.917),COLORFFFF99,LINEDOT;
PARTLINE(DATE>N高日,H1-H1*0.958),COLORMAGENTA;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1+0.002,NUMTOSTR(H1-H1*0.042,2)+' 0 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.042+0.002,NUMTOSTR(H1-H1*0.042,2)+' 15 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.083+0.002,NUMTOSTR(H1-H1*0.083,2)+' 30 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.125+0.002,NUMTOSTR(H1-H1*0.125,2)+' 45 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.167+0.002,NUMTOSTR(H1-H1*0.167,2)+' 60 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.208+0.002,NUMTOSTR(H1-H1*0.208,2)+' 75 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.25+0.002,NUMTOSTR(H1-H1*0.25,2)+' 90 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.292+0.002,NUMTOSTR(H1-H1*0.292,2)+' 105 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.33+0.002,NUMTOSTR(H1-H1*0.33,2)+' 120 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.375+0.002,NUMTOSTR(H1-H1*0.375,2)+' 135 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.417+0.002,NUMTOSTR(H1-H1*0.417,2)+' 150 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.458+0.002,NUMTOSTR(H1-H1*0.458,2)+' 165 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.5+0.002,NUMTOSTR(H1-H1*0.5,2)+' 180 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.542+0.002,NUMTOSTR(H1-H1*0.542,2)+' 195 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.583+0.002,NUMTOSTR(H1-H1*0.583,2)+' 210 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.625+0.002,NUMTOSTR(H1-H1*0.625,2)+' 225 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.667+0.002,NUMTOSTR(H1-H1*0.667,2)+' 240 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.708+0.002,NUMTOSTR(H1-H1*0.708,2)+' 255 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.75+0.002,NUMTOSTR(H1-H1*0.75,2)+' 270 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.792+0.002,NUMTOSTR(H1-H1*0.792,2)+' 285 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.833+0.002,NUMTOSTR(H1-H1*0.833,2)+' 300 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.875+0.002,NUMTOSTR(H1-H1*0.875,2)+' 315 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.917+0.002,NUMTOSTR(H1-H1*0.917,2)+' 330 '),COLORWHITE,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-H1*0.958+0.002,NUMTOSTR(H1-H1*0.958,2)+' 345 '),COLORWHITE,ALIGN2;
END;

//http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=48454&page=0&move=next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.05078 秒, 7 次数据查询