软件名称：[B]轻松操盘－－提供源码 贴图[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：9.00 KB
官方主页：Home Page
更新时间：2012-04-14 05:01:10
软件简介:

来自，回报。用法很简单，文字提示，一看就明白。
源码奉上；
 

轻松操盘
量能饱和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),NODRAW,COLORYELLOW;  N:=10;突破:REF(EMA(C,N),1),COLORMAGENTA,LINETHICK1; A1X:(EMA(C,5)-突破)/突破*100,NODRAW;距离:=(C-突破)/突破*100,NODRAW;出击:IF(A1X>=0,REF(EMA(C,N),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLORMAGENTA,LINETHICK1;
休假:IF(A1X<0,REF(EMA(C,N),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK1;STICKLINE(A1X>=0,出击,突破,0,-1)COLORMAGENTA;STICKLINE(A1X<0,休假,突破,0,-1)COLORGREEN;
持币:IF(A1X<0,突破,DRAWNULL)COLORGREEN,LINETHICK1;DRAWTEXT(ISLASTBAR AND 出击,出击,'     出击'),COLORMAGENTA;DRAWTEXT(ISLASTBAR AND 休假,休假,'     休假'),COLORGREEN;
短顶:HHV(H,20),COLORWHITE;短底:LLV(L,20),COLOR00FF00;长顶:HHV(H,60),COLORRED;长底:LLV(L,60),COLORYELLOW;DRAWKLINE(H,O,L,C);
涨幅:IF(A1X>=0,(C-出击)/出击*100,DRAWNULL)NODRAW;跌幅:IF(A1X<0,(C-休假)/休假*100,DRAWNULL)NODRAW;MA5:=MA(C,5);MA18:=MA(CLOSE,18);MA13:=MA(C,13);A:=(3*C+L+O+H)/6;
VAR1:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;MTM:=C-REF(C,1);CB:=EMA(VAR1,13);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);DRAWTEXT(FILTER(卖=1,1),HIGH*1.01,'S'),COLORGREEN;买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'B'),COLOR00DDDD;加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,'↖㈩'),COLORWHITE;
跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);DRAWTEXT(跟,LOW*0.999,'↖  跟'),COLORRED;阳涨幅:=5;阳倍量:=2;
单阳:=C>O*(1+阳涨幅/100) AND VOL>REF(VOL,1)*阳倍量;DRAWTEXT(CURRBARSCOUNT<100 AND 单阳,L*0.98,'阳'),COLOR00BBBB;STICKLINE(CURRBARSCOUNT<100 AND 单阳,O,C,0.8,0),COLOR00FFFF;
高不破价:=REF(C,BARSLAST(单阳));中不破价:=REF((C+L)/2,BARSLAST(单阳));低不破价:=REF(L,BARSLAST(单阳));
单阳不破:=CURRBARSCOUNT<100 AND BARSLAST(单阳)<11 AND {(LLV(L,BARSLAST(单阳))>低不破价 OR LLV(L,BARSLAST(单阳))=低不破价)}(LLV(C,BARSLAST(单阳))>低不破价 OR LLV(C,BARSLAST(单阳))=低不破价);
STICKLINE(单阳不破,低不破价-低不破价*0.002,{低不破价}低不破价-低不破价*0.002,4.1,0),COLORRED;量:V,NODRAW;单阳量:REF(V,BARSLAST(单阳)),NODRAW;单阳后均量:SUM(V,BARSLAST(单阳)-1)/(BARSLAST(单阳)-1),NODRAW;
单阳后缩量:单阳后均量<单阳量*0.75,NODRAW;单阳线体:=REF(C-O,BARSLAST(单阳)),NODRAW;小线体:=ABS(C-O)<单阳线体/2.5,NODRAW;小线体严:COUNT(小线体,BARSLAST(单阳)-1)>BARSLAST(单阳)-2,NODRAW;
小线体松:COUNT(小线体,BARSLAST(单阳)-1)>BARSLAST(单阳)-3 AND C<REF(C,1)*1.03,NODRAW;两天:=LLV(C,BARSLAST(单阳))>低不破价 OR LLV(C,BARSLAST(单阳))=低不破价;
一般:=LLV(C,BARSLAST(单阳)-2)>低不破价 OR LLV(C,BARSLAST(单阳)-2)=低不破价;一般选股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(单阳)<9 AND 两天 AND 一般,低不破价,低不破价,2,0),COLOR88FF00;
较强:=LLV(C,BARSLAST(单阳)-2)>中不破价 OR LLV(C,BARSLAST(单阳)-2)=中不破价;较强选股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(单阳)<9 AND 两天 AND 较强,中不破价,中不破价,2,0),COLOR0088FF;
最强:=LLV(C,BARSLAST(单阳)-2)>高不破价 OR LLV(C,BARSLAST(单阳)-2)=高不破价;最强选股:STICKLINE(CURRBARSCOUNT<100 AND BARSLAST(单阳)<9 AND 两天 AND 最强,高不破价,高不破价,2,0),COLOR00FFFF;
DRAWTEXT(BARSLAST(单阳)=1 AND 单阳不破,低不破价-低不破价*0.02,'1'),COLOR00BB00;DRAWTEXT(BARSLAST(单阳)=2 AND 单阳不破,低不破价-低不破价*0.02,'2'),COLOR00BB00;
DRAWTEXT(BARSLAST(单阳)=3 AND 单阳不破,低不破价-低不破价*0.02,'3'),COLOR00BB00;DRAWTEXT(BARSLAST(单阳)=4 AND 单阳不破,低不破价-低不破价*0.02,'4'),COLOR00BB00;
DRAWTEXT(BARSLAST(单阳)=5 AND 单阳不破,低不破价-低不破价*0.02,'5'),COLOR00BB00;DRAWTEXT(BARSLAST(单阳)=6 AND 单阳不破,低不破价-低不破价*0.02,'6'),COLOR00BB00;
DRAWTEXT(BARSLAST(单阳)=7 AND 单阳不破,低不破价-低不破价*0.02,'7'),COLOR00BB00;DRAWTEXT(BARSLAST(单阳)=8 AND 单阳不破,低不破价-低不破价*0.02,'8'),COLOR00BB00;
DRAWTEXT(BARSLAST(单阳)=9 AND 单阳不破,低不破价-低不破价*0.02,'9'),COLOR00BB00;DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价-低不破价*0.02,'10'),COLOR00BB00;
ARE4:=MA(C,20); ARE5:=(C>MA(C,5)); ARE6:=(MA(C,5)>MA(C,10)); ARE7:=(C>MA(C,10));ARE8:=(MA(C,5)>MA(C,20)); ARE9:=(C>MA(C,20)); ARE10:=REF(ARE4,1); ARE11:=(ARE4>ARE10);
AVX:=(((((IF(ARE5,10,(0-10))+IF(ARE6,10,(0-10)))+IF(ARE7,10,(0-10)))+IF(ARE8,10,(0-10)))+IF(ARE9,10,(0-10)))+IF(ARE11,10,(0-10)));DSLX:=(C/INDEXC); DSLX1:=MA(DSLX,5); DSLX2:=MA(DSLX,10);  VRE1:=MA(V,5); VRE2:=MA(V,10);
阻力位:=IF((C>200),(C*1.01),(C*1.07)); 阻力位１:=IF((C<10),(C*1.05),阻力位);止损位:=IF((C>200),(C*0.99),(C*0.93)); 止损位１:=IF((C<10),(C*0.95),止损位);TJTS1:=ISLASTBAR AND C<500; TJTS2:=ISLASTBAR AND C>500;
KDAT:=REFDATE(HHV(H,45)/1.01,DATE);{解盘位置}解盘1:=CONST(IF(TJTS1 AND  ((CROSS(AVX,1) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));
解盘2:=CONST(IF(TJTS1 AND  ((CROSS(AVX,1) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盘3:=CONST(IF(TJTS1 AND  ((CROSS(AVX,1) AND (VRE1 > VRE2)) AND (DSLX < DSLX1)) ,1,0));
解盘4:=CONST(IF(TJTS1 AND  ((CROSS(AVX,1) AND (VRE1 <= VRE2)) AND (DSLX < DSLX1)) ,1,0));解盘5:=CONST(IF(TJTS1 AND  ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));
解盘6:=CONST(IF(TJTS1 AND  ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盘7:=CONST(IF(TJTS1 AND  ((CROSS(1,AVX) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));
解盘8:=CONST(IF(TJTS1 AND  ((CROSS(1,AVX) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盘9:=CONST(IF(TJTS1 AND  ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));
解盘10:=CONST(IF(TJTS1 AND  ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盘11:=CONST(IF(TJTS1 AND  ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));
解盘12:=CONST(IF(TJTS1 AND  ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盘13:=CONST(IF(TJTS1 AND  ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX >= DSLX1)) ,1,0));
解盘14:=CONST(IF(TJTS1 AND  ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX >= DSLX1)) ,1,0));解盘15:=CONST(IF(TJTS1 AND  ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) AND (DSLX < DSLX1)) ,1,0));
解盘16:=CONST(IF(TJTS1 AND  ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) AND (DSLX < DSLX1)) ,1,0));解盘17:=CONST(IF(TJTS2 AND  (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));
解盘18:=CONST(IF(TJTS2 AND  (CROSS(AVX,1) AND (VRE1 >= VRE2)) ,1,0));解盘19:=CONST(IF(TJTS2 AND  (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));
解盘20:=CONST(IF(TJTS2 AND  (CROSS(AVX,1) AND (VRE1 < VRE2)) ,1,0));解盘21:=CONST(IF(TJTS2 AND  (CROSS(1,AVX) AND (VRE1 >= VRE2)) ,1,0));
解盘22:=CONST(IF(TJTS2 AND  (CROSS(1,AVX) AND (VRE1 < VRE2)) ,1,0));解盘23:=CONST(IF(TJTS2 AND  (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 >= VRE2)) ,1,0));
解盘24:=CONST(IF(TJTS2 AND  (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (VRE1 < VRE2)) ,1,0));解盘25:=CONST(IF(TJTS2 AND  (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 >= VRE2)) ,1,0));
解盘26:=CONST(IF(TJTS2 AND  (((AVX < 1) AND (REF(AVX,1) < 0)) AND (VRE1 < VRE2)) ,1,0));解盘文字1:=IF(解盘1=1,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右',
IF(解盘2=1,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右',IF(解盘3=1,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右',
IF(解盘4=1,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右',IF(解盘5=1,'该股形态

		[url=http://www.70822.com/soft/sort013/sort05/down-47129.html]轻松操盘－－提供源码 贴图[/url]