软件名称：[B]操盘主图 线性顶底 韵律图 自用macd-把pyj鲁南老师几个指标转成大智慧l2[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：24.0 KB
官方主页：Home Page
更新时间：2010-03-09 08:57:30
软件简介:

操盘主图 线性顶底 韵律图 自用macd-把pyj鲁南老师几个指标转成大智慧l2

线性顶底
DRAWGBKLAST(CLOSE>0,STRIP(RGB(41,36,0),RGB(0,0,0),0));
A:=(5*C+H+L+O)/8;
H1:=REF(HIGH,2);
L1:=REF(LOW,2);
D1:=HIGH>H1 AND LOW>=L1 AND A>REF(A,1);
D11:=HIGH>H1 AND LOW>=L1 AND A<=REF(A,1);
D2:=LOW<L1 AND HIGH<H1;
D3:=HIGH>H1 AND LOW<L1 AND A>REF(A,1);
D31:=HIGH>H1 AND LOW<L1 AND A<=REF(A,1);
D4:=HIGH<=H1 AND LOW>=L1;
思路:SUM(IF(D1,HIGH,IF(D11,LOW,IF(D2,-HIGH,IF(D3,HIGH,IF(D31,-HIGH,IF(D4,0,0)))))),0)/100,COLOR0000FF;
PARTLINE(思路,思路>=REF(思路,1),RGB(250,0,0),思路<REF(思路,1),RGB(0,250,0)),linethick2;
线2:SMA(思路,2,1),Color0FFFFF;
线3:SMA(线2,2,1),ColorE87400;
上延:HHV(MA(思路,2),15),ColorFF2626,dotline;
下延:LLV(MA(思路,2),15),ColorFF2626,dotline;
中轴:(上延+下延)/2,dotline;

韵律图
DRAWGBKLAST(CLOSE>0,STRIP(RGB(41,36,0),RGB(0,0,0),0));
A:=EMA((4*C+O+H+L)/7,2);
乖离:(A-EMA(A,89))/EMA(A,421)*500,COLORYELLOW,LAYER0;
均离:EMA(乖离,5),COLORF000F0,LAYER0;
PARTLINE(乖离,乖离>=REF(乖离,1),RGB(250,0,0),乖离<REF(乖离,1),RGB(0,255,127)),linethick2,LAYER0;

D1:EMA(乖离,3),COLOR00F2F2,LAYER0;
D2:=1.5*(乖离-均离);

STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,6,0),COLOR974B00;
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,4,0),COLORB55A00;
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,2,1),COLORD26900;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,6,0),COLOR979700;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,4,0),COLORB5B500;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,2,1),COLORD2D200;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,6,0),COLOR97004B;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,4,0),COLORB5005A;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,2,1),COLORD20069;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,8,0),COLOR970097;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,4,0),COLORB500B5;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,3,0),COLORYELLOW;

上限:HHV(MA(乖离,2),18),COLORFF2626,DOTLINE;
下限:LLV(MA(乖离,2),18),COLORFF2626,DOTLINE;
强弱:(上限+下限)/2,COLORFFFF20,DOTLINE;

自用macd
DRAWGBKLAST(CLOSE>0,STRIP(RGB(41,36,0),RGB(0,0,0),0));
A:=(HIGH+LOW+5*CLOSE+OPEN)/8;
DIF:(EMA(A,14)-REF(EMA(A,38),1))/(1+EMA(ABS(A),99.5))*1000,Color00FFFF,LAYER0;
DEA:SMA(DIF,5,3),Color00FF00,LINETHICK1,LAYER0;
MACD:=(DIF-DEA)*3;
KDF:SMA(DIF,2,1),ColorFF00FF,LAYER0;
DDF:SMA(KDF,2,1),ColorFFFFFF,LAYER0;
JDF:3*KDF-2*DDF,Color0000FF,LAYER0;
PARTLINE(JDF,JDF>=REF(JDF,1),RGB(250,0,0),JDF<REF(JDF,1),RGB(0,0,250)),linethick2,LAYER0;
D2:=MACD;
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,6,0),Color974B00;
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,4,0),ColorB55A00;
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,2,0),ColorD26900;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,6,0),Color979700;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,4,0),ColorB5B500;
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,2,0),ColorD2D200;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,6,0),Color97004B;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,4,0),ColorB5005A;
STICKLINE(D2>REF(D2,1)AND D2,0,D2,2,0),ColorD20069;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,6,0),Color970097;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,4,0),ColorB500B5;
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,2,0),ColorD200D2;

{操盘主图}
{n1=5 n2=10 n3=32 n4=62}
input:N1(5),N2(10),N3(32),N4(62);
W:=(3*CLOSE+LOW+OPEN+HIGH)/6;
启动:EMA(W,N1),ColorFF1EFF;
持股:EMA(W,N2),Color1EFFFF;
辰星:(20*W+19*REF(W,1)+18*REF(W,2)+17*REF(W,3)+16*REF(W,4)+15*REF(W,5)+14*REF(W,6)+13*REF(W,7)+12*REF(W,8)+11*REF(W,9)+10*REF(W,10)+9*REF(W,11)+8*REF(W,12)+7*REF(W,13)+6*REF(W,14)+5*REF(W,15)+4*REF(W,16)+3*REF(W,17)+2*REF(W,18)+REF(W,20))/211,ColorFFFF1E;
强弱:EMA(W,N3),Color246BFF;
牛熊:MA(W,N4),ColorFF2F2F;
aa1:=WMA(CLOSE,2);
bb1:=EMA(aa1,2);
a0:=MA(bb1,3);
aa2:=WMA((HIGH+CLOSE+OPEN)/3,6);
dd3:=a0>=aa2 AND CLOSE>aa2;
dd4:=a0<aa2 ;
dd5:=a0>aa2 ;
cc10:=((CLOSE-REF(MA(CLOSE,6),1))/3+MA(CLOSE,5))*1.004;
cc20:=CROSS(CLOSE,cc10) AND cc10>REF(cc10,1);
STICKLINE((dd4 OR dd5) AND OPEN<=CLOSE ,HIGH,LOW,0,0),ColorC400C4;
STICKLINE((dd4 OR dd5) AND OPEN<=CLOSE ,CLOSE,OPEN,10,0),Color880088;
STICKLINE((dd4 OR dd5) AND OPEN<=CLOSE ,CLOSE,OPEN,8,0),ColorA600A6;
STICKLINE((dd4 OR dd5) AND OPEN<=CLOSE ,CLOSE,OPEN,4,0),ColorC400C4;
STICKLINE((dd4 OR dd5) AND OPEN>=CLOSE ,HIGH,LOW,0,0),ColorA2A200;
STICKLINE((dd4 OR dd5) AND OPEN>=CLOSE ,CLOSE,OPEN,10,0),Color646400;
STICKLINE((dd4 OR dd5) AND OPEN>=CLOSE ,CLOSE,OPEN,8,0),Color828200;
STICKLINE((dd4 OR dd5) AND OPEN>=CLOSE ,CLOSE,OPEN,4,0),ColorA2A200;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN<=CLOSE,HIGH,LOW,0,0),Color0000A2;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN<=CLOSE,CLOSE,OPEN,10,0),Color000064;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN<=CLOSE,CLOSE,OPEN,8,0),Color000082;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN<=CLOSE,CLOSE,OPEN,4,0),Color0000A2;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN>=CLOSE,HIGH,LOW,0,0),Color00A200;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN>=CLOSE,CLOSE,OPEN,10,0),Color006400;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN>=CLOSE,CLOSE,OPEN,8,0),Color008200;
STICKLINE((dd3 OR CLOSE>aa2) AND OPEN>=CLOSE,CLOSE,OPEN,4,0),Color00A200;
STICKLINE(cc20,HIGH,LOW,0,0),Color0065CA;
STICKLINE(cc20,OPEN,CLOSE,10,0),Color00468C;
STICKLINE(cc20,OPEN,CLOSE,8,0),Color0055AA;
STICKLINE(cc20,OPEN,CLOSE,4,0),Color0065CA;
KS:=(C-MA(C,15))/MA(C,15)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.15 AND RKS>=5 AND C/REF(C,1)>=1.01;
STICKLINE(MLS=1,H,L,0,0),ColorD5006A;
STICKLINE(MLS=1,C,O,10,1),Color97004B;
STICKLINE(MLS=1,C,O,8,1),ColorB5005A;
STICKLINE(MLS=1,C,O,4,1),ColorD5006A;{紫超跌反弹}
BDGD:=CROSS(0.8,H=HHV(H,6));
GDSJ:=BARSLAST(BDGD)+1;
波峰:=REF(H,GDSJ);
BDDD:=CROSS(0.8,L=LLV(L,6));
DDSJ:=BARSLAST(BDDD)+1;
波谷:=REF(L,DDSJ);
STICKLINE(GDSJ<=6,波峰,波峰,6,0),ColorFFFFFF;
STICKLINE(DDSJ<=6,波谷,波谷,6,0),Color0000F0;
CCI1:=(W-MA(W,5))/(0.015*AVEDEV(W,6));
CCI2:=(W-MA(W,8))/(0.015*AVEDEV(W,12));
差值:=ABS(REF(CCI2,1)-CCI2);
VAR1:=WMA(W,8);
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
下跌:=IF(VAR1=VAR2,VAR2,0);
TJ1:= CCI1>差值;
立桩量:=TJ1;
TJ2:=IF(BARSLAST(立桩量)=1 ,1,IF(BARSLAST(立桩量)=2 ,1,
IF(BARSLAST(立桩量)=3 ,1,0)));
三天法则1:=TJ2=1;
成立1:=三天法则1;
条件成立1:=FILTER(成立1,7);
STICKLINE(条件成立1,H ,L,0,0),ColorCE6700;
STICKLINE(条件成立1,C ,O,10,0),Color914800;
STICKLINE(条件成立1,C ,O,8,0),ColorB05800;
STICKLINE(条件成立1,C ,O,4,0),ColorCE6700;
TJ11:= cci1<-差值 ;
立桩量2:=TJ11;
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));
三天法则2:=TJ22=1;
成立2:=三天法则2;
条件成立2:=FILTER(成立2,7);
STICKLINE(条件成立2,H ,L,0,0),Color00D5D5;
STICKLINE(条件成立2,C ,O
[url=http://www.70822.com/soft/sort013/sort03/down-17067.html]操盘主图 线性顶底 韵律图 自用macd-把pyj鲁南老师几个指标转成大智慧l2[/url]