梦回江湖 2008-3-2 15:24
请骑兵老师帮我写个公式
老师 你好 我是梦回江胡 ,我想请你帮我改个公式好么?
老师 你好 我是梦回江胡 我们在qq上聊过的,我想请你帮我改个公式好么?
这个是宝塔线tow的公式但是是飞弧的.
S1:=SUM(C,1);
S2:=SUM(O,1);
KE:=IF(S1<S2,S2,S1);
C0:=REF(CLOSE,0);
C1:=REF(CLOSE,1);
C2:=REF(CLOSE,2);
C3:=REF(CLOSE,3);
ZH:=c1>c2; //前一日收盘价>前两日收盘价
ZL:=c1<c2; //前一日收盘价<前两日收盘价
ZH1:=c1>c2 and c1>c3; //前一日收盘价>前两日收盘价 和 前一日收盘价>前三日收盘价
ZH2:=c1<c2 and c1>c3; //前一日收盘价<前两日收盘价 和 前一日收盘价<前三日收盘价
ZL1:=C1<C2 and c1<c3;
ZL2:=c1>c2 and c1<c3;
{初始化画出上市日 X=1 時 的 K线之红脸或是绿脸}
STICKLINE( KE , c0 , c1 , 6.6 , 0 ) , COLORGREEN;
STICKLINE( c0>c1 , c0 , c1 , 6.6 , 1) , COLORRED ;
{A. 昨天 上市日 X=1 为红脸时：}
A1:=(ZH1 or ZH2) and c0>c1; {→今仍是红脸}
STICKLINE( A1 , c0 , c1 , 6.6 , 1 ) , COLORRED;
A2:=(ZH1 or ZH2) AND c0<c1 and c0>c2; {→ 今為为上攻乏力的红脸。}
STICKLINE(A2 , c1 , c0 , 6.6 , 1 ) , COLORRED;
A3:= (ZH1 or ZH2) AND c0<c2 ; {→ 今为红变绿的双色鬼变脸 → 是多翻空的转势信号。}
STICKLINE( A3 , c2 , c1 ,8.8 , 1 ) ,COLORRED;
{B: 昨天 上市日 X=1 为绿脸时：}
A4:=(ZL1 OR ZL2) AND c0<c1; {→ 今仍是绿脸}
STICKLINE( A4 , c0 , c1 , 6.6 , 0 ) , COLORGREEN;
A5:=(ZL1 OR ZL2) AND c0>c1 AND c0<=c2; {→ 今为抗跌的绿脸}
STICKLINE( A5 , c0 , c1 , 6.6 , 0 ) , COLORGREEN;
A6:=(ZL1 OR ZL2) AND C0>c1 and c0>c2; {→ 今为绿变红的双色鬼变脸 → 是空翻多的转势信号。}
STICKLINE( A6 , c2 , c1 , 6.6 , 0 ) , COLORGREEN
这个是源码<通达信的>只有90%的正确,我这样看的,<<后附有图>>
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,L,L*0.98,3,0),COLORYELLOW;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,H*1.01,H,3,0),COLOR00FF00{98FD};
XXMA:MA(C,5),COLORWHITE;
DD5:=XXMA<REF(XXMA,1);
IF(DD5,XXMA,DRAWNULL),COLOR00FF00;
X:=(3*C+L+O+H)/6;
多空线:(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)
+13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)
+7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+
REF(X,20))/210,COLORFF00FF,LINETHICK1;
{用法：黄托底买进，绿压顶买出。}
DD:=多空线<REF(多空线,1);
IF(DD,多空线,DRAWNULL),COLORBLUE,LINETHICK3;
A:=(XXMA>多空线);
IF(A,多空线,DRAWNULL),COLORYELLOW,POINTDOT;
A1:=(XXMA<多空线);
IF(A1,多空线,DRAWNULL),COLORWHITE;
V1:=CLOSE*VOL;
V2:=EMA(V1,13)/EMA(VOL,13);
CYS:=(EMA((CLOSE-V2)/V2,1)*100);
AA:=CYS;
MIDD:=MA(CYS,20);
CC:=MIDD+0.85*STD(CYS,10);
TM6:=AA>CC;
IF(TM6,XXMA,DRAWNULL),COLORRED,LINETHICK2;
我找到CXT9999 发的图<他的图是正确的>,老师按这个写,只要能达到这个就行了<通达信的没有飞狐的掺数>
再罗嗦一句:说明一下,请老师留心图上三平底 三平顶的提示哦 谢谢这两个贴是资料给老师参考下: [url]http://www.li20.net/viewthread.p[/url] ... p;extra=&page=1
[url]http://www.li20.net/thread-220031-3-1.html[/url]
如果老师搞写好了,请帮我发到我qq513051384上好么?或者论坛的短信给我也行的,或者邮箱 [email]hujiangbo114@sina.com[/email] 谢谢老师
股市骑兵00 2008-3-2 20:45
你好，没看明白，你想要什么软件的指标，通达信我不会．
下面是飞狐以前帮别人做的，供参考．[code]c1:=c;o1:=o;
ss1:=max(c1,o1),LINETHICK0;
xx1:=min(c1,o1),LINETHICK0;
zz1:=0*c,LINETHICK0;
y:=if(c>o,1,0)+if(c<o,4,0),LINETHICK0;
for i=2 to datacount do begin
if y[i-1]=1 or y[i-1]=0 then begin
if c1[i]>ss1[i-1] then begin
ss1[i]:=c1[i];
xx1[i]:=ss1[i-1];
zz1[i]:=0;
y[i]:=1;
end;else
if c1[i]<xx1[i-1] then begin//=
ss1[i]:=xx1[i-1];
xx1[i]:=c1[i];
zz1[i]:=ss1[i-1];
y[i]:=4;
end;else begin
ss1[i]:=ss1[i-1];
xx1[i]:=c1[i];
zz1[i]:=0;
y[i]:=1;
end;end;
if y[i-1]=4 or y[i-1]=0 then begin
if c1[i]<xx1[i-1] then begin
ss1[i]:=xx1[i-1];
xx1[i]:=c1[i];
zz1[i]:=0;
y[i]:=4;
end;else
if c1[i]>ss1[i-1] then begin//=
ss1[i]:=c1[i];
xx1[i]:=ss1[i-1];
zz1[i]:=xx1[i-1];
y[i]:=1;
end;else begin
ss1[i]:=c1[i];
xx1[i]:=xx1[i-1];
zz1[i]:=0;
y[i]:=4;
end;
end;
end;
k1:=(y=1 and ref(y=1,1) and c>ref(ss1,1))*1;
k2:=(y=1 and ref(y=1,1) and c<=ref(ss1,1) and c>=ref(xx1,1))*2;
k3:=(y=4 and ref(y=1,1) and c<ref(xx1,1))*3;
k4:=(y=4 and ref(y=4,1) and c<ref(xx1,1))*4;
k5:=(y=4 and ref(y=4,1) and c<=ref(ss1,1) and c>=ref(xx1,1))*5;
k6:=(y=1 and ref(y=4,1) and c>ref(ss1,1))*6;
k7:=(y=1 and ref(y=0,1))*1;//6
k8:=(y=4 and ref(y=0,1))*4;
kk:if(barpos=1,y,k1+k2+k3+k4+k5+k6+k7+k8),LINETHICK0;
maxg:=max(max(ss1,xx1),zz1);ming:=min(min(ss1,xx1),zz1);
zxng:=(ss1<>maxg and ss1<>ming)*ss1+(xx1<>maxg and xx1<>ming)
*xx1+(zz1<>maxg and zz1<>ming)*zz1;
p1:=(ss1=xx1)*ss1;p2:=(ss1=zz1)*zz1;p3:=(xx1=zz1)*xx1;
pp:=if(p1=0 and p2=0,p3,if(p1,p1,p2));
STICKLINE(zz1=0 and y=1,ss1,xx1,7,1),COLORYELLOW;
STICKLINE(zz1=0 and y=4,ss1,xx1,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp=0,maxg,zxng,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp=0,ming,zxng,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp and y=1,maxg,ming,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp and y=4,maxg,ming,7,0),COLORBLUE;
STICKLINE(zz1>0 and pp and (y=1 or (ref(y,1)=1 and y=4)),pp,pp,7,1),COLORYELLOW;
STICKLINE(zz1>0 and pp and (y=4 or (ref(y,1)=4 and y=1)),pp,pp,7,0),COLORBLUE;
DRAWICON(kk=3 and ref(kk,1)=2 and (ref(kk,2)=1 or ref(kk,2)=2 or ref(kk,2)=6),ss1*1.02,9);//１．鬼变脸三平顶翻黑的选股指标
DRAWICON(kk=6 and ref(kk,1)=5 and (ref(kk,2)=5 or ref(kk,2)=4 or ref(kk,2)=3),xx1*0.98,8);//２．鬼变脸三平底翻红的选股指标[/code]
[[i] 本帖最后由 股市骑兵00 于 2008-3-2 20:46 编辑 [/i]]