{孤岛判势}

input:N(2,1,10),N1(3,1,10),N2(4,1,10),N3(5,1,10),N4(6,1,10);
XA:=H<ref(LLV(L,N),1) or H<ref(LLV(L,N1),1) or H<ref(LLV(L,N2),1) or H<ref(LLV(L,N3),1) or H<ref(LLV(L,N4),1);
XB:=ref(LLV(L,N),1)>ref(H,N+1) or ref(LLV(L,N1),1)>ref(H,N1+1) or ref(LLV(L,N2),1)>ref(H,N2+1) or ref(LLV(L,N3),1)>ref(H,N3+1) or ref(LLV(L,N4),1)>ref(H,N4+1);
XC:=C>=O;
YY:XA and XB and XC=0,LINETHICK; //强势孤岛
ZZ:XA and XB and XC,LINETHICK;  //弱势孤岛

explain(YY,'孤岛夜星(强势)\n\n在局部的高位，由于在不长的时间内出现两个方向相反的跳空缺口，并把两个缺口之间的Ｋ线孤立成一个岛形状，此岛往往是一段时间内的重要头部,若三日之内回补缺口,反转力道减弱。'),colorgreen;
explain(ZZ,'孤岛(弱势)\n\n在局部的高位，由于在不长的时间内出现两个方向相反的跳空缺口，并把两个缺口之间的Ｋ线孤立成一个岛形状，此岛往往是一段时间内的重要头部,若三日之内回补缺口,反转力道减弱。'),colormagenta;
PA:=L>ref(HHV(H,N),1) or L>ref(HHV(H,N1),1) or L>ref(HHV(H,N2),1) or L>ref(HHV(H,N3),1) or L>ref(HHV(H,N4),1);
PB:=ref(HHV(H,N),1)<ref(L,N+1) or ref(HHV(H,N1),1)<ref(L,N1+1) or ref(HHV(H,N2),1)<ref(L,N2+1) or ref(HHV(H,N3),1)<ref(L,N3+1) or ref(HHV(H,N4),1)<ref(L,N4+1);
PP:PA and PB and XC,LINETHICK;
QQ:PA and PB and XC=0,LINETHICK;
explain(PP,'孤岛晨星(强势)\n\n在局部的低位，由于在不长的时间内出现两个方向相反的跳空缺口，并把两个缺口之间的Ｋ线孤立成一个岛形状，此岛往往是一段时间内的重要底部,若三日之内回补缺口,反转力道减弱。'),colorred; //强势孤岛
explain(QQ,'孤岛(弱势)\n\n在局部的低位，由于在不长的时间内出现两个方向相反的跳空缺口，并把两个缺口之间的Ｋ线孤立成一个岛形状，此岛往往是一段时间内的重要底部,若三日之内回补缺口,反转力道减弱。'),coloryellow;  //弱势孤岛
{孤岛}
STICKLINE(PP,REF(H,1)*1.001,L*0.999,25,0),COLOR0099FF;//孤岛夜星(强势)
STICKLINE(QQ,REF(H,1)*1.001,L*0.999,25,0),COLOR00FF99;//孤岛(弱势)
STICKLINE(YY,REF(L,1)*0.999,H*1.001,25,0),COLORFF99FF;
STICKLINE(ZZ,REF(L,1)*0.999,H*1.001,25,0),COLOR99FF99;