求高手做一个涨停回吐公式

Question

条件：N日内有一个涨停，后股价又回落至涨停开盘价附近（股价回落的时间涵盖一天至N天）。

Answer 1

MA30: MA(C,30 ),COLORGREEN;
MA30_: IF(MA30>=REF(MA30,1),MA30,DRAWNULL),COLORMAGENTA;
阳涨幅:=4;{可自调4-10}
阳倍量:=1.90;{王子倍量倍数}
单阳:=C>O*(1+阳涨幅/100) AND VOL>REF(VOL,1)*阳倍量;
LS0:=BARSLAST(单阳);
不破价:=REF(L,LS0);
DRAWTEXT(单阳,L-L*0.02,'阳'),COLOR00FFFF;
位置1:=不破价 *0.998;
位置2:=不破价 *0.98;
LS11:=IF(1,LS0=1,单阳);
LS21:=IF(1,LLV(L,1)>REF(L,1),1);
单阳不破:=LS11 AND LS21;
STICKLINE(单阳不破,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破,位置2,'1'),COLORGREEN;
LS12:=IF(2,LS0=2,单阳);
LS22:=IF(2,LLV(L,2)>REF(L,2),1);
单阳不破2:=LS12 AND LS22;
STICKLINE(单阳不破2,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破2,位置2,'2'),COLORGREEN;
LS13:=IF(3,LS0=3,单阳);
LS23:=IF(3,LLV(L,3)>REF(L,3),1);
单阳不破3:=LS13 AND LS23;
STICKLINE(单阳不破3,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破3,位置2,'3'),COLORGREEN;
LS14:=IF(4,LS0=4,单阳);
LS24:=IF(4,LLV(L,4)>REF(L,4),1);
单阳不破4:=LS14 AND LS24;
STICKLINE(单阳不破4,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破4,位置2,'4'),COLORGREEN;
LS15:=IF(5,LS0=5,单阳);
LS25:=IF(5,LLV(L,5)>REF(L,5),1);
单阳不破5:=LS15 AND LS25;
STICKLINE(单阳不破5,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破5,位置2,'5'),COLORGREEN;
LS16:=IF(6,LS0=6,单阳);
LS26:=IF(6,LLV(L,6)>REF(L,6),1);
单阳不破6:=LS16 AND LS26;
STICKLINE(单阳不破6,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破6,位置2,'6'),COLORGREEN;
LS17:=IF(7,LS0=7,单阳);
LS27:=IF(7,LLV(L,7)>REF(L,7),1);
单阳不破7:=LS17 AND LS27;
STICKLINE(单阳不破7,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破7,位置2,'7'),COLORGREEN;
LS18:=IF(8,LS0=8,单阳);
LS28:=IF(8,LLV(L,8)>REF(L,8),1);
单阳不破8:=LS18 AND LS28;
STICKLINE(单阳不破8,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破8,位置2,'8'),COLORGREEN;
LS19:=IF(9,LS0=9,单阳);
LS29:=IF(9,LLV(L,9)>REF(L,9),1);
单阳不破9:=LS19 AND LS29;
STICKLINE(单阳不破9,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破9,位置2,'9'),COLORGREEN;
LS110:=IF(10,LS0=10,单阳);
LS210:=IF(10,LLV(L,10)>REF(L,10),1);
单阳不破10:=LS110 AND LS210;
STICKLINE(单阳不破10,位置1,不破价,4,0),COLORRED;
DRAWTEXT(单阳不破10,位置2,'10'),COLORGREEN;