現(xiàn)手買:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
現(xiàn)手賣:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
合:=ABS(現(xiàn)手買)+ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
差:=ABS(現(xiàn)手買)-ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
MPB1:=ABS(現(xiàn)手買)/合*100;
MPB2:=ABS(現(xiàn)手賣)/合*100;
TESTSKIP(NOT(現(xiàn)手買 OR 現(xiàn)手賣 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(100,1000,400,940,RGB(190,190,190));
DRAWRECTREL(100,995,400,945,RGB(200,200,200));
DRAWRECTREL(100,990,400,950,RGB(210,210,210));
DRAWRECTREL(100,985,400,955,RGB(220,220,220));
DRAWRECTREL(100,980,400,960,RGB(230,230,230));
DRAWRECTREL(100,975,400,965,RGB(240,240,240));
DRAWRECTREL(100,970,400,970,RGB(250,250,250));
DRAWRECTREL(250-現(xiàn)手賣*200/合,1000,250,940,RGB(0,128,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,995,250,945,RGB(0,148,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,990,250,950,RGB(0,168,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,985,250,955,RGB(0,188,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,980,250,960,RGB(0,208,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,975,250,965,RGB(0,228,0));
DRAWRECTREL(250-現(xiàn)手賣*200/合,970,250,970,RGB(0,248,0));
DRAWRECTREL(250,1000,250+現(xiàn)手買*200/合,940,RGB(128,0,0));
DRAWRECTREL(250,995,250+現(xiàn)手買*200/合,945,RGB(148,0,0));
DRAWRECTREL(250,990,250+現(xiàn)手買*200/合,950,RGB(168,0,0));
DRAWRECTREL(250,985,250+現(xiàn)手買*200/合,955,RGB(188,0,0));
DRAWRECTREL(250,980,250+現(xiàn)手買*200/合,960,RGB(208,0,0));
DRAWRECTREL(250,975,250+現(xiàn)手買*200/合,965,RGB(228,0,0));
DRAWRECTREL(99.8,1000.2,99.8,939.8,RGB(250,250,0));{左}
DRAWRECTREL(400.2,939.8,400.2,1000.2,RGB(250,250,0));{右}
DRAWRECTREL(99.8,939.8,400.2,939.8,RGB(250,250,0));{上}
DRAWRECTREL(250,1000,250,940,RGB(250,250,0));{中}
DRAWTEXT_FIX(1,0.38,0.9,0,STRCAT(STRCAT(”,CON2STR(現(xiàn)手買,1)),’萬’)),COLORFF00FF;
DRAWTEXT_FIX(1,0.08,0.9,0,STRCAT(STRCAT(”,CON2STR(現(xiàn)手賣,1)),’萬’)),COLORFFFF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.21,0.9,0,STRCAT(‘ ‘,STRCAT(CON2STR(差,1),’萬’))) COLORFF00FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.21,0.9,0,STRCAT(' ',STRCAT(CON2STR(差,1),'萬'))) COLOR00FFFF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.21,0.9,0,STRCAT(‘ ‘,STRCAT(CON2STR(差,1),’萬’))) COLORFFFF00;
DRAWTEXT_FIX(1,0.048,0.95,0,STRCAT(STRCAT(‘ ‘,CON2STR(MPB2,1)),’%%’)),COLORFFFF00;
DRAWTEXT_FIX(1,0.408,0.95,0,STRCAT(STRCAT(”,CON2STR(MPB1,1)),’%%’)),COLORFF00FF;
代碼1:=CODELIKE(‘000625’);{分別在年、月、日及買入價位、買入股數(shù)等處填入實(shí)際數(shù)據(jù)}
買入時間1:=YEAR{年}=2013 AND MONTH{月}=5 AND DAY{日}=22;
買入價位1:=10.65;
買入股數(shù)1:=100;
天數(shù)1:=BARSLAST(買入時間1);
{第二只個股，填入代碼、買入時間、價位及股數(shù)}
代碼2:=CODELIKE(‘0’);{在[0]位置處填寫個股代碼}
買入時間2:=YEAR{年}=2013 AND MONTH {月}=0 AND DAY{日}=0;
買入價位2:=0;
買入股數(shù)2:=0;
天數(shù)2:=BARSLAST(買入時間2);
{第三只個股，填入代碼、買入時間、價位及股數(shù)}
代碼3:=CODELIKE(‘0’);
買入時間3:=YEAR{年}=0 AND MONTH{月}=0 AND DAY{日}=0;
買入價位3:=0;
買入股數(shù)3:=0;
天數(shù)3:=BARSLAST(買入時間3);
{1}
買入個股時間1:=IF(代碼1,買入時間1,0);
買入價格1:=IF(買入個股時間1,買入價位1,0);
買入價1:=REF(買入價位1,BARSLAST(買入個股時間1));
現(xiàn)價1:=IF(BARSLAST(買入個股時間1)+1>=1,CONST(C),0);
最高價條件1:=IF(BARSLAST(買入個股時間1)+1>=1,H=HHV(H,BARSLAST(買入個股時間1)+1),0);
最高價橫線1:=IF(BARSLAST(最高價條件1)>=0 AND BARSLAST(買入個股時間1)+1>=1,CONST(REF(H,BARSLAST(最高價條件1))),0);
最低價條件1:=IF(BARSLAST(買入個股時間1)+1>=1,L=LLV(L,BARSLAST(買入個股時間1)+1),0);
最低價橫線1:=IF(BARSLAST(最低價條件1)+1>=1 AND BARSLAST(買入個股時間1)+1>=1,
CONST(REF(L,BARSLAST(最低價條件1))),0);
{2}
買入個股時間2:=IF(代碼2,買入時間2,0);
買入價格2:=IF(買入個股時間2,買入價位2,0);
買入價2:=REF(買入價位2,BARSLAST(買入個股時間2));
現(xiàn)價2:=IF(BARSLAST(買入個股時間2)+1>=1,CONST(C),0);
最高價條件2:=IF(BARSLAST(買入個股時間2)+1>=1,H=HHV(H,BARSLAST(買入個股時間2)+1),0);
最高價橫線2:=IF(BARSLAST(最高價條件2)+1>=1 AND BARSLAST(買入個股時間2)+1>=1,
CONST(REF(H,BARSLAST(最高價條件2))),0);
最低價條件2:=IF(BARSLAST(買入個股時間2)+1>=1,L=LLV(L,BARSLAST(買入個股時間2)+1),0);
最低價橫線2:=IF(BARSLAST(最低價條件2)+1>=1 AND BARSLAST(買入個股時間2)+1>=1,
CONST(REF(L,BARSLAST(最低價條件2))),0);
{3}
買入個股時間3:=IF(代碼3,買入時間3,0);
買入價格3:=IF(買入個股時間3,買入價位3,0);
買入價3:=REF(買入價位3,BARSLAST(買入個股時間3));
現(xiàn)價3:=IF(BARSLAST(買入個股時間3)+1>=1,CONST(C),0);
最高價條件3:=IF(BARSLAST(買入個股時間3)+1>=1,H=HHV(H,BARSLAST(買入個股時間3)+1),0);
最高價橫線3:=IF(BARSLAST(最高價條件3)+1>=1 AND BARSLAST(買入個股時間3)>=0,
CONST(REF(H,BARSLAST(最高價條件3))),0);
最低價條件3:=IF(BARSLAST(買入個股時間3)+1>=1,L=LLV(L,BARSLAST(買入個股時間3)+1),0);
最低價橫線3:=IF(BARSLAST(最低價條件3)+1>=1 AND BARSLAST(買入個股時間3)+1>=1,
CONST(REF(L,BARSLAST(最低價條件3))),0);
持股數(shù)量【股】:IF(代碼1,買入股數(shù)1,IF(代碼2,買入股數(shù)2,IF(代碼3,買入股數(shù)3,DRAWNULL))),NODRAW;
持股天數(shù):IF(代碼1,天數(shù)1,IF(代碼2,天數(shù)2,IF(代碼3,天數(shù)3,DRAWNULL))),NODRAW;
最高價:=IF(代碼1,最高價橫線1,IF(代碼2,最高價橫線2,IF(代碼3,最高價橫線3,DRAWNULL))),COLOR00FFFF,LINETHICK2;
最低價:=IF(代碼1,最低價橫線1,IF(代碼2,最低價橫線2,IF(代碼3,最低價橫線3,DRAWNULL))),COLORFF0000,LINETHICK2;
買入價:IF(代碼1,買入價1,IF(代碼2,買入價2,IF(代碼3,買入價3,DRAWNULL))),COLORFF00FF,LINETHICK4;
現(xiàn)價:IF(代碼1,現(xiàn)價1,IF(代碼2,現(xiàn)價2,IF(代碼3,現(xiàn)價3,DRAWNULL))),COLORFFFF00,LINETHICK2;
買入時間:=IF(代碼1,買入時間1,IF(代碼2,買入時間2,IF(代碼3,買入時間3,DRAWNULL)));
股數(shù):=IF(代碼1,買入股數(shù)1,IF(代碼2,買入股數(shù)2,IF(代碼3,買入股數(shù)3,DRAWNULL)));
DRAWBAND(現(xiàn)價,RGB(150,0,0),買入價,RGB(0,180,180));
DRAWBAND(買入價,RGB(0,180,180),買入價,RGB(0,180,180));
DRAWBAND(現(xiàn)價,RGB(180,0,180),現(xiàn)價,RGB(180,0,180));
DRAWKLINE(H,O,L,C);
OZ:=DYNAINFO(3)*0.85,COLOR0000FF;
RSVV:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;
VARB2:=(RSVV/2+22)*1;
VAR1T:=EMA(VOL,13);
VAR2T:=EMA(AMOUNT,13);
VAR3T:=((VAR2T /VAR1T) / 100);
VAR4T:=(((CLOSE -VAR3T) / VAR3T) * 100);
VAR5T:=((VAR4T < (0)) AND ZXNH),COLORRED;
VAR6T:=VAR5T AND RSVV DRAWICON(VAR6T>0,L*0.995,34);
DRAWTEXT(VAR6T>0,L*0.99,’買’),COLOR00FFFF;
K:=(C+H+L)/3;
D:=EMA(K,4);
VAR1X:=REF(EMA(K,4),1)COLORMAGENTA,LINETHICK2;
VARXX:=(EMA(K,4)-VAR1X)/VAR1X*100,NODRAW;
VAR2X:IF(VARXX>=0,REF(EMA(K,4),BARSLAST(CROSS(VARXX,0))+1),DRAWNULL)COLORFF00FF,LINETHICK2;
VAR3X:IF(VARXX<0,REF(EMA(K,4),BARSLAST(CROSS(0,VARXX))+1),DRAWNULL)COLOR00FF00,LINETHICK2;
STICKLINE(VARXX>=0,VAR2X,VAR1X,0,0)COLORFF00FF;
STICKLINE(VARXX<0,VAR3X,VAR1X,0,0)COLOR00FF00;
STICKLINE(CROSS(VARXX,0),C,O,2,0)COLORYELLOW;
STICKLINE(CROSS(0,VARXX),C,O,2,0)COLORGREEN;
操盤線:VAR1X,COLORFF00FF,LINETHICK4;
IF(VARXX<0,VAR1X,DRAWNULL)COLOR00FF00,LINETHICK4;
D1:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),’年’);
AA2:=STRCAT(CON2STR(MONTH,0),’月’);
AA3:=STRCAT(CON2STR(DAY,0),’日’);
AA4:=STRCAT(‘【’,IF(WEEKDAY=1,’一’,IF(WEEKDAY=2,’二’,IF(WEEKDAY=3,’三’,’日’))));
AA5:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),’】’);
DRAWTEXT_FIX(D1,0.78,0,0,AA5),COLORFFFF00;
現(xiàn)贏利:=(現(xiàn)價-買入價)/買入價*100;
金額:=買入價*現(xiàn)贏利*股數(shù)/100;
WW3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(‘【’,’現(xiàn)贏利’),’】’),’:’),CON2STR(現(xiàn)贏利,2)),’﹪’);
WW4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(‘【’,’現(xiàn)虧損’),’】’),’:’),CON2STR(現(xiàn)贏利,2)),’﹪’);
WW5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(‘【’,’利潤’),’】’),’:’),CON2STR(金額,0)),’元’);
WW6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(‘【’,’虧損’),’】’),’:’),CON2STR(金額,0)),’元’);
DRAWTEXT_FIX(HHV(H,80)=最高價 AND 現(xiàn)價>=買入價,0.64,1,0,WW3),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高價 OR HHV(H,80)<最高價) AND 最高價>0 AND
現(xiàn)價>=買入價,0.67,1,0,WW3),COLORRED;
DRAWTEXT_FIX(HHV(H,80)=最高價 AND 現(xiàn)價<買入價,0.64,1,0,WW4),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高價 OR HHV(H,80)<最高價) AND 最高價>0 AND
現(xiàn)價<買入價,0.67,1,0,WW4),COLORGREEN;
DRAWTEXT_FIX(HHV(H,80)=最高價 AND 現(xiàn)價>=買入價,0.8,1,0,WW5),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高價 OR HHV(H,80)<最高價) AND 最高價>0 AND
現(xiàn)價>=買入價,0.83,1,0,WW5),COLORYELLOW;
DRAWTEXT_FIX(HHV(H,80)=最高價 AND 現(xiàn)價<買入價,0.8,1,0,WW6),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND (HHV(H,80)>最高價 OR HHV(H,80)<最高價) AND 最高價>0 AND
現(xiàn)價<買入價,0.83,1,0,WW6),COLORWHITE;
DRAWNUMBER(ISLASTBAR,C,C),COLOR00FFFF;