DATE1:
=IF(多空=1,N低日,N高日);{}
hh0:
=ref(h,BARSLAST(DATE1=DATE));
ll0:
=ref(l,BARSLAST(DATE1=DATE));
H1:
=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT;
L1:
=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT;
PARTLINE(1,H1),,POINTDOT,linethick0;
PARTLINE(1,L1),,POINTDOT,linethick0;
LL:
=H1-L1;
VERTLINE(DATE=DATE1),COLORFFAAAA,,LINETHICK2;
DRAWTEXT(DATE=DATE1,SYSPARAM(4)*0.95,'起\n\n始\n\n线'),COLORFFFFFF;
起始至今天:
BARSLAST(DATE1=DATE),COLORFFFF00,LINETHICK0;
涨幅:
(C-REF(C,起始至今天))/REF(C,起始至今天)*100,COLORFFDDDD,LINETHICK0;
IF多空=1THENBEGIN
{看多}
开门线:
PARTLINE(DATE>=N低日,LL*1.50801+L1),LINETHICK1,COLOREE99FF;;
PARTLINE(DATE>=N低日,LL*2.00001+L1),COLOR9999FF,LINEDOT;
多2线:
PARTLINE(DATE>=N低日,LL*2.40001+L1),COLORFFFF99,linethick1;
PARTLINE(DATE>=N低日,LL*3.05001+L1),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N低日,LL*3.75001+L1),COLORFF9999,LINEDOT;
多5线:
PARTLINE(DATE>=N低日,LL*4.15001+L1),COLORMAGENTA,linethick2,LINEDOT;
PARTLINE(DATE>=N低日,LL*4.80001+L1),COLORRED,LINEDOT;
多7线:
PARTLINE(DATE>=N低日,LL*5.50001+L1),COLORCYAN,linethick2;
PARTLINE(DATE>=N低日,LL*6.10001+L1),COLORGREEN,LINEDOT;
PARTLINE(DATE>=N低日,LL*6.90001+L1),LINETHICK1,COLORRED;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*1.50801+0.002,NUMTOSTR(L1+LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.00001+0.002,NUMTOSTR(L1+LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*2.40001+0.002,'NO.2'+NUMTOSTR(L1+LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.05001+0.002,NUMTOSTR(L1+LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*3.75001+0.002,NUMTOSTR(L1+LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.15001+0.002,'NO.5'+NUMTOSTR(L1+LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*4.80001+0.002,NUMTOSTR(L1+LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*5.50001+0.002,'NO.7'+NUMTOSTR(L1+LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.10001+0.002,NUMTOSTR(L1+LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,L1+LL*6.90001+0.002,NUMTOSTR(L1+LL*6.90001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(DATE=DATE1,LL*1.50801+L1+0.002,'多开门'),colorred;
DRAWTEXT(DATE=DATE1,LL*6.90001+L1+0.002,'多关门'),colorred;
END;
ELSEBEGIN
{看空}
空开门线:
PARTLINE(DATE>=N高日,H1-LL*1.50801),LINETHICK1,COLOREE99FF;
PARTLINE(DATE>=N高日,H1-LL*2.00001),COLOR9999FF,LINEDOT;
空2线:
PARTLINE(DATE>=N高日,H1-LL*2.40001),COLORFFFF99;
PARTLINE(DATE>=N高日,H1-LL*3.05001),COLOR99FF99,LINEDOT;
PARTLINE(DATE>=N高日,H1-LL*3.75001),COLORFF9999,LINEDOT;
空5线:
PARTLINE(DATE>=N高日,H1-LL*4.15001),COLORMAGENTA;
PARTLINE(DATE>=N高日,H1-LL*4.80001),COLORRED,LINEDOT;
空7线:
PARTLINE(DATE>=N高日,H1-LL*5.50001),COLORCYAN;
PARTLINE(DATE>=N高日,H1-LL*6.10001),COLORGREEN,LINEDOT;
空关门线:
PARTLINE(DATE>=N高日,H1-LL*6.90001),LINETHICK1,COLORRED;
DRAWTEXT(DATE=DATE1,H1-LL*1.50801+0.002,'空开门'),color3333FF;
DRAWTEXT(DATE=DATE1,H1-LL*6.90001+0.002,'空关门'),color3333FF;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*1.50801+0.002,NUMTOSTR(H1-LL*1.50801,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.00001+0.002,NUMTOSTR(H1-LL*2.00001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*2.40001+0.002,'NO.2'+NUMTOSTR(H1-LL*2.40001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.05001+0.002,NUMTOSTR(H1-LL*3.05001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*3.75001+0.002,NUMTOSTR(H1-LL*3.75001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.15001+0.002,'NO.5'+NUMTOSTR(H1-LL*4.15001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*4.80001+0.002,NUMTOSTR(H1-LL*4.80001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*5.50001+0.002,'NO.7'+NUMTOSTR(H1-LL*5.50001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.10001+0.002,NUMTOSTR(H1-LL*6.10001,2)),COLORAAAAAA,ALIGN2;
DRAWTEXT(SYSPARAM(3)=BARPOS,H1-LL*6.90001+0.002,NUMTOSTR(H1-LL*6.90001,2)),COLORAAAAAA,ALIGN2;
END;
高年:
=ref(YEAR,BARSLAST(date=N高日));
高月:
=ref(MONTH,BARSLAST(date=N高日));
高日:
=ref(DAY,BARSLAST(date=N高日));
低年:
=ref(YEAR,BARSLAST(date=N低日));
低月:
=ref(MONTH,BARSLAST(date=N低日));
低日:
=ref(DAY,BARSLAST(date=N低日));
DRAWTEXT(SYSPARAM
(2)=BARPOS,H1,'最近'+NUMTOSTR(最近天,0)+'天最高价日期:
'+NUMTOSTR(高年,0)+'年'+NUMTOSTR(高月,0)+'月'+NUMTOSTR(高日,0)+'日'+'\n\n'
+'最近'+NUMTOSTR(最近天,0)+'天最低价日期:
'+NUMTOSTR(低年,0)+'年'+NUMTOSTR(低月,0)+'月'+NUMTOSTR(低日,0)+'日'),COLORFFAAAA,ALIGN4;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='1',c,NUMTOSTR(当前月,0)+'月转折日:
6、15、21、*25\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='2',c,NUMTOSTR(当前月,0)+'月转折日:
6、15、21\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='3',c,NUMTOSTR(当前月,0)+'月转折日:
6、15、*20、21\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='4',c,NUMTOSTR(当前月,0)+'月转折日:
6、15、21\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='5',c,NUMTOSTR(当前月,0)+'月转折日:
6、*12、15、21\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='6',c,NUMTOSTR(当前月,0)+'月转折日:
6、*14、21\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='7',c,NUMTOSTR(当前月,0)+'月转折日:
8、15、*19、23\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='8',c,NUMTOSTR(当前月,0)+'月转折日:
*6、8、15、23\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='9',c,NUMTOSTR(当前月,0)+'月转折日:
8、15、*18、23\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='10',c,NUMTOSTR(当前月,0)+'月转折日:
8、15、23、*31\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='11',c,NUMTOSTR(当前月,0)+'月转折日:
8、15、23、*28\n\n\n\n'),COLOR00FFFF,ALIGN5;
DRAWTEXT(SYSPARAM
(2)=BARPOSandNUMTOSTR(当前月,0)='12',c,NUMTOSTR(当前月,0)+'月转折日:
8、15、23、*31\n\n\n\n'),COLOR00FFFF,ALIGN5;
{-----------------------------立体K线--------------------------------------}
{-------------------------------------------------------------------------}
pl5:
=之字转向(3,5);
en1:
=之字转向(3,5)>向前引用(之字转向(3,5),1)and向前引用(之字转向(3,5),1)<=向前引用(之字转向(3,5),2)and向前引用(之字转向(3,5),2)<=向前引用(之字转向(3,5),3);
ex1:
=之字转向(3,5)<向前引用(之字转向(3,5),1)and向前引用(之字转向(3,5),1)>=向前引用(之字转向(3,5),2)and向前引用(之字转向(3,5),2)>=向前引用(之字转向(3,5),3);
pl10:
=之字转向(3,13);
en2:
=之字转向(3,10)>向前引用(之字转向(3,10),1)and向前引用(之字转向(3,10),1)<=向前引用(之字转向(3,10),2)and向前引用(之字转向(3,10),2)<=向前引用(之字转向(3,10),3);
ex2:
=之字转向(3,10)<向前引用(之字转向(3,10),1)and向前引用(之字转向(3,10),1)>=向前引用(之字转向(3,10),2)and向前引用(之字转向(3,10),2)>=向前引用(之字转向(3,10),3);
pl20:
=之字转向(3,26);
en3:
=之字转向(3,20)>向前引用(之字转向(3,20),1)and向前引用(之字转向(3,20),1)<=向前引用(之字转向(3,20),2)and向前引用(之字转向(3,20),2)<=向前引用(之字转向(3,20),3);
ex3:
=之字转向(3,20)<向前引用(之字转向(3,20),1)and向前引用(之字转向(3,20),1)>=向前引用(之字转向(3,20),2)and向前引用(之字转向(3,20),2)>=向前引用(之字转向(3,20),3);
pl40:
=之字转向(3,55);
走强1:
=上一次条件成立位置(pl5<向前引用(pl5,1));
走弱1:
=上一次条件成立位置(pl5>向前引用(pl5,1));
走强2:
=上一次条件成立位置(pl10<向前引用(pl10,1));
走弱2:
=上一次条件成立位置(pl10>向前引用(pl10,1));
走强3:
=上一次条件成立位置(pl20<向前引用(pl20,1));
走弱3:
=上一次条件成立位置(pl20>向前引用(pl20,1));
ztjz5:
=条件函数(pl10>向前引用(pl10,1),统计总数(en1,走强2),0);
ztjd5:
=条件函数(pl10>向前引用(pl10,1),统计总数(ex1,走强2),0);
dtjz5:
=条件函数(pl10<向前引用(pl10,1),统计总数(en1,走弱2),0);
dtjd5:
=条件函数(pl10<向前引用(pl10,1),统计总数(ex1,走弱2),0);
ztjz10:
=条件函数(pl20>向前引用(pl20,1),统计总数(en2,走强3),0);
ztjd10:
=条件函数(pl20>向前引用(pl20,1),统计总数(ex2,走强3),0);
dtjz10:
=条件函数(pl20<向前引用(pl20,1),统计总数(en2,走弱3),0);
dtjd10:
=条件函数(pl20<向前引用(pl20,1),统计总数(ex2,走弱3),0);
显示文字(en1anddtjz5=1,最低价*0.98,'(Ⅰ)'),colorffff00;
显示文字(ex1anddtjd5=2,最高价*1.02,'(Ⅱ)'),colorffff00;
显示文字(en2andztjz5=1,最低价*0.98,'(Ⅲ)'),colorffff00;
显示文字(ex1andpl10>向前引用(pl10,1)andztjd5=1,最高价*1.02,'⑴'),colorff;
显示文字(en1andpl10>向前引用(pl10,1)andztjz5=2,最低价*0.98,'⑵'),colorff;
显示文字(ex1andpl10>向前引用(pl10,1)andztjz5=2,最高价*1.02,'⑶'),colorff;
显示文字(en1andpl10>向前引用(pl10,1)andztjz5=3,最低价*0.98,'⑷'),colorff;
显示文字(ex2andpl20>向前引用(pl20,1)andztjd10=1,最高价*1.02,'⑸