美国丹佛 发表于 2010-2-25 19:58

哪位高手帮忙把这个通达信的公式改成同花顺的?》

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA30:MA(CLOSE,30);
MA60:MA(CLOSE,60);
STICKLINE(C>REF(C,1),H,L,0,1),COLOR0000FF;
STICKLINE(C>REF(C,1),O,C,3.2,0),COLOR000055;
STICKLINE(C>REF(C,1),O,C,2.7,0),COLOR000077;
STICKLINE(C>REF(C,1),O,C,2.1,0),COLOR000099;
STICKLINE(C>REF(C,1),O,C,1.5,0),COLOR0000BB;
STICKLINE(C>REF(C,1),O,C,0.9,0),COLOR0000DD;
{STICKLINE(C<REF(C,1),O,C,0.3,0),COLOR0000FF;}
STICKLINE(C<REF(C,1),H,L,0,1),COLORFFFF00;
STICKLINE(C<REF(C,1),O,C,3.2,0),COLOR990000;
STICKLINE(C<REF(C,1),O,C,2.7,0),COLORCC0000;
STICKLINE(C<REF(C,1),O,C,2.1,0),COLORFF4400;
STICKLINE(C<REF(C,1),O,C,1.5,0),COLORFF8800;
STICKLINE(C<REF(C,1),O,C,0.9,0),COLORFFCC00;
{STICKLINE(C<REF(C,1),O,C,0.3,0),COLORFFFF00;}
STICKLINE(C=REF(C,1),H,L,0,1),COLORFFFFFF;
STICKLINE(C=REF(C,1),O,C,3.2,0),COLOR555555;
STICKLINE(C=REF(C,1),O,C,2.7,0),COLOR777777;
STICKLINE(C=REF(C,1),O,C,2.1,0),COLOR999999;
STICKLINE(C=REF(C,1),O,C,1.5,0),COLORBBBBBB;
STICKLINE(C=REF(C,1),O,C,0.9,0),COLORDDDDDD;
{STICKLINE(C=REF(C,1),O,C,0.3,0),COLORFFFFFF;}
WCB2:=REF(C,1);
涨停:=IF((C-WCB2)*100/WCB2>=(10-0.01*100/WCB2),1,0);
STICKLINE(涨停,OPEN,CLOSE,4.2,0),COLORYELLOW;
STICKLINE(涨停,H,L,2.7,0),COLORLIMAGENTA;
跌停:=IF((WCB2-C)*100/WCB2>=(10-0.01*100/WCB2),1,0);
STICKLINE(跌停,OPEN,CLOSE,4.2,0),COLORYELLOW;
STICKLINE(跌停,H,L,2.7,0),COLORGREEN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,9,1);
D:=SMA(K,9,1);
J:=3*K-2*D;
KD:=CROSS(K,D) AND CROSS(J,D);
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0);
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW*0.98,'★进'),COLORLIMAGENTA;
JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;
DRAWTEXT(CROSS(84,JH9),H*1.02+0.4,'☆逃'),COLORGREEN;
N1:=7;
LC:=REF(CLOSE,1);
XD:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORYELLOW,LINETHICK1;
魔鬼:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),XD,1),COLOR00FF00;
魔王:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),1,XD),COLOR00FF00;
TJ0:=XD=魔王;
TJ1:=XD=魔鬼;
TJ2:=XD<REF(XD,1);
TJ3:=XD>REF(1,XD);
JRS1:=DRAWICON(TJ1 AND TJ2,XD,1);
JRS2:=DRAWICON(TJ0 AND TJ3,XD,2);
DRAWICON(FILTER(JRS1>0,1),L*0.97,1);
DRAWICON(FILTER(JRS2>0,1),H*1.02,2);
空:=EMA(C,5);
均衡:=EMA(空,5);
中轨:=HHV(MA(H,13),13),LINETHICK2;
VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11);
DRAWTEXT(VAR55,L*0.98,'♂追涨'),COLORYELLOW;
HH0:=CONST(HHV(H,120))*1;
LL0:=CONST(LLV(L,120))*1;
MM0:=CONST((HH0+LL0)/2);
HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORRED;
LL1:=LL0;HLMAX:=MAX(HH1,LL1);
HLMIN:=MIN(HH1,LL1);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=(HLMAX-HLMIN);
HLMN3:=HHV(V,250)/2;
HLMN4:=HHV(V,250);
VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1;
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORFF33BB;
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF55FF;
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFF99FF;
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORCC6600;
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF8800;
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFFCC00;
(MA(V,5)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORFFFFFF;
(MA(V,10)-HLMN3)*HLMN2/HLMN4+HLMN1,COLOR00FFFF;
T:=V=LLV(V,20);
{量能显示涨跌停}
STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORRED;
STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORGREEN;
{资金异常动能显示}
VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1;
STICKLINE(V>=2*REF(V,1),VZ,VY,0.9,0),COLORGREEN;
STICKLINE(V>=3*REF(V,1),VZ,VY,0.6,0),COLOR3300CC;
MA13:=MA(C,3);
UU:=1,V<=LLV(V,13) AND MA13>REF(MA13,1);
TJ:=1,REF(V,1)<=LLV(V,13) AND MA13>REF(MA13,1),COLORRED,LINETHICK3;
地:=(0-HLMN3)*HLMN2/HLMN4+HLMN1-0.7,COLORBLACK;
天:=CONST(HHV(C,120))*1+0.7,COLORBLACK;
BIAS11:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS12:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS13:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
短跌BIAS:IF(BIAS11<=-6,0.6+地,地),COLORBLACK,LINETHICK2;
中跌BIAS:IF(BIAS12<=-10,0.6+地,地),COLORBLUE,LINETHICK2;
长跌BIAS:IF(BIAS13<=-16,0.6+地,地),COLORRED,LINETHICK2;
短涨BIAS:IF(BIAS11>=6,天,天+0.6),COLORBLACK,LINETHICK2;
中涨BIAS:IF(BIAS12>=10,天,天+0.6),COLORBLUE,LINETHICK2;
长涨BIAS:IF(BIAS13>=16,天,天+0.6),COLORRED,LINETHICK2;
BIAS1:=(C-MA(C,6))/MA(C,6)*100;
BIAS2:=(C-MA(C,12))/MA(C,12)*100;
BIAS3:=(C-MA(C,24))/MA(C,24)*100;
BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;
乖离:=MA(BIAS,3);
DRAWTEXT(CROSS(BIAS,乖离) AND 乖离<-9,(V-HLMN3)*HLMN2/HLMN4+HLMN1+0.6,'底'),COLORRED;

股道迷茫 发表于 2010-2-25 20:46

这个思路不错,谢谢老师。。

股道迷茫 发表于 2010-2-26 11:46

这篇文章写得好!

股道迷茫 发表于 2010-2-27 00:42

这个写的有意思,谢谢楼主了。。

鹤舞青云 发表于 2010-3-21 10:31

多谢楼主!!!辛苦了!!!

一语中的 发表于 2012-10-10 17:24

学习学习多谢

学习一下啦 发表于 2014-3-10 13:13

:)学习一下啦:)

速战快乐赚钱 发表于 2018-11-16 09:03

很受启发,谢谢了

恒强 发表于 2019-2-20 17:57

好好学习天天向上

安逸安逸 发表于 2019-2-21 13:09

谢谢您的分享!

安逸安逸 发表于 2019-2-21 13:23

谢谢您的分享!

kwanyin1983 发表于 2019-12-8 11:35


谢谢您的分享!

醉亨人生 发表于 2019-12-8 14:52


多谢楼主!!!辛苦了!!!

szwzs 发表于 2019-12-10 22:04

这个难度有点大,两边的函数都要熟才行
页: [1]
查看完整版本: 哪位高手帮忙把这个通达信的公式改成同花顺的?》