论坛 › 〖学习中心〗 › 指标探索

yxh88579 发表于 2003-11-5 20:49

我做了个飞狐的公式

大家参考以下

yxh88579 发表于 2003-11-5 20:53

测试黄金分割

小梨 发表于 2003-11-5 22:04

这个效果不错！

Syj007 发表于 2003-11-5 22:42

这个也不错嘛！！！

yxh88579 发表于 2003-11-5 23:01

发上来如何？

小梨 发表于 2003-11-6 10:24

火山景观

源码如下
Var1:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var3:=SUM(Var1,5);
Var4:=SUM(Var2,5);
Var5:=IF(Var3>Var4,(Var3-Var4)/Var3,IF(Var3=Var4,0,(Var3-Var4)/Var4));
Var6:=MA(Var5,5);
Var7:=DATE<=1030720;
Var8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VarA:=SUM(Var8,3);
VarB:=SUM(Var9,3);
VarC:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
VarD:=MA(VarC,3);
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1))*Var7, , ;
VarE:=HHV(CLOSE,2);
VarF:=BARSLAST(VarE<REF(VarE,2));
Var10:=IF(VarF>=1,LLV(VarE,VarF),LOW);
Var11:=Var10+Var10*VarF*0.5/100;
Var12:=IF(Var11<REF(Var11,1),MA(LOW,3),Var11);
Var13:=Var10+Var10*(VarF-1)*1.618/100;
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5)*Var7;
Var14:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var15:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var16:=SUM(Var8,3);
Var17:=SUM(Var9,3);
Var18:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var19:=MA(VarC,3);
买入或持股: STICKLINE(山>0,火,0,2,0)*Var7, , ;
Var1A:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var1B:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var1C:=SUM(Var8,3);
Var1D:=SUM(Var9,3);
Var1E:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var1F:=MA(VarC,3);
下跌→抛出: STICKLINE(山>0,火,山,2,1)*Var7, , ;
Var20:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var21:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var22:=SUM(Var8,3);
Var23:=SUM(Var9,3);
Var24:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var25:=MA(VarC,3);
观望: STICKLINE(山=0 AND 火=0,0,1,4,1)*Var7, , ;
Var26:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var27:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var28:=SUM(Var8,3);
Var29:=SUM(Var9,3);
Var2A:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var2B:=MA(VarC,3);
植被: STICKLINE(山<火,火,山,1,0)*Var7, , ;
Var2C:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var2D:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var2E:=SUM(Var8,3);
Var2F:=SUM(Var9,3);
Var30:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var31:=MA(VarC,3);
Var32:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*10*Var7;
K: SMA(SMA(Var32,2,1),2,1)*Var7, , ;
D: SMA(SMA(SMA(Var32,2,1),2,1),3,1)*Var7, , ;
J: (3*SMA(SMA(Var32,2,1),2,1)-2*SMA(SMA(SMA(Var32,2,1),2,1),3,1))*Var7, , ;
Var33:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var34:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var35:=SUM(Var8,3);
Var36:=SUM(Var9,3);
Var37:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var38:=MA(VarC,3);
STICKLINE(REF(山,1)=0 AND 山>0,0,-1,2,0)*Var7, , ;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'调整')*Var7, , ;

小梨 发表于 2003-11-6 10:29

这个指标的算法看起来很复杂，但我们做一个对比，大家可能会一目了然，原来和KDJ没什么两样，只是把KDJ的用法以文字注释的方式加进了公式，因此，公式本身还是一个KDJ的优化版本。

oko 发表于 2003-11-6 12:45

:*18*:好漂亮哦！

bymzy 发表于 2003-11-6 13:01

谢谢小梨妹妹。请继续

东方冉 发表于 2003-11-6 15:18

哈，你的头像都就去了，怎么弄的，好棒！
这一行有问题吗？
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1))*Var7, ,

小梨 发表于 2003-11-6 15:36

Originally posted by 东方冉 at 2003-11-6 03:18 PM:
哈，你的头像都就去了，怎么弄的，好棒！
这一行有问题吗？
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1))*Var7, ,

把所有的, , 去掉，注意保留分号！

如下：
Var1:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var3:=SUM(Var1,5);
Var4:=SUM(Var2,5);
Var5:=IF(Var3>Var4,(Var3-Var4)/Var3,IF(Var3=Var4,0,(Var3-Var4)/Var4));
Var6:=MA(Var5,5);
Var7:=1;
Var8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VarA:=SUM(Var8,3);
VarB:=SUM(Var9,3);
VarC:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
VarD:=MA(VarC,3);
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1))*Var7;
VarE:=HHV(CLOSE,2);
VarF:=BARSLAST(VarE<REF(VarE,2));
Var10:=IF(VarF>=1,LLV(VarE,VarF),LOW);
Var11:=Var10+Var10*VarF*0.5/100;
Var12:=IF(Var11<REF(Var11,1),MA(LOW,3),Var11);
Var13:=Var10+Var10*(VarF-1)*1.618/100;
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5)*Var7;
Var14:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var15:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var16:=SUM(Var8,3);
Var17:=SUM(Var9,3);
Var18:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var19:=MA(VarC,3);
买入或持股: STICKLINE(山>0,火,0,2,0)*Var7;
Var1A:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var1B:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var1C:=SUM(Var8,3);
Var1D:=SUM(Var9,3);
Var1E:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var1F:=MA(VarC,3);
下跌→抛出: STICKLINE(山>0,火,山,2,1)*Var7;
Var20:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var21:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var22:=SUM(Var8,3);
Var23:=SUM(Var9,3);
Var24:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var25:=MA(VarC,3);
观望: STICKLINE(山=0 AND 火=0,0,1,4,1)*Var7;
Var26:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var27:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var28:=SUM(Var8,3);
Var29:=SUM(Var9,3);
Var2A:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var2B:=MA(VarC,3);
植被: STICKLINE(山<火,火,山,1,0)*Var7;
Var2C:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var2D:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var2E:=SUM(Var8,3);
Var2F:=SUM(Var9,3);
Var30:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var31:=MA(VarC,3);
Var32:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*10*Var7;
K: SMA(SMA(Var32,2,1),2,1)*Var7;
D: SMA(SMA(SMA(Var32,2,1),2,1),3,1)*Var7;
J: (3*SMA(SMA(Var32,2,1),2,1)-2*SMA(SMA(SMA(Var32,2,1),2,1),3,1))*Var7;
Var33:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
Var34:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
Var35:=SUM(Var8,3);
Var36:=SUM(Var9,3);
Var37:=IF(VarA>VarB,(VarA-VarB)/VarA,IF(VarA=VarB,0,(VarA-VarB)/VarB));
Var38:=MA(VarC,3);
STICKLINE(REF(山,1)=0 AND 山>0,0,-1,2,0)*Var7;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'调整')*Var7 ;

[ Last edited by 小梨 on 2003-11-6 at 15:40 ]

小梨 发表于 2003-11-6 15:39

需要公式的可以下，不过要记住他仅仅是KDJ的优化版

fiweng 发表于 2003-11-6 17:07

梨班能否帮我写一个分析家中分时图的量比公式!!

lwz1638 发表于 2003-11-6 17:25

看帖回帖是良好的革命传统

小梨 发表于 2003-11-6 17:31

Originally posted by fiweng at 2003-11-6 05:07 PM:
梨班能否帮我写一个分析家中分时图的量比公式!!

晚上我来写一个

yxh88579 发表于 2003-11-6 18:07

火山景观（飞狐专用）

小梨润色

小梨 发表于 2003-11-6 19:47

分析家量比线

在1分钟图上用！

l1:="VOL.MA1##DAY"(5,10,30);
l2:=ref(l1,1)/240;
u:=intpart(time/100);
x:=IF(u<1000,u-0930,IF(u<1100,u-1000+30,IF(u<1200,u-1100+90,
IF(u<1400,u-1300+120,IF(u<1500,u-1400+180,240)))));
l3:=SUM(Vol,0);
量比:l3/l2/x;

小梨 发表于 2003-11-6 19:49

效果图例。

小梨 发表于 2003-11-6 20:04

买卖盘公式

Var1:=SUM(AMOUNT,0);
Var2:=SUM(VOL,0);
Var3:=Var1/Var2/100;
Var4:=BUYVOL;
Var5:=SELLVOL;
B: SUM(Var4,0);
S: SUM(Var5,0);
Var6:=B-S;
B-S, VOLSTICK;
DRAWICON(CROSS(B,S),B,0);
STICKLINE(B>S,S,B,6,0);
STICKLINE(S>B,S,B,6,0);

小梨 发表于 2003-11-6 20:08

这个指标是在分笔成交图中使用的，用来表示主动性买盘和主动性卖盘的指标，数据是否准确与是否是实时接收数据有很大关系，网上的买卖盘指标很多，这个指标理做的较好的，蓝色出现时表示主动性卖出比重在，灰色表示主动性买入比重大，具体大小由下方的柱状表示，这个指标同样也是一个辅助指标，不具备独立研判行情的能力。指标数据只具参考意义。

查看完整版本: 指标探索