通达信筹码天机源码

CURR:=CURRBARSCOUNT;
 量能博弈:=V>=HHV(V,10);
 量能博弈平台:REF((H+L+3*C)/5,BARSLAST(量能博弈)),LINETHICK1;
 异动雷达:=SUMBARS(REF(V,1)-V,0);
 上:=REF(H,BARSLAST(量能博弈));
 下:=REF(L,BARSLAST(量能博弈));
 量能博弈平台上:REF(H,BARSLAST(量能博弈)),LINETHICK1;
 量能博弈平台下:REF(L,BARSLAST(量能博弈)),LINETHICK1;
 黄色博弈:=量能博弈 AND 异动雷达>300;
 蓝色博弈:=量能博弈 AND BETWEEN(异动雷达,100,300);
 青色博弈:=量能博弈 AND V/CAPITAL*100>=3 AND 异动雷达<=100;
 筹码分布:=量能博弈 AND 异动雷达>=100;
 平台上:=REF(H,BARSLAST(筹码分布));
 平台下:=REF(L,BARSLAST(筹码分布));
 平台:=REF((H+L+3*C)/5,BARSLAST(筹码分布));
 A1:=REF(H-(H-L)*0.1,BARSLAST(筹码分布));
 A2:=REF(H-(H-L)*0.2,BARSLAST(筹码分布));
 A3:=REF(H-(H-L)*0.3,BARSLAST(筹码分布));
 A4:=REF(H-(H-L)*0.4,BARSLAST(筹码分布));
 A5:=REF(H-(H-L)*0.5,BARSLAST(筹码分布));
 A6:=REF(H-(H-L)*0.6,BARSLAST(筹码分布));
 A7:=REF(H-(H-L)*0.7,BARSLAST(筹码分布));
 A8:=REF(H-(H-L)*0.8,BARSLAST(筹码分布));
 A9:=REF(H-(H-L)*0.9,BARSLAST(筹码分布));
 
CB1:= BARSCOUNT(C);
 DRAWTEXT(CURR=CB1,平台上,'㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,平台下,'㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,平台上,'㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,A1,'㎏㎏㎏㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,平台下,'㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,平台,'㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏') ,COLORRED;
 DRAWTEXT(CURR=CB1,平台,'㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏') ,COLORRED;
 上市首日:=IF(1=1,CB1=1,0);
 消失条件:=COUNT(筹码分布,CB1)=0;
 平台上0:=REF(H,BARSLAST(上市首日));
 平台下0:=REF(L,BARSLAST(上市首日));
 平台0:=REF((H+L+3*C)/5,BARSLAST(上市首日));
 A10:=REF(H-(H-L)*0.1,BARSLAST(上市首日));
 A20:=REF(H-(H-L)*0.2,BARSLAST(上市首日));
 A30:=REF(H-(H-L)*0.3,BARSLAST(上市首日));
 A40:=REF(H-(H-L)*0.4,BARSLAST(上市首日));
 A50:=REF(H-(H-L)*0.5,BARSLAST(上市首日));
 A60:=REF(H-(H-L)*0.6,BARSLAST(上市首日));
 A70:=REF(H-(H-L)*0.7,BARSLAST(上市首日));
 A80:=REF(H-(H-L)*0.8,BARSLAST(上市首日));
 A90:=REF(H-(H-L)*0.9,BARSLAST(上市首日));
 
CB2:= CB1 AND 消失条件;
 DRAWTEXT(CURR=CB2,平台上0,'㎏㎏㎏') ,COLORFFFFFF;
 DRAWTEXT(CURR=CB2,平台下0,'㎏㎏㎏') ,COLORFFFFFF;
 DRAWTEXT(CURR=CB2,平台上0,'㎏㎏㎏') ,COLORFFFFFF;
 DRAWTEXT(CURR=CB2,平台下0,'㎏㎏㎏') ,COLORFFFFFF;
 DRAWTEXT(CURR=CB2,平台0,'㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏') ,COLORFFFFFF;
 DRAWTEXT(CURR=CB2,平台0,'㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏㎏') ,COLORFFFFFF;
 台上:=REF(H,BARSLAST(青色博弈));
 台下:=REF(L,BARSLAST(青色博弈));
 台:=REF((H+L+3*C)/5,BARSLAST(青色博弈));
 A11:=REF(H-(H-L)*0.1,BARSLAST(青色博弈));
 A21:=REF(H-(H-L)*0.2,BARSLAST(青色博弈));
 A31:=REF(H-(H-L)*0.3,BARSLAST(青色博弈));
 A41:=REF(H-(H-L)*0.4,BARSLAST(青色博弈));
 A51:=REF(H-(H-L)*0.5,BARSLAST(青色博弈));
 A61:=REF(H-(H-L)*0.6,BARSLAST(青色博弈));
 A71:=REF(H-(H-L)*0.7,BARSLAST(青色博弈));
 A81:=REF(H-(H-L)*0.8,BARSLAST(青色博弈));
 A91:=REF(H-(H-L)*0.9,BARSLAST(青色博弈));
 清晰转换A:=COUNT(CROSS(台,平台),BARSLAST(青色博弈))=0;
 清晰转换B:=COUNT(CROSS(平台,台),BARSLAST(青色博弈))=0;
 CB3:= CB1 AND 清晰转换A AND 清晰转换B;
 DRAWTEXT(CURR=CB3,台上,'㎏㎏㎏') ,COLORYELLOW;
 DRAWTEXT(CURR=CB3,台下,'㎏㎏㎏') ,COLORYELLOW;
 DRAWTEXT(CURR=CB3,台上,'㎏㎏㎏') ,COLORYELLOW;
 DRAWTEXT(CURR=CB3,台下,'㎏㎏㎏') ,COLORYELLOW;
 DRAWTEXT(CURR=CB3,台,'㎏㎏㎏㎏㎏㎏') ,COLORYELLOW;
 DRAWTEXT(CURR=CB3,台,'㎏㎏㎏㎏㎏㎏') ,COLORYELLOW;