通达信Ⅹ-筹码天机公式源码如下:
MA3:="MASS.A"; MA5:="MASS.B"; 量能博弈:=(VOL >= HHV(VOL,10)); FV:=VOL; 量能博弈平台:((REF((((HIGH + LOW) + (3 * CLOSE)) / 5),BARSLAST(量能博弈)) * MA3) / MA5),LINETHICK0,colorFFFFFF; 异动雷达:=SUMBARS((REF(FV,1) - FV),0); 上:=REF(HIGH,BARSLAST(量能博弈)); 下:=REF(LOW,BARSLAST(量能博弈)); VAR1:=(INBLOCK('A股板块') OR INBLOCK('B股板块')); 量能博弈平台上:REF(HIGH,BARSLAST(量能博弈)),LINETHICK0,colorFFFFFF; 量能博弈平台下:REF(LOW,BARSLAST(量能博弈)),LINETHICK0,colorFFFFFF; 短线超跌:=(MA(CLOSE,14) * 0.9); 黄色博弈:=(量能博弈 AND (异动雷达 > 300)); 蓝色博弈:=(量能博弈 AND BETWEEN(异动雷达,100,300)); 青色博弈:=((量能博弈 AND (((VOL / CAPITAL) * 100) >= 3)) AND (异动雷达 <= 100)); 筹码分布:=(量能博弈 AND (异动雷达 >= 100)); 平台上:=REF(HIGH,BARSLAST(筹码分布)); 平台下:=REF(LOW,BARSLAST(筹码分布)); 平台:=REF((((HIGH + LOW) + (3 * CLOSE)) / 5),BARSLAST(筹码分布)); A1:=REF((HIGH - ((HIGH - LOW) * 0.1)),BARSLAST(筹码分布)); A2:=REF((HIGH - ((HIGH - LOW) * 0.2)),BARSLAST(筹码分布)); A3:=REF((HIGH - ((HIGH - LOW) * 0.3)),BARSLAST(筹码分布)); A4:=REF((HIGH - ((HIGH - LOW) * 0.4)),BARSLAST(筹码分布)); A5:=REF((HIGH - ((HIGH - LOW) * 0.5)),BARSLAST(筹码分布)); A6:=REF((HIGH - ((HIGH - LOW) * 0.6)),BARSLAST(筹码分布)); A7:=REF((HIGH - ((HIGH - LOW) * 0.7)),BARSLAST(筹码分布)); A8:=REF((HIGH - ((HIGH - LOW) * 0.8)),BARSLAST(筹码分布)); A9:=REF((HIGH - ((HIGH - LOW) * 0.9)),BARSLAST(筹码分布)); DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台上,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A1,'﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A2,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A3,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A4,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A5,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A6,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A7,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A8,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A9,'﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台下,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台上,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A1,'﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A2,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A3,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A4,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A5,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A6,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A7,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A8,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),A9,'﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台下,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND (MA3 = MA5)),平台,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFF; 上市首日:=IF((VAR1 = 1),(BARSCOUNT(CLOSE) = 1),0); 消失条件:=(COUNT(筹码分布,BARSCOUNT(CLOSE)) = 0); 平台上0:=REF(HIGH,BARSLAST(上市首日)); 平台下0:=REF(LOW,BARSLAST(上市首日)); 平台0:=REF((((HIGH + LOW) + (3 * CLOSE)) / 5),BARSLAST(上市首日)); A10:=REF((HIGH - ((HIGH - LOW) * 0.1)),BARSLAST(上市首日)); A20:=REF((HIGH - ((HIGH - LOW) * 0.2)),BARSLAST(上市首日)); A30:=REF((HIGH - ((HIGH - LOW) * 0.3)),BARSLAST(上市首日)); A40:=REF((HIGH - ((HIGH - LOW) * 0.4)),BARSLAST(上市首日)); A50:=REF((HIGH - ((HIGH - LOW) * 0.5)),BARSLAST(上市首日)); A60:=REF((HIGH - ((HIGH - LOW) * 0.6)),BARSLAST(上市首日)); A70:=REF((HIGH - ((HIGH - LOW) * 0.7)),BARSLAST(上市首日)); A80:=REF((HIGH - ((HIGH - LOW) * 0.8)),BARSLAST(上市首日)); A90:=REF((HIGH - ((HIGH - LOW) * 0.9)),BARSLAST(上市首日)); DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台上0,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A10,'﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A20,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A30,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A40,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A50,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A60,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A70,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A80,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A90,'﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台下0,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台上0,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A10,'﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A20,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A30,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A40,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A50,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A60,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A70,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A80,'﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),A90,'﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFFFF00; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台下0,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台0,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((SYSPARAM(1) = BARPOS) AND 消失条件),平台0,'﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFF; 台上:=REF(HIGH,BARSLAST(青色博弈)); 台下:=REF(LOW,BARSLAST(青色博弈)); 台:=REF((((HIGH + LOW) + (3 * CLOSE)) / 5),BARSLAST(青色博弈)); A11:=REF((HIGH - ((HIGH - LOW) * 0.1)),BARSLAST(青色博弈)); A21:=REF((HIGH - ((HIGH - LOW) * 0.2)),BARSLAST(青色博弈)); A31:=REF((HIGH - ((HIGH - LOW) * 0.3)),BARSLAST(青色博弈)); A41:=REF((HIGH - ((HIGH - LOW) * 0.4)),BARSLAST(青色博弈)); A51:=REF((HIGH - ((HIGH - LOW) * 0.5)),BARSLAST(青色博弈)); A61:=REF((HIGH - ((HIGH - LOW) * 0.6)),BARSLAST(青色博弈)); A71:=REF((HIGH - ((HIGH - LOW) * 0.7)),BARSLAST(青色博弈)); A81:=REF((HIGH - ((HIGH - LOW) * 0.8)),BARSLAST(青色博弈)); A91:=REF((HIGH - ((HIGH - LOW) * 0.9)),BARSLAST(青色博弈)); 清晰转换A:=(COUNT(CROSS(台,平台),BARSLAST(青色博弈)) = 0); 清晰转换B:=(COUNT(CROSS(平台,台),BARSLAST(青色博弈)) = 0); DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台上,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A11,'﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A21,'﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A31,'﹋﹋﹋﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A41,'﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A51,'﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A61,'﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A71,'﹋﹋﹋﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A81,'﹋﹋﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A91,'﹋'),ALIGN2,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台下,'﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台上,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A11,'﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A21,'﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A31,'﹋﹋﹋﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A41,'﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A51,'﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A61,'﹋﹋﹋﹋﹋﹋﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A71,'﹋﹋﹋﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A81,'﹋﹋﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),A91,'﹋'),ALIGN1,colorFF00; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台下,'﹌﹌﹌'),ALIGN1,colorFF; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台,'﹌﹌﹌﹌﹌﹌'),ALIGN2,colorFF; DRAWTEXT(((((SYSPARAM(1) = BARPOS) AND 清晰转换A) AND 清晰转换B) AND (MA3 = MA5)),台,'﹌﹌﹌﹌﹌﹌'),ALIGN1,colorFF; 现象:=((("CMFB.X1" OR "CMFB.X2") OR "CMFB.X3") OR "CMFB.X4"); DRAWICON(((现象 AND BETWEEN(CLOSE,平台下,平台)) AND (MA3 = MA5)),LOW,1); EXPLAIN((现象 AND BETWEEN(CLOSE,平台下,平台)),'主仓成本下限\n'),colorFFFF; DRAWICON(((现象 AND BETWEEN(CLOSE,平台上,平台)) AND (MA3 = MA5)),LOW,1); EXPLAIN((现象 AND BETWEEN(CLOSE,平台上,平台)),'主仓成本均价\n'),colorFFFF; DRAWICON(((现象 AND BETWEEN(CLOSE,平台上,(平台上 * 1.03))) AND (MA3 = MA5)),LOW,1); EXPLAIN((现象 AND BETWEEN(CLOSE,平台上,(平台上 * 1.03))),'主仓成本上限\n'),colorFFFF; DRAWICON((((现象 AND (CLOSE > 平台上)) AND BETWEEN(LOW,平台,(平台上 * 1.03))) AND (MA3 = MA5)),LOW,1); EXPLAIN(((现象 AND (CLOSE > 平台上)) AND BETWEEN(LOW,平台上,(平台上 * 1.03))),'主仓成本上限\n'),colorFFFF; 本站所有指标公式源码均未测试,如果该公式不可用请点击报错告诉我们,感谢您的支持! www. 选股公式网打造最全的股票公式网站。 |
|