标题: 请求大师帮将这大智慧的改为通信达公式 [打印本页] 作者: 天官赐福 时间: 2016-3-7 16:39 标题: 请求大师帮将这大智慧的改为通信达公式 请求大师帮将这分时的大智慧的改为东方财富通的公式
n:=10;
f:=25;
Var1:=HHV(HIGH,9)-LLV(LOW,9);
Var2:=HHV(HIGH,9)-CLOSE;
Var3:=CLOSE-LLV(LOW,9);
Var4:=Var2/Var1*100-70;
Var5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Var6:=(high+low+open+close)/4;
Var7:=SMA(Var3/Var1*100,3,1);
Var8:=LLV(LOW,34);
Var9:=SMA(Var7,3,1)-SMA(Var4,9,1);
VarA:=IF(Var9>100,Var9-100,0);
VarB:=HHV(HIGH,34);
VarC:=EMA((Var6-Var8)/(VarB-Var8)*100,13);
VarD:=EMA(0.667*REF(VarC,1)+0.333*VarC,2);
VarE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(ABS(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25;
VarF:=MA(VarE,3);
Var10:=REF(VarF,1);
生命线:EMA(VarD,N), colorFFAA00;
Var11:=(CLOSE-LLV(LOW,F))/(HHV(HIGH,F)-LLV(LOW,F))*100;
K:=SMA(Var11,3,1);
D:=SMA(K,3,1);
红灯亮买: STICKLINE(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,36,0,1,0), colorred;
见红:IF(VarC>18,0,IF(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,37,0)),COLOR3355FF;{灯塔脉冲}
fillrgn(0,25,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),color0000FF;{画红色灯桩}
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK7,color0000ff;{画浅蓝色灯辉}
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK4,colorffffff;{画白色灯芯}
浪尖: STICKLINE(CROSS(VarD,VarC) AND VarC<VarD AND VarC>60,90,100,12,1),colorblue;
IF(VarC<79,100,IF(CROSS(VarD,VarC) AND VarD>79 AND VarC>79,70,100)),COLOR00ff00;{灯塔脉冲}
{
卖: STICKLINE(FILTER(CROSS(VarD,VarC),10) AND VarD>79 AND VarC>79,100,95,4,0),colorgreen;{画绿色倒灯桩}
{
PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK7,color00ff00;{画绿色灯辉}
{PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK4,colorffffff;{画白色灯芯}