通达信指标公式源码 红买紫加.doc

{红买紫加}MA6:=MA(C,6); MA18:=MA(C,18); 买进价:=((C-REF(MA6,1))/6+MA6)*; 买进条件:=CROSS(C,买进价)AND买进价>REF(买进价,11); 红K买进:=IF(买进条件,L,H),COLORRED; STICKLINE(买进条件,H,L,0,0),COLORRED; STICKLINE(买进条件,O,C,4,0),COLORRED; 加码价:=((C-REF(MA18,1))/18+MA18)*; 加码条件:=CROSS(C,加码价)AND加码价>REF(加码价,1); 紫K加码:=IF(加码条件,L,H),COLORFF0080; STICKLINE(加码条件,H,L,0,0),COLORFF0080; STICKLINE(加码条件,O,C,4,0),COLORFF0080;DRAWTEXT_FIX(1,,5,0,'~☆~云在云端作品~☆~'),COLORRED;{拐点}YGB1:=CLOSE>REF(CLOSE,1)ANDCLOSE>REF(CLOSE,2);YGB2:=REF(YGB1,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGB3:=REF(YGB2,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGB4:=REF(YGB3,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGB5:=REF(YGB4,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGB6:=REF(YGB5,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGB7:=REF(YGB6,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGB8:=REF(YGB7,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGB9:=REF(YGB8,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGBA:=REF(YGB9,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGBB:=REF(YGBA,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGBC:=REF(YGBB,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGBD:=CLOSE<REF(CLOSE,1)ANDCLOSE<REF(CLOSE,2);YGBE:=REF(YGBD,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);YGBF:=REF(YGBE,1)ANDCLOSE<=REF(CLOSE,1)ANDCLOSE>=REF(CLOSE,2);YGB10:=REF(YGBF,1)ANDCLOSE>=REF(CLOSE,1)ANDCLOSE<=REF(CLOSE,2);