|
编程思路破译 填充背景 N赋值:13 DO赋值:150612 DA赋值:150826 DB赋值:151117 DC赋值:160108 输出高:如果最高价>最高价N%之字转向的前1个波峰值,返回N日内最高价的最高值,否则返回最高价N%之字转向的前1个波峰值线宽为2,画蓝色 输出低:如果最低价<最低价N%之字转向的前1个波谷值,返回N日内最低价的最低值,否则返回最低价N%之字转向的前1个波谷值线宽为2,画洋红色 输出F0191:(高-低)*0.191+低,DOTLINE,画洋红色 输出F0382:(高-低)*0.382+低,DOTLINE,画青色 输出F0500:(高-低)*0.500+低,DOTLINE,画白色 输出F0618:(高-低)*0.618+低,DOTLINE,画青色 输出F0809:(高-低)*0.809+低,DOTLINE,画黄色 输出趋势下:当满足条件最高价=N日内最高价的最高值时,在最高价位置画直线起点，当满足条件最低价=N日内最低价的最低值时,在最低价位置画直线终点,0表示是否延长.线宽为2,画绿色 SX赋值:1日前的趋势下<趋势下 SS赋值:当满足条件SX时,在趋势下位置画直线起点，当满足条件1日前的SX时,在1日前的趋势下位置画直线终点,1表示是否延长. 画带状线 输出趋势上:当满足条件最低价=N日内最低价的最低值时,在最低价位置画直线起点，当满足条件最高价=N日内最高价的最高值时,在最高价位置画直线终点,0表示是否延长.线宽为2,画洋红色 JX赋值:1日前的趋势上>趋势上 JJ赋值:当满足条件JX时,在趋势上位置画直线起点，当满足条件1日前的JX时,在1日前的趋势上位置画直线终点,1表示是否延长. 画带状线 K线 超B赋值:成交额分档/10000.0 大B赋值:成交额分档/10000.0 中B赋值:成交额分档/10000.0 小B赋值:成交额分档/10000.0 超S赋值:成交额分档/10000.0 大S赋值:成交额分档/10000.0 中S赋值:成交额分档/10000.0 小S赋值:成交额分档/10000.0 输出大资金流向:(超B+大B)-(超S+大S)画黄色,NODRAW K线 当满足条件大资金流向<0时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFF3300 当满足条件大资金流向<0时,在开盘价和收盘价位置之间画柱状线,宽度为1.2,0不为0则画空心柱.,COLORFF6600 当满足条件大资金流向<0时,在开盘价和收盘价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLORFF9900 当满足条件大资金流向>0时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0066FF 当满足条件大资金流向>0时,在开盘价和收盘价位置之间画柱状线,宽度为1.2,0不为0则画空心柱.,COLOR099FFF 当满足条件大资金流向>0时,在开盘价和收盘价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FFFF TL赋值:1000000+DA TH赋值:1000000+DB TC赋值:1000000+DC TO赋值:1000000+DO AL赋值:如果TL日收盘价>TH日收盘价,返回TL日最高价,否则返回TL日最低价 BH赋值:如果TL日收盘价>TH日收盘价,返回TH日最低价,否则返回TH日最高价 CZF赋值:如果TL日收盘价>TH日收盘价,返回TC日最高价,否则返回TC日最低价 DJB赋值:如果TL日收盘价>TH日收盘价,返回TO日最低价,否则返回TO日最高价 OP赋值:BH-AL+CZF COP赋值:0.618*(BH-AL)+CZF XOP赋值:如果(1.618*(BH-AL)+CZF)<0,返回OP,否则返回1.618*(BH-AL)+CZF TODAY赋值:日期 当满足条件日期=TC时,在CZF和XOP位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画黄色 当满足条件日期=TC时,在COP位置画直线起点，当满足条件日期=TODAY时,在COP位置画直线终点,1表示是否延长.,DOTLINE,画黄色 当满足条件日期=TC时,在OP位置画直线起点，当满足条件日期=TODAY时,在OP位置画直线终点,1表示是否延长.,DOTLINE,画黄色 当满足条件日期=TC时,在XOP位置画直线起点，当满足条件日期=TODAY时,在XOP位置画直线终点,1表示是否延长.,DOTLINE,画黄色 当满足条件日期=TC时,在COP*1.003位置书写文字,画黄色 当满足条件日期=TC时,在OP*1.003位置书写文字,画黄色 当满足条件日期=TC时,在XOP*1.003位置书写文字,画黄色 当满足条件日期=TC时,在COP位置书写数字,画黄色 当满足条件日期=TC时,在OP位置书写数字,画黄色 当满足条件日期=TC时,在XOP位置书写数字,画黄色 当满足条件日期=TO时,在DJB位置画直线起点，当满足条件日期=TL时,在AL位置画直线终点,0表示是否延长.CIRCLEDOT,画绿色 当满足条件日期=TL时,在AL位置画直线起点，当满足条件日期=TH时,在BH位置画直线终点,0表示是否延长.线宽为2,画黄色 当满足条件日期=TH时,在BH位置画直线起点，当满足条件日期=TC时,在CZF位置画直线终点,0表示是否延长.线宽为2,画青色 向上赋值:最低价N%之字转向的前1个波谷位置 向下赋值:最高价N%之字转向的前1个波峰位置 涨％赋值:如果向上<向下,返回(收盘价/低-1)*100,否则返回向下日前的(收盘价/低-1)*100 跌％赋值:如果向下<向上,返回(收盘价/高-1)*100,否则返回向上日前的(收盘价/高-1)*100 当满足条件向上=0时,在低*0.99位置书写数字,画绿色 当满足条件向下=0时,在高*1.02位置书写数字,画红色 ZHSJ赋值:如果向下<向上,返回若是否最后一个周期则将最近向下周期置为1,否则返回如果向上<向下,返回若是否最后一个周期则将最近向上周期置为1,否则返回0 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在高*1.004位置书写文字,画绿色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在低*1.004位置书写文字,画红色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0191*1.003位置书写文字,画黄色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0382*1.003位置书写文字,画青色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0500*1.003位置书写文字,画白色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0618*1.003位置书写文字,画绿色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0809*1.003位置书写文字,画红色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在高位置书写数字画绿色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0191位置书写数字画黄色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0382位置书写数字画青色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0500位置书写数字画绿色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0618位置书写数字画青色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在F0809位置书写数字画洋红色 当满足条件向下<向上ANDCROSS(ZHSJ,0.1)时,在低位置书写数字画红色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在高*1.003位置书写文字,画绿色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在低*1.003位置书写文字,画红色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0191*1.003位置书写文字,画红色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0382*1.003位置书写文字,画绿色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0500*1.003位置书写文字,画白色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0618*1.003位置书写文字,画青色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0809*1.003位置书写文字,画黄色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在高位置书写数字画绿色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0809位置书写数字画黄色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0618位置书写数字画青色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0500位置书写数字画绿色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0382位置书写数字画青色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在F0191位置书写数字画洋红色 当满足条件向下>向上ANDCROSS(ZHSJ,0.1)时,在低位置书写数字画红色 程序源码 DRAWGBK(O>C,RGB(0,50,50),RGB(66,0,0),0,'01',0); N:=13;DO:=150612;DA:=150826;DB:=151117;DC:=160108; {黄金分割} 高:IF (HIGH>PEAK(1,N,1),HHV(HIGH,N),PEAK(1,N,1))LINETHICK2,COLORBLUE;{最高价} 低:IF (LOW<TROUGH(2,N,1),LLV(LOW,N),TROUGH(2,N,1))LINETHICK2,COLORMAGENTA;{最低价} F0191:(高-低)*0.191+低,DOTLINE,COLORMAGENTA; F0382:(高-低)*0.382+低,DOTLINE,COLORCYAN; F0500:(高-低)*0.500+低,DOTLINE,COLORWHITE; F0618:(高-低)*0.618+低,DOTLINE,COLORCYAN; F0809:(高-低)*0.809+低,DOTLINE,COLORYELLOW; {三角背景} 趋势下:DRAWLINE(H=HHV(H,N),H,L=LLV(L,N),L,0)LINETHICK2,COLORGREEN; SX:=REF(趋势下,1)<趋势下; SS:=DRAWLINE(SX,趋势下,REF(SX,1),REF(趋势下,1),1); DRAWBAND(SS,RGB(0,0,160),趋势下,RGB(0,0,0)); 趋势上:DRAWLINE(L=LLV(L,N),L,H=HHV(H,N),H,0)LINETHICK2,COLORMAGENTA; JX:=REF(趋势上,1)>趋势上; JJ:=DRAWLINE(JX,趋势上,REF(JX,1),REF(趋势上,1),1); DRAWBAND(JJ,RGB(0,0,0),趋势上,RGB(180,0,180)); DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ; {大资金流向} 超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=L2_AMO(0,3)/10000.0; 大S:=L2_AMO(1,3)/10000.0; 中S:=L2_AMO(2,3)/10000.0; 小S:=L2_AMO(3,3)/10000.0; 大资金流向:(超B+大B)-(超S+大S)COLORYELLOW,NODRAW; DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ; STICKLINE(大资金流向<0,O,C,2,0),COLORFF3300; STICKLINE(大资金流向<0,O,C,1.2,0),COLORFF6600; STICKLINE(大资金流向<0,O,C,0.5,0),COLORFF9900; STICKLINE(大资金流向>0,O,C,2,0),COLOR0066FF; STICKLINE(大资金流向>0,O,C,1.2,0),COLOR099FFF; STICKLINE(大资金流向>0,O,C,0.5,0),COLOR00FFFF; TL:=1000000+DA; TH:=1000000+DB; TC:=1000000+DC; TO:=1000000+DO; AL:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL)); BH:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH)); CZF:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC)); DJB:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO)); OP:=BH-AL+CZF; COP:=0.618*(BH-AL)+CZF; XOP:=IF((1.618*(BH-AL)+CZF)<0,OP,1.618*(BH-AL)+CZF); TODAY:=DATE; STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORYELLOW; DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1),DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1),DOTLINE,COLORYELLOW; DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1),DOTLINE,COLORYELLOW; DRAWTEXT(DATE=TC,COP*1.003,'(COP=0.618)'),COLORYELLOW; DRAWTEXT(DATE=TC,OP*1.003,'(OP=1.000)'),COLORYELLOW; DRAWTEXT(DATE=TC,XOP*1.003,'(XOP=1.618)'),COLORYELLOW; DRAWNUMBER(DATE=TC,COP,COP),COLORYELLOW; DRAWNUMBER(DATE=TC,OP,OP),COLORYELLOW; DRAWNUMBER(DATE=TC,XOP,XOP),COLORYELLOW; DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0)CIRCLEDOT,COLORGREEN; DRAWLINE(DATE=TL,AL,DATE=TH,BH,0)LINETHICK2,COLORYELLOW; DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0)LINETHICK2,COLORCYAN; {区间涨跌} 向上:=TROUGHBARS(2,N,1); 向下:=PEAKBARS(1,N,1); 涨％:=IF(向上<向下,(C/低-1)*100,REF((C/低-1)*100,向下)); 跌％:=IF(向下<向上,(C/高-1)*100,REF((C/高-1)*100,向上)); DRAWNUMBER(向上=0,低*0.99,ABS(高-低)),COLORGREEN; DRAWNUMBER(向下=0,高*1.02,ABS(高-低)),COLORRED; ZHSJ:=IF(向下<向上,BACKSET(ISLASTBAR,向下),IF(向上<向下,BACKSET(ISLASTBAR,向上),0)); DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),高*1.004,'本 高'),COLORGREEN; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),低*1.004,'本 低'),COLORRED; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'80.9%'),COLORYELLOW; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'61.8%'),COLORCYAN; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'38.2%'),COLORGREEN; DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'19.1%'),COLORRED; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORYELLOW; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORMAGENTA; DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),高*1.003,'前 高'),COLORGREEN; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),低*1.003,'前 低'),COLORRED; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'19.1%'),COLORRED; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'38.2%'),COLORGREEN; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'61.8%'),COLORCYAN; DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'80.9%'),COLORYELLOW; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORYELLOW; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORMAGENTA; DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED; 该公式包含未来函数:PEAK 注： 馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。 发文不易，如获益，欢迎赞赏，赞赏必复！ |
|
|
来自： 追梦文库 > 《主升浪起爆点拉升》
