图片
图片
图片
图片
图片
以下是源码：
擒龙V2-筹码附图：
VX:=V;
STICKLINE(VX>=0,11,12,4.1,0),COLOR404000;
STICKLINE(VX>=0,10,11,4.1,0),COLOR404000;
STICKLINE(VX>=0,9,10,4.1,0),COLOR404000;
STICKLINE(VX>=0,8,9,4.1,0),COLOR404000;
STICKLINE(VX>=0,7,8,4.1,0),COLOR404000;
STICKLINE(VX>=0,6,7,4.1,0),COLOR404000;
STICKLINE(VX>=0,5,6,4.1,0),COLOR404000;
STICKLINE(VX>=0,4,5,4.1,0),COLOR404000;
NOTEXT1:8,COLORGREEN,LINETHICK1;
DRAWTEXT(ISLASTBAR,11.4, ' 【压力】'),COLORGREEN;
DRAWTEXT(ISLASTBAR,10.4, ' 【套牢】'),COLORGREEN;
DRAWTEXT(ISLASTBAR,9.4, ' 【上套】'),COLORGREEN;
DRAWTEXT(ISLASTBAR,8.4, ' 【下套】'),COLORGREEN;
DRAWTEXT(ISLASTBAR,7.4, ' 【支撑】'),COLORRED;
DRAWTEXT(ISLASTBAR,6.4, ' 【锁筹】'),COLORRED;
DRAWTEXT(ISLASTBAR,5.4, ' 【上锁】'),COLORRED;
DRAWTEXT(ISLASTBAR,4.4, ' 【下锁】'),COLORRED;
CLOSE_PRICE :=C;
{ 计算不同价格区间的获利盘比例 }
WINNER_120 := WINNER(CLOSE_PRICE * 1.2);
WINNER_115 := WINNER(CLOSE_PRICE * 1.15);
WINNER_110 := WINNER(CLOSE_PRICE * 1.1);
WINNER_105 := WINNER(CLOSE_PRICE * 1.05);
WINNER_95 := WINNER(CLOSE_PRICE * 0.95);
WINNER_90 := WINNER(CLOSE_PRICE * 0.9);
WINNER_85 := WINNER(CLOSE_PRICE * 0.85);
{ 计算股价上方各区间的筹码比例并四舍五入取整 }
CHIP_UP_0_5 := ROUND((WINNER_105 - WINNER(CLOSE_PRICE)) * 100);
CHIP_UP_5_10 := ROUND((WINNER_110 - WINNER_105) * 100);
CHIP_UP_10_15 := ROUND((WINNER_115 - WINNER_110) * 100);
{ 计算股价下方各区间的筹码比例并四舍五入取整 }
CHIP_DOWN_0_5 := ROUND((WINNER(CLOSE_PRICE) - WINNER_95) * 100);
CHIP_DOWN_5_10 := ROUND((WINNER_95 - WINNER_90) * 100);
CHIP_DOWN_10_15 := ROUND((WINNER_90 - WINNER_85) * 100);
{1排 压力}
STICKLINE(CHIP_UP_0_5 <=10, 11.1,11.8,3.2, 0),COLORRED;
DRAWNUMBER(CHIP_UP_0_5 >= 0, 11.8, IF(CHIP_UP_0_5 >=1, CHIP_UP_0_5,0 )), COLORWHITE;
{2排 套牢}
{ 套牢盘比例计算 }
套牢盘:= ROUND((1 - IF(CODELIKE('301') OR CODELIKE('300'), WINNER(C * 1.2), WINNER(C * 1.1))) * 100);
STICKLINE(套牢盘 <=10, 10.1,10.8,3.2, 0),COLORRED;
DRAWNUMBER(套牢盘 >= 0, 10.8, IF(套牢盘 >= 1, 套牢盘,0 )), COLORWHITE;
{3/4排 上套 下套}
STICKLINE(CHIP_UP_10_15 <=10, 9.1,9.8,3.2, 0),COLORRED;
STICKLINE(CHIP_UP_5_10 <=10, 8.1,8.8,3.2, 0),COLORRED;
DRAWNUMBER(CHIP_UP_10_15 >= 0, 9.8, IF(CHIP_UP_10_15 > 1, CHIP_UP_10_15,0 )), COLORWHITE;
DRAWNUMBER(CHIP_UP_5_10 >= 0, 8.8, IF(CHIP_UP_5_10 > 1, CHIP_UP_5_10,0 )), COLORWHITE;
{5排 支撑}
STICKLINE(CHIP_DOWN_0_5 >0, 7.1,7.8,3.2, 0),COLORRED;
STICKLINE(CHIP_DOWN_0_5 >=10, 7.1,7.8,3.2, 0),COLOR000080;
DRAWNUMBER(CHIP_DOWN_0_5 >= 0, 7.8, IF(CHIP_DOWN_0_5 >= 1, CHIP_DOWN_0_5,0 )), COLORWHITE;
{6排 锁筹}
{ 判断是否为创业板或科创板股票 }
IS_STAR := CODELIKE('301') OR CODELIKE('300');
{锁筹比例计算 }
锁筹1:=IF(IS_STAR, WINNER(C * 0.8), WINNER(C * 0.9)) * 100;
昨日锁筹 := REF(锁筹1, 1);
锁筹变化 := ROUND(锁筹1 - 昨日锁筹);
STICKLINE(锁筹变化 >0 AND 锁筹变化<10, 6.1,6.8,3.2, 0),COLORRED;
STICKLINE(锁筹变化 <0, 6.1,6.8,3.2, 0),COLORGREEN;
STICKLINE(锁筹变化>=10,6.1,6.8,3.2,0),COLOR000080;
DRAWNUMBER(锁筹变化 < 0, 6.8, 锁筹变化 ),COLORRED;
DRAWNUMBER(锁筹变化 >= 0, 6.8, IF(锁筹变化 >= 1, 锁筹变化,0 )), COLORWHITE;
{7/8排 上锁 下锁}
STICKLINE(CHIP_DOWN_5_10 >0, 5.1,5.8,3.2, 0),COLORRED;
STICKLINE(CHIP_DOWN_5_10>=10,5.1,5.8,3.2,0),COLOR000080;
STICKLINE(CHIP_DOWN_10_15 >0, 4.1,4.8,3.2, 0),COLORRED;
STICKLINE(CHIP_DOWN_10_15>=10,4.1,4.8,3.2,0),COLOR000080;
DRAWNUMBER(CHIP_DOWN_5_10 >= 0, 5.8, IF(CHIP_DOWN_5_10 > 1, CHIP_DOWN_5_10,0 )), COLORWHITE;
DRAWNUMBER(CHIP_DOWN_10_15 >= 0, 4.8, IF(CHIP_DOWN_10_15 > 1, CHIP_DOWN_10_15,0 )), COLORWHITE;
获取：先点文章右下角的
图片
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。配资上市公司一览表提示：文章来自网络，不代表本站观点。
