软件名称：[B]任意买卖主图（日、周、月周期同显，源码，贴图，无加密）[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：14.0 KB
官方主页：Home Page
更新时间：2011-06-18 05:51:12
软件简介:
{任意K线}
DRAWGBK(CLOSE=CLOSE,COLORRGB(30,30,30),COLORRGB(130,130,130),1);
DRAWGBK(CLOSE>OPEN,COLORRGB(110,0,0),COLORRGB(0,0,0),0);
DRAWGBK(CLOSE<OPEN,COLORRGB(0,110,0),COLORRGB(0,0,0),0);
input:AA(5,1,1000),BB(20,1,1000);
{-----------------------☆功能开关------------------------}
{月--周期K线}
if datacount<BB then exit;
y1:=mod(barpos,BB);
Y2:=if(y1=0,BB-1,y1-1);
Y3:=barslast(Y2=0);
Y4:=barslast(Y2=BB-1);
Y5:=ref(o,Y3);
Y6:=hhv(h,Y3+1)*(Y4=0);
Y7:=llv(if(L=0,100000,L),Y3+1)*(Y4=0);
Y8:=IF(Y3=0,C,0);
Y9:=IF(Y4=0,C,0);
Y10:=IF(Y4=0,Y6,0);
Y11:=IF(Y4=0,Y7,0);
for n=lbound(Y8) to ubound(Y8) do begin
if Y8[n]>0 then begin
for z=n+BB-1 to ubound(Y8) do begin
if Y9[z]>0 then begin
for s=n to z-1 do begin
YC1[s]:=Y9[z];
YH1[s]:=Y10[z];
YL1[s]:=Y11[z];
end;
break;
end;
end;
end;
end;
YXQc1:=C;
YXQh1:=hhv(h,Y2[datacount]+1);
XQL1:=LLV(if(L=0,1000000,L),Y2[datacount]+1);
YXQCC:=if(barpos>datacount-Y2[datacount]-1,YXQc1[datacount],if(Y2=BB-1,C,YC1));
YXQHH:=if(barpos>datacount-Y2[datacount]-1,YXQh1[datacount],if(Y2=BB-1,ref(YH1,1),YH1));
YXQLL:=if(barpos>datacount-Y2[datacount]-1,XQL1[datacount],if(Y2=BB-1,ref(YL1,1),YL1));
{周--周期K线}
if datacount<AA then exit;
Z1:=mod(barpos,AA);
Z2:=if(Z1=0,AA-1,Z1-1);
Z3:=barslast(Z2=0);
Z4:=barslast(Z2=AA-1);
Z5:=ref(o,Z3);
Z6:=hhv(h,Z3+1)*(Z4=0);
Z7:=llv(if(L=0,100000,L),Z3+1)*(Z4=0);
Z8:=IF(Z3=0,C,0);
Z9:=IF(Z4=0,C,0);
Z11:=IF(Z4=0,Z6,0);
Z12:=IF(Z4=0,Z7,0);
for n=lbound(Z8) to ubound(Z8) do begin
if Z8[n]>0 then begin
for z=n+AA-1 to ubound(Z8) do begin
if Z9[z]>0 then begin
for s=n to z-1 do begin
ZC1[s]:=Z9[z];
ZH1[s]:=Z11[z];
ZL1[s]:=Z12[z];
end;
break;
end;
end;
end;
end;
Zzc1:=C;
Zzh1:=hhv(h,Z2[datacount]+1);
ZzL1:=LLV(if(L=0,1000000,L),Z2[datacount]+1);
ZzCC:=if(barpos>datacount-Z2[datacount]-1,Zzc1[datacount],if(Z2=AA-1,C,ZC1));
ZzHH:=if(barpos>datacount-Z2[datacount]-1,Zzh1[datacount],if(Z2=AA-1,ref(ZH1,1),ZH1));
ZzLL:=if(barpos>datacount-Z2[datacount]-1,ZzL1[datacount],if(Z2=AA-1,ref(ZL1,1),ZL1));
{-----------------【图解模板】---------------------}
{月--周期K线}
FILLRGN(Y2>0 and YXQCC>=Y5,YXQHH,YXQLL),Colorred;
FILLRGN(Y2>0 and YXQCC<Y5,YXQHH,YXQLL),Colorgreen;
{周--周期K线}
FILLRGN(Z2>0 and ZzCC>=Z5,ZzHH,ZzLL),COLORMAGENTA;
FILLRGN(Z2>0 and ZzCC<Z5,ZzHH,ZzLL),COLORCYAN;
{日--K线}
//
A:=EMA(CLOSE,3);
B:=EMA(CLOSE,5);
Z:=EMA(CLOSE,15);
资本:=REF(HHV(A,B),Z);
运作:=A;
体系:=MA(运作,5);
【▲】Z:=MA(Z,7);
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100-获利盘;
WIN1:=COST(85);
WIN2:=COST(15);
股票卖出价预测:=MA(套牢盘,89)*0.618/50+CLOSE;
股票买进价预测:=CLOSE-MA(套牢盘,60)*0.618/100;
转折价明日:=REF(CLOSE,2)*2-REF(CLOSE,5);
转折价后日:=REF(CLOSE,1)*2-REF(CLOSE,4);
转折价大后日:=CLOSE*2-REF(CLOSE,3);
高:=HHV(HIGH,0);
低:=LLV(LOW,0);
DCFL:=COST(95);
SCFL:=COST(55);
JCFL:=COST(15);
CH:=COST(5);
DI:=COST(0.38);
M:=58;
X:=3;
P:=SYSPARAM(1);
WS:=BARPOS;
WS1:=IF(WS<M,WS,M);
WSP:=P-WS1+1;
WSP1:=WS1-1;
H1:=HHV(HIGH,WS1);
L1:=LLV(LOW,WS1);
HP:=H1[P];
LP:=L1[P];
HLPX:=(HP-LP)/X;
IF WS1[P]>1 THEN BEGIN
DRAWSL(WS=WSP[P],HP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX,0,WSP1[P],3),POINTDOT,LINETHICK1;
DRAWSL(WS=WSP[P],LP+HLPX*2,0,WSP1[P],3),POINTDOT,LINETHICK1,colorAAAAAA;
DRAWNUMBER(WS=WSP[P],HP,HP,2),SHIFT38,colorFF;
DRAWNUMBER(WS=WSP[P],LP,LP,2),SHIFT38,colorFF00;
DRAWNUMBER(WS=WSP[P],LP+HLPX,LP+HLPX,2),SHIFT38,colorFFFF;
DRAWNUMBER(WS=WSP[P],LP+HLPX*2,LP+HLPX*2,2),SHIFT38,colorFFFFFF;
END;
X1:=(CLOSE+LOW+HIGH)/3;
挑战巅峰:=MA(X1,5);
JCZT:=IF(CROSS(体系,【▲】Z),1,0);
SCZT:=IF(CROSS(【▲】Z,体系),2,0);
A:=SYSPARAM(1)=BARPOS;
时间:=IF(A>0,DATE,体系);
MM:=BARSLAST(DATE=时间);
HH:=HHV(HIGH,MM+1);
LL:=LLV(LOW,MM+1);
MID:=(HH+LL)/2;
RENQ:=【▲】Z-(HH-LL)/6;
加权移平均:=WMA(CLOSE,5);
JNYY:=DMA(加权移平均,VOL/CAPITAL);
個Z:=EMA(JNYY,3);
十Z:=EMA(JNYY,5);
百Z:=EMA(JNYY,7);
千Z:=EMA(JNYY,9);
萬Z:=EMA(JNYY,11);
PARTLINE(個Z<REF(個Z,1),個Z),POINTDOT,LINETHICK1,colorFFAA11;
PARTLINE(十Z<REF(十Z,1),十Z),POINTDOT,LINETHICK1,colorFFBB22;
PARTLINE(百Z<REF(百Z,1),百Z),POINTDOT,LINETHICK1,colorFFCC33;
PARTLINE(千Z<REF(千Z,1),千Z),POINTDOT,LINETHICK1,colorFFDD44;
PARTLINE(萬Z<REF(萬Z,1),萬Z),POINTDOT,LINETHICK1,colorFFEE55;
PARTLINE(個Z>REF(個Z,1),個Z),POINTDOT,LINETHICK1,colorFF00FF;
PARTLINE(十Z>REF(十Z,1),十Z),POINTDOT,LINETHICK1,colorFF99FF;
PARTLINE(百Z>REF(百Z,1),百Z),POINTDOT,LINETHICK1,colorFF88FF;
PARTLINE(千Z>REF(千Z,1),千Z),POINTDOT,LINETHICK1,colorFF77FF;
PARTLINE(萬Z>REF(萬Z,1),萬Z),POINTDOT,LINETHICK1,colorFF66FF;
DRAWLINE(SCZT,HH,RENQ,HH,1),LINETHICK1,colorCCDD77;
历史最高:=高;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,' 历史最高'+NUMTOSTR(历史最高[SYSPARAM(1)],2)),ALIGN4,colorFF00FF;
历史最低:=低;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,' 历史最低'+NUMTOSTR(历史最低[SYSPARAM(1)],2)),ALIGN4,colorFFFFFF;
获利★:=获利盘;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'获利★'+NUMTOSTR(获利★[SYSPARAM(1)],2)),ALIGN5,colorFF00;
套牢★:=套牢盘;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,' 套牢★'+NUMTOSTR(套牢★[SYSPARAM(1)],2)),ALIGN5,colorFFFFFF;
近卖预测★:=股票卖出价预测;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,' &nbs
[url=http://www.70822.com/soft/sort013/sort02/down-35127.html]任意买卖主图（日、周、月周期同显，源码，贴图，无加密）[/url]