查看完整版本: 古道西风&盘丝大仙[源码]

古道西风&盘丝大仙[源码]

飞狐公式欣赏为主

古道西风(主图)

DRAWGBK(CLOSE>0, COLORRGB(1,8888,8888), COLORRGB(1,3333,6666),3);


a1:=指数平滑移动平均((指数平滑移动平均(收盘价,1)+指数平滑移动平均(收盘价,3)+指数平滑移动平均(收盘价,5))/3,3);
a2:=指数平滑移动平均((指数平滑移动平均(收盘价,3)+指数平滑移动平均(收盘价,5)+指数平滑移动平均( 收盘价,7))/3,3);
a3:=指数平滑移动平均((指数平滑移动平均(收盘价,5)+指数平滑移动平均(收盘价,7)+指数平滑移动平均( 收盘价,9))/3,3);
a4:=指数平滑移动平均((指数平滑移动平均(收盘价,7)+指数平滑移动平均(收盘价,9)+指数平滑移动平均( 收盘价,11))/3,3);
a5:=指数平滑移动平均((指数平滑移动平均(收盘价,9)+指数平滑移动平均(收盘价,11)+指数平滑移动平均( 收盘价,13))/3,3);
a6:=指数平滑移动平均((指数平滑移动平均(收盘价,11)+指数平滑移动平均(收盘价,13)+指数平滑移动平均( 收盘价,15))/3,3);
a7:=指数平滑移动平均((指数平滑移动平均(收盘价,13)+指数平滑移动平均(收盘价,15)+指数平滑移动平均( 收盘价,17))/3,3);
a8:=指数平滑移动平均((指数平滑移动平均(收盘价,15)+指数平滑移动平均(收盘价,17)+指数平滑移动平均( 收盘价,19))/3,3);
a9:=指数平滑移动平均((指数平滑移动平均(收盘价,17)+指数平滑移动平均(收盘价,19)+指数平滑移动平均( 收盘价,21))/3,3);
a10:=指数平滑移动平均((指数平滑移动平均(收盘价,19)+指数平滑移动平均(收盘价,21)+指数平滑移动平均( 收盘价,23))/3,3);
a11:=指数平滑移动平均((指数平滑移动平均(收盘价,21)+指数平滑移动平均(收盘价,23)+指数平滑移动平均( 收盘价,25))/3,3);
A:=指数平滑移动平均((指数平滑移动平均(收盘价,29)+指数平滑移动平均(收盘价,31)+指数平滑移动平均(收盘价,33))/3,3),LINETHICK0;
a15:=a-(a1-a*0.997),colorFF1010;
a16:=a-(a2-a),colorff2010;
a17:=a-(a3-a),colorff3010;
a18:=a-(a4-a),colorff4010;
a19:=a-(a5-a),colorff5010;
a20:=a-(a6-a),colorff6010;
a21:=a-(a7-a),colorff7010;
a22:=a-(a8-a),colorff8010;
a23:=a-(a9-a),colorff9010;
a24:=a-(a10-a),colorffc010;
a25:=a-(a11-a*0.997),colorffe010;
画区间彩带(A9>A,A9,A),color436873;
画区间彩带(A9<A,A9,A),color436873;
画区间彩带(A23<A,A,A23),color4D635A;
画区间彩带(A23>A,A,A23),color4D635A;
画分段线(1,a15),colorFF1010;画分段线(1,a16),colorFF2010;
画分段线(1,a17),colorFF3010;画分段线(1,a18),colorFF4010;
画分段线(1,a19),colorFF5010;画分段线(1,a20),colorFF6010;
画分段线(1,a21),colorFF7010;画分段线(1,a22),colorFF8010;
画分段线(1,a23),colorFF9010;画分段线(1,a24),colorFFc010;
画分段线(1,a25),colorFFe010;
画分段线(1,a1),color1010FF;画分段线(1,a2),color1020FF;
画分段线(1,a3),color1030FF;画分段线(1,a4),color1040FF;
画分段线(1,a5),color1050FF;画分段线(1,a6),color1060FF;
画分段线(1,a7),color1070FF;画分段线(1,a8),color1080FF;
画分段线(1,a9),color1090FF;画分段线(1,a10),color10c0FF;
画分段线(1,a11),color10e0FF;
a:=(3*收盘价+最低价+开盘价+最高价)/6;
中轴:  简单移动平均(收盘价,21),colorffcc33,;
压力:中轴 + 2*估算标准差(收盘价,21),COLORRED,linethick2;
支撑: 中轴 - 2*估算标准差(收盘价,21),COLORRED,linethick2;
画图标(收盘价>=简单移动平均(收盘价,20),简单移动平均(收盘价,20),10);
画图标(收盘价<简单移动平均(收盘价,20),简单移动平均(收盘价,20),11);
FD:=(最高价-最低价)/3;{分段}
OPEN1:=开盘价>FD*2+最低价;
OPEN3:=开盘价<FD+最低价;
OPEN2:=求逻辑非(OPEN1 OR OPEN3);
CLOSE1:=收盘价>FD*2+最低价;
CLOSE3:=收盘价<FD+最低价;
CLOSE2:=求逻辑非(CLOSE1 OR CLOSE3);
DFZD:=CLOSE1 OR (OPEN3 AND CLOSE2);
WQS1:=OPEN2 AND CLOSE2;
KFZD:=求逻辑非(DFZD OR WQS1);
ZD:=(最高价+最低价)/2;
QSXS:=ZD>向前引用(最高价,1);
QSXX:=ZD<向前引用(最低价,1);
WQS2:=求逻辑非(QSXS OR QSXX);
ZTDL:=成交量>向前引用(成交量,1)*1.1 OR 成交额>向前引用(成交额,1)*1.5;
FTDL:=成交量<向前引用(成交量,1)*0.7 OR 成交额<向前引用(成交额,1)*0.5;
ZTDL2:=ZTDL AND FTDL<1;
FTDL2:=FTDL AND ZTDL<1;
MFI1:=(最高价-最低价)/(成交量/10000);{用VOL计算MFI}
MFI2:=(最高价-最低价)/(成交额/1000000);{用AMOUNT计算MFI}
ZMFI1:=MFI1>向前引用(MFI1,1);
ZMFI2:=MFI2>向前引用(MFI2,1);
ZMFI:=ZMFI1 OR ZMFI2;
FMFI:=求逻辑非(ZMFI);
LD:=ZTDL2 AND ZMFI;
ST:=FTDL2 AND FMFI;
WZ:=FTDL2 AND ZMFI;
QF:=ZTDL2 AND FMFI;
A1:=向前引用(最高价,2);
A2:=信号过滤(最高值(最高价,5)=A1,2);{向上分形成立}
A3:=向前赋值(A2,3);
A4:=条件函数(信号过滤(A3,2),最高价,0);
A5:=求和(A4,3);
C1:=向前引用(最低价,2);
C2:=信号过滤(最低值(最低价,5)=C1,2);
C3:=向前赋值(C2,3);
C4:=条件函数(信号过滤(C3,2),最低价,0);
C5:=求和(C4,3);
XHWZ1:=最高价*1.003;
XHWZ2:=最低价*0.998;
XHWZ3:=条件函数(QSXX,XHWZ2,条件函数(QSXS,XHWZ1,条件函数(DFZD,XHWZ1,XHWZ2)));
XHWZ4:=条件函数(ZD<向前引用(ZD,1),XHWZ2,XHWZ1);
S1:=DFZD AND QSXS ;
S2:=KFZD AND QSXX ;
S3:=DFZD AND QSXX;
S4:=KFZD AND QSXS;
S5:=DFZD AND WQS2;
S6:=KFZD AND WQS2;
S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
画柱线(1,最低价,最高价,0.5,0 ),COLOR00FFFF;
画柱线(S2 ,收盘价 ,开盘价,7,0 ),COLORFF2020;
画柱线(S1,收盘价,开盘价,7 ,0 ),COLOR2020FF;
画柱线(S3,收盘价,开盘价,7,0),COLORYELLOW;
画柱线(S4,收盘价,开盘价,7,0),COLORCYAN;
画柱线(S5,收盘价,开盘价,7,0),COLORMAGENTA;
画柱线(S6,收盘价,开盘价,7,0),COLORGREEN;
画柱线(S7,收盘价,开盘价,7,0),COLORGRAY;
画柱线(1,收盘价,开盘价,2,0),COLORWHITE;
画柱线(LD,XHWZ3,XHWZ3*0.999,3,0),COLORGREEN;
画柱线(ST,XHWZ3,XHWZ3*0.999,3,0),COLORMAGENTA;
画柱线(WZ,XHWZ3,XHWZ3*0.999,3,0),COLORYELLOW;
画柱线(QF,XHWZ3,XHWZ3*0.999,3,0),COLORRED;
画柱线(A5>0.1,A5,A5*1.0001,6,0);
画柱线(C5>0.1,C5,C5*1.0001,6,0);

[color=Teal][align=right] 本贴由 yngs 于 2005-8-27 14:41 最后编辑 [/align][/color]

:smokin:

盘丝大仙(主图)

DRAWGBK(CLOSE>0, COLORRGB(1,8888,8888), COLORRGB(1,3333,6666),3);
v2:=简单移动平均(最高价,3)*1.03;
v3:=简单移动平均(最低价,3)*0.97;
{v6}小通道上:傅立叶变换(v2,30);
{v7}小通道下:傅立叶变换(v3,30);
A2:=小通道上-向前引用(小通道上,1);
A3:=小通道下-向前引用(小通道下,1);
画分段线(A2>0,小通道上) LINETHICK2 COLORRED,,linethick2;
画分段线(A2=0,小通道上) LINETHICK1 COLORWHITE,linethick2;
画分段线(A2<0,小通道上) LINETHICK1 COLORYELLOW,linethick2;
画分段线(A3>0,小通道下) LINETHICK2 COLORRED,linethick2;
画分段线(A3=0,小通道下) LINETHICK1 COLORWHITE,linethick2;
画分段线(A3<0,小通道下) LINETHICK1 COLORYELLOW,linethick2;MID:=简单移动平均(收盘价,20);
FD:=(HIGH-LOW)/3;
OPEN1:=OPEN>FD*2+LOW;
OPEN3:=OPEN<FD+LOW;
OPEN2:=NOT(OPEN1 OR OPEN3);
CLOSE1:=CLOSE>FD*2+LOW;
CLOSE3:=CLOSE<FD+LOW;
CLOSE2:=NOT(CLOSE1 OR CLOSE3);
DFZD:=CLOSE1 OR (OPEN3 AND CLOSE2);
WQS1:=OPEN2 AND CLOSE2;
KFZD:=NOT(DFZD OR WQS1);
ZD:=(HIGH+LOW)/2;
QSXS:=ZD>REF(HIGH,1);
QSXX:=ZD<REF(LOW,1);
WQS2:=NOT(QSXS OR QSXX);
ZTDL:=VOL>REF(VOL,1)*1.1 OR AMOUNT>REF(AMOUNT,1)*1.5;
FTDL:=VOL<REF(VOL,1)*0.7 OR AMOUNT<REF(AMOUNT,1)*0.5;
ZTDL2:=ZTDL AND FTDL<1;
FTDL2:=FTDL AND ZTDL<1;
MFI1:=(HIGH-LOW)/(VOL/10000);
MFI2:=(HIGH-LOW)/(AMOUNT/1000000);
ZMFI1:=MFI1>REF(MFI1,1);
ZMFI2:=MFI2>REF(MFI2,1);
ZMFI:=ZMFI1 OR ZMFI2;
FMFI:=NOT(ZMFI);
LD:=ZTDL2 AND ZMFI;
ST:=FTDL2 AND FMFI;
WZ:=FTDL2 AND ZMFI;
QF:=ZTDL2 AND FMFI;
A1:=REF(HIGH,2);
A2:=FILTER(HHV(HIGH,5)=A1,2);
A3:=BACKSET(A2,3);
A4:=IF(FILTER(A3,2),HIGH,0);
A5:=SUM(A4,3);
C1:=REF(LOW,2);
C2:=FILTER(LLV(LOW,5)=C1,2);
C3:=BACKSET(C2,3);
C4:=IF(FILTER(C3,2),LOW,0);
C5:=SUM(C4,3);
XHWZ1:=HIGH*1.003;
XHWZ2:=LOW*0.998;
XHWZ3:=IF(QSXX,XHWZ2,IF(QSXS,XHWZ1,IF(DFZD,XHWZ1,XHWZ2)));
XHWZ4:=IF(ZD<REF(ZD,1),XHWZ2,XHWZ1);
S1:=DFZD AND QSXS ;
S2:=KFZD AND QSXX ;
S3:=DFZD AND QSXX;
S4:=KFZD AND QSXS;
S5:=DFZD AND WQS2;
S6:=KFZD AND WQS2;
S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
STICKLINE(1,LOW,HIGH,0.5,0 ),COLOR00FFFF;
STICKLINE(S2 ,close ,open,7,0 ),COLORFF2020;
STICKLINE(S1,close,open,7 ,0 ),COLOR2020FF;
STICKLINE(S3,CLOSE,OPEN,7,0),COLORYELLOW;
STICKLINE(S4,CLOSE,OPEN,7,0),COLORCYAN;
STICKLINE(S5,CLOSE,OPEN,7,0),COLORMAGENTA;
STICKLINE(S6,CLOSE,OPEN,7,0),COLORGREEN;
STICKLINE(S7,CLOSE,OPEN,7,0),COLORGRAY;
STICKLINE(1,CLOSE,OPEN,2,0),COLORWHITE;
STICKLINE(LD,XHWZ3,XHWZ3*0.999,3,0),COLORGREEN;
STICKLINE(ST,XHWZ3,XHWZ3*0.999,3,0),COLORMAGENTA;
STICKLINE(WZ,XHWZ3,XHWZ3*0.999,3,0),COLORYELLOW;
STICKLINE(QF,XHWZ3,XHWZ3*0.999,3,0),COLORRED;
STICKLINE(A5>0.1,A5,A5*1.0001,6,0);
STICKLINE(C5>0.1,C5,C5*1.0001,6,0);
Var1:=(OPEN+LOW+HIGH+CLOSE)/4;
支撑1: EMA(Var1,5),colorwhite;
压力1: HHV(支撑1,13), colorcccc00;
压力2: HHV(支撑1,60),colorblue;
支撑2: LLV(支撑1,13),colorgreen;
支撑3: LLV(LOW,60)*1.02 ,colorred;
压力3: HHV(HIGH,60)*0.98,colorgreen;
PARTLINE(支撑1>ref(支撑1,1),支撑1),colorred,linethick2;
PARTLINE(支撑2>ref(支撑2,1),支撑2),coloryellow,linethick1;
PARTLINE(压力1>ref(压力1,1),压力1),colormagenta,linethick2;
PARTLINE(压力2>ref(压力2,1),压力2),coloryellow,linethick2;
PARTLINE(支撑2=ref(支撑2,1),支撑2),colorred;
PARTLINE(压力1=ref(压力1,1),压力1),colorred;
PARTLINE(压力2=ref(压力2,1),压力2),colorred;
PARTLINE(压力3=ref(压力3,1),压力3),colorred;
STICKLINE(1,var1,var1,6,0),COLORwhite;

[color=Teal][align=right] 本贴由 yngs 于 2005-8-27 14:39 最后编辑 [/align][/color]

谢谢.

谢谢了呀

谢谢
yngs
Moderator

[quote]Originally posted by [i]yeask[/i] at 2005-1-14 03:21 PM:
谢谢了呀 [/quote]
:cool:

谢谢

意静深远

欣赏你的指标可以长寿百岁！是一种享受。让我从此无心炒股。

好看

欣 赏 为 主， 好！ 其 实 内 涵 满 丰 富 的 育！

3q

太好了!顶

太好了!顶

3ks

学习

确实精致~谢谢~

有未来函数呀。

太好了!顶

谢谢!

我又学到东西了！谢谢！

:clap::cool:

欣赏你的指标

的确精彩!

非常棒:cool:

古道西风瘦马