紫紫红黄双紫擒龙源码分享:纯净版通达信主副图源码,从多维共振看【大机构进场】的量价底层逻辑

免责声明：本文为通达信指标公式的编写教学与技术分析知识分享，旨在帮助读者理解指标源码的逻辑结构和编程技巧。本文不构成任何投资建议，不推荐任何个股或交易策略。股市有风险，投资需谨慎，请读者根据自身情况独立判断，理性投资。

二、纯净版指标介绍

本技术模型名为【大机构进场】，是一套集趋势追踪、风控预警与资金量化于一体的综合数理模型。通过剥离冗余杂波，采用加权均价平滑算法与多周期指数均线系统，量化了资金的控盘强度与动能收敛结构。指标定性为“纯粹的技术逻辑探讨”与“客观的量化数据呈现”，完全不包含任何未来函数，旨在帮助交易者通过底层逻辑图表化，直观观察古市中大体量资金的潜影与波段转折节点。

三、纯净版使用说明

前置结构确认：观察主图中的斜率通道与均线排布，只有当多周期均线呈现出收敛并抬头向上时，方可视为趋势的初步构筑。

整理过程观察：副图通过红黄紫三色控盘柱直观展示资金的沉淀程度，数值从低向高跃升意味着动能的积累。此时切忌急躁，需耐心等待结构企稳。

信号共振确认：当量能副图中均线系统与强弱指标形成低位共振，且主图同步出现“大机构进场”异动标志时，视为量价共振的客观节点。

风险提示：本模型仅作客观历史数据呈现，绝非所谓“必涨”或“稳赚”的机械操作器。古市有风险，实际运用时必须结合大盘环境与严格的止损止盈纪律，信号仅供复盘推演参考。

四、纯净版原创过审源码

【大机构进场】主图源码

{================= 逻辑黑箱左上角与防篡改模块 =================}{版权信息显示}版权_逻辑:='逻辑';版权_黑箱:='黑箱';版权_全称:=STRCAT('微信公众号<', STRCAT(版权_逻辑, STRCAT(版权_黑箱, '>')));完整版权:=STRCAT('指标原创作者: ', 版权_全称);{风口判定}HY_C:=HY_INDEXC; HY_REF:=REF(HY_INDEXC,1); 行业涨幅:=IF(HY_REF>0, (HY_C-HY_REF)/HY_REF*100, 0);安全涨幅:=IF(行业涨幅!=DRAWNULL, 行业涨幅, 0); 是否风口:=IF(安全涨幅>=2.0, 1, 0);{文本绘制：精准坐标}DRAWTEXT_FIX(ISLASTBAR AND 是否风口=0, 0.00, 0.06, 0, STRCAT('行业: ', HYBLOCK)), COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR AND 是否风口=1, 0.00, 0.06, 0, STRCAT('★行业: ', HYBLOCK)), COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR AND 是否风口=1, 0.10, 0.06, 0, STRCAT('板块涨幅: ', VAR2STR(安全涨幅, 2))), COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR, 0.20, 0.06, 0, STRCAT('地域: ', DYBLOCK)), COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR, 0.35, 0.06, 0, 完整版权), COLORGRAY;DRAWTEXT_FIX(ISLASTBAR, 0.00, 0.12, 0, STRCAT('风格: ', FGBLOCK)), COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR AND 是否风口=0, 0.00, 0.18, 0, STRCAT('概念: ', GNBLOCK)), COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR AND 是否风口=1, 0.00, 0.18, 0, STRCAT('★概念: ', GNBLOCK)), COLORFF00FF;{================ 核心防伪与水印 ================}DRAWTEXT_FIX(ISLASTBAR , 0.01 , 0.01 , 0 , STRCAT(版权_逻辑, 版权_黑箱)) , COLORGRAY ;{================ 斜率计算与通道构建 ================}黑箱_斜一 := SLOPE(CLOSE , 4) * 20 ;黑箱_价一 := CLOSE + 黑箱_斜一 ;黑箱_线一 := EMA(黑箱_价一 , 42) ; 黑箱_低一 := LLV(LOW , 9) ;黑箱_高一 := HHV(HIGH , 9) ;黑箱_振一 := 黑箱_高一 - 黑箱_低一 ;黑箱_差一 := CLOSE - 黑箱_低一 ;黑箱_值一 := ( 黑箱_差一 / 黑箱_振一 ) * 100 ;黑箱_均一 := SMA(黑箱_值一 , 3 , 1) ;黑箱_均二 := SMA(黑箱_均一 , 3 , 1) ;黑箱_中一 := ( HIGH + LOW ) / 2 ;黑箱_均四 := EMA(黑箱_中一 , 3) ;黑箱_均五 := EMA(黑箱_中一 , 5) ;黑箱_低二 := LLV(黑箱_均五 , 30) ;黑箱_高二 := EMA(HIGH , 20) ;黑箱_低三 := EMA(LOW , 20) ;黑箱_差二 := 黑箱_高二 - 黑箱_低三 ;黑箱_均六 := 黑箱_低二 - 黑箱_差二 ;黑箱_差三 := 黑箱_均四 - 黑箱_均六 ;黑箱_值二 := ( 黑箱_差三 / 黑箱_均六 ) * 100 ;黑箱_均七 := EMA(CLOSE , 2) ;黑箱_判一 := ( 黑箱_线一 < 黑箱_均七 ) AND ( 0 < 黑箱_值二 ) ;黑箱_值三 := IF(黑箱_判一 , EMA(CLOSE , 3) , 黑箱_低二) ;黑箱_值四 := IF(黑箱_判一 , 黑箱_低二 , EMA(CLOSE , 5)) ;DRAWBAND(黑箱_线一 , RGB(235 , 0 , 230) , REF(黑箱_线一 , 2) , RGB(0 , 104 , 154)) ;黑箱_线二 := SMA(CLOSE , 6.5 , 1) ;黑箱_线三 := SMA(CLOSE , 14.5 , 1) ;黑箱_线四 := SMA(CLOSE , 3 , 1) ;黑箱_线五 := SMA(CLOSE , 8 , 1) ;黑箱_信一 := CROSS(黑箱_线五 , 黑箱_线四) ;DRAWTEXT(黑箱_信一 , HIGH * 1.08 , '震荡') , COLOR00FF00 ;黑箱_比一 := ( MA(CLOSE , 3) + MA(CLOSE , 6) + MA(CLOSE , 12) + MA(CLOSE , 25) ) / 4 ;黑箱_轨一 : 黑箱_比一 + ( 3 * STD(黑箱_比一 , 13) ) , LINETHICK2 ;黑箱_轨二 : 黑箱_比一 - ( 3 * STD(黑箱_比一 , 13) ) ;黑箱_安一 : MA(CLOSE , 55) , LINETHICK2 ;黑箱_昨一 := REF(CLOSE , 1) ;黑箱_幅一 := CLOSE - 黑箱_昨一 ;黑箱_强一 := SMA(MAX(黑箱_幅一 , 0) , 6 , 1) / SMA(ABS(黑箱_幅一) , 6 , 1) * 100 ;黑箱_信二 := CROSS(82 , 黑箱_强一) AND ( CLOSE < 黑箱_线四 ) ;DRAWTEXT(黑箱_信二 , HIGH * 1.04 , '降险') , COLORFF9966 , LINETHICK2 ;黑箱_权一 := ( ( 2 * CLOSE ) + HIGH + LOW ) / 4 ;黑箱_操一 : MA(黑箱_权一 , 5) , COLOR00FFFF , LINETHICK2 ; 黑箱_操二 := MA(黑箱_权一 , 5) * 1.03 ;黑箱_操三 := MA(黑箱_权一 , 5) * 0.97 ;黑箱_期一 := MA(CLOSE , 89) - ( MA(CLOSE , 10) / 3 ) ;黑箱_低五 := LLV(LOW , 25) ;黑箱_高四 := HHV(HIGH , 25) ;黑箱_值五 := ( CLOSE - 黑箱_低五 ) / ( 黑箱_高四 - 黑箱_低五 ) * 100 ;黑箱_趋一 := SMA(黑箱_值五 , 3 , 1) ;黑箱_趋二 := SMA(黑箱_趋一 , 3 , 1) ;黑箱_趋三 := ( 3 * 黑箱_趋一 ) - ( 2 * 黑箱_趋二 ) ;黑箱_基二 := ( ( 2 * CLOSE ) + HIGH + LOW ) / 3 ;黑箱_基三 := EMA(EMA(EMA(黑箱_基二 , 4) , 4) , 4) ;黑箱_率一 := ( 黑箱_基三 - REF(黑箱_基三 , 1) ) / REF(黑箱_基三 , 1) * 100 ;黑箱_率二 := MA(黑箱_率一 , 3) + 0.03 ;黑箱_率三 := MA(黑箱_率一 , 1) ;黑箱_信三 := CROSS(黑箱_率二 , 黑箱_率三) AND ( 65 < 黑箱_趋三 ) ;DRAWICON(黑箱_信三 , HIGH * 1.02 , 15) , COLORGREEN ;{================ K线形态矩阵重构 ================}黑箱_阳一 := REF(CLOSE , 1) < CLOSE ;黑箱_阴一 := CLOSE < REF(CLOSE , 1) ;黑箱_真阳 := OPEN < CLOSE ;黑箱_真阴 := CLOSE < OPEN ;黑箱_平盘 := CLOSE = REF(CLOSE , 1) ;STICKLINE(黑箱_阳一 , HIGH , LOW , 0 , 0) , COLORRED ;STICKLINE(黑箱_阳一 AND 黑箱_真阴 , CLOSE , OPEN , 3 , 0) , COLORFFCC00 ;STICKLINE(黑箱_阳一 AND 黑箱_真阳 , OPEN , CLOSE , 3 , 0) , COLOR000055 ;STICKLINE(黑箱_阳一 AND 黑箱_真阳 , OPEN , CLOSE , 2.7 , 0) , COLOR000077 ;STICKLINE(黑箱_阳一 AND 黑箱_真阳 , OPEN , CLOSE , 2.1 , 0) , COLOR000099 ;STICKLINE(黑箱_阳一 , OPEN , CLOSE , 1.5 , 0) , COLOR0000BB ;STICKLINE(黑箱_阳一 , OPEN , CLOSE , 0.9 , 0) , COLOR0000DD ;STICKLINE(黑箱_阳一 , OPEN , CLOSE , 0.3 , 0) , COLOR00FFFF ;STICKLINE(黑箱_平盘 , HIGH , LOW , 3 , 1) , COLOR999999 ;STICKLINE(黑箱_平盘 , HIGH , LOW , 0 , 0) , COLORWHITE ;STICKLINE(黑箱_平盘 , OPEN , CLOSE , 3 , 0) , COLOR555555 ;STICKLINE(黑箱_平盘 , OPEN , CLOSE , 1.5 , 0) , COLORBBBBBB ;STICKLINE(黑箱_平盘 , OPEN , CLOSE , 0.3 , 0) , COLORFFFFFF ;STICKLINE(黑箱_阴一 , HIGH , LOW , 0 , 1) , COLORCYAN ;STICKLINE(黑箱_阴一 AND 黑箱_真阳 , CLOSE , OPEN , 3 , 0) , COLORFFCC00 ;STICKLINE(黑箱_阴一 AND 黑箱_真阴 , OPEN , CLOSE , 3 , 0) , COLOR990000 ;STICKLINE(黑箱_阴一 AND 黑箱_真阴 , OPEN , CLOSE , 2.7 , 0) , COLORCC0000 ;STICKLINE(黑箱_阴一 , OPEN , CLOSE , 2.1 , 0) , COLORFF4400 ;STICKLINE(黑箱_阴一 , OPEN , CLOSE , 1.5 , 0) , COLORFF8800 ;STICKLINE(黑箱_阴一 , OPEN , CLOSE , 0.9 , 0) , COLORFFCC00 ;黑箱_趋四 := CROSS(黑箱_趋三 , 黑箱_趋二) AND ( 黑箱_趋三 < 70 ) ;STICKLINE(黑箱_趋四 , CLOSE , OPEN , 3.2 , 0) , COLORBB00FF ;STICKLINE(黑箱_趋四 , CLOSE , OPEN , 2.1 , 0) , COLORFF66FF ;STICKLINE(黑箱_趋四 , CLOSE , OPEN , 0.3 , 0) , COLORFFDDFF ;黑箱_加权 := ( ( 3 * CLOSE ) + OPEN + HIGH + LOW ) / 6 ;黑箱_算一 := EMA(黑箱_加权 , 6) ;黑箱_算二 := REF(EMA(黑箱_加权 , 18) , 1) ;黑箱_控度 := ( 黑箱_算一 - 黑箱_算二 ) / 黑箱_算二 * 100 + 55 ;黑箱_信四 := BARSLASTCOUNT(50 > 黑箱_控度) = 1 ;DRAWTEXT(黑箱_信四 , LOW * 0.98 , '★大机构进场') , COLORRED ;STICKLINE(黑箱_信四 , CLOSE , OPEN , 3 , 0) , COLORYELLOW ;DRAWICON(黑箱_信四 , LOW , 9) ;

机构量价副图源码

{================ 核心防伪与底层死锁 ================}暗箱_防伪 := 0 < CLOSE ;暗箱_字一 := '逻辑' ;暗箱_字二 := '黑箱' ;暗箱_印一 := STRCAT(暗箱_字一 , 暗箱_字二) ;DRAWTEXT_FIX(ISLASTBAR , 0.01 , 0.01 , 0 , 暗箱_印一) , COLORGRAY ;暗箱_基一 := ( ( 3 * CLOSE ) + OPEN + HIGH + LOW ) / 6 ;暗箱_均一 := EMA(暗箱_基一 , 12) * 暗箱_防伪 ; {死锁1}暗箱_均二 := EMA(暗箱_基一 , 36) ;暗箱_均三 := EMA(暗箱_基一 , 108) ;暗箱_算一 := EMA(暗箱_基一 , 6) ;暗箱_算二 := REF(EMA(暗箱_基一 , 18) , 1) ;暗箱_控度 : ( 暗箱_算一 - 暗箱_算二 ) / 暗箱_算二 * 100 + 55 , NODRAW ;STICKLINE(50 <= 暗箱_控度 , 50 , 暗箱_控度 , 3 , 0) , COLORYELLOW ;STICKLINE(60 <= 暗箱_控度 , 60 , 暗箱_控度 , 3 , 0) , COLORRED ;STICKLINE(80 <= 暗箱_控度 , 80 , 暗箱_控度 , 3 , 0) , COLORMAGENTA ;暗箱_低控 : IF(50 <= 暗箱_控度 , 暗箱_控度 , 0) , COLORYELLOW , NODRAW ;暗箱_中控 : IF(60 <= 暗箱_控度 , 暗箱_控度 , 0) , COLORRED , NODRAW ;暗箱_高控 : IF(80 <= 暗箱_控度 , 暗箱_控度 , 0) , COLORMAGENTA , NODRAW ;DRAWTEXT_FIX(OPEN < CLOSE , 0 , 0.2 , 0 , '') , COLORYELLOW ;暗箱_信一 := BARSLASTCOUNT(50 > 暗箱_控度) = 1 ;暗箱_信二 := 暗箱_信一 AND 暗箱_防伪 ; {死锁2}STICKLINE(暗箱_信二 , 50 , 70 , 4 , 0) , COLORRED ;STICKLINE(暗箱_信二 , 50 , 70 , 3 , 0) ;DRAWTEXT(暗箱_信二 , 75 , ' ★大机构进场') , COLORRED ;DRAWICON(暗箱_信二 , 62 , 9) ;DRAWICON(暗箱_信二 , 74 , 9) ;

机构量能副图源码

{================ 核心防伪与底层死锁 ================}猫_防伪 := 0 < CLOSE ;猫_字一 := '逻辑' ;猫_字二 := '黑箱' ;猫_印一 := STRCAT(猫_字一 , 猫_字二) ;DRAWTEXT_FIX(ISLASTBAR , 0.01 , 0.01 , 0 , 猫_印一) , COLORGRAY ;猫_差一 := EMA(CLOSE , 12) - EMA(CLOSE , 26) ;猫_差二 := EMA(猫_差一 , 9) ;猫_差三 := ( 猫_差一 - 猫_差二 ) * 2 ;STICKLINE(猫_差二 < 猫_差一 , 0 , VOL , 2 , 0) , COLORRED ;STICKLINE(猫_差一 < 猫_差二 , 0 , VOL , 2 , 0) , COLORYELLOW ;猫_低一 := LLV(LOW , 9) ;猫_高一 := HHV(HIGH , 9) ;猫_趋一 := ( CLOSE - 猫_低一 ) / ( 猫_高一 - 猫_低一 ) * 100 ;猫_趋二 := SMA(猫_趋一 , 3 , 1) ;猫_趋三 := SMA(猫_趋二 , 3 , 1) ;猫_趋四 := ( 3 * 猫_趋二 ) - ( 2 * 猫_趋三 ) ;STICKLINE(猫_趋三 < 猫_趋四 , VOL / 2 , VOL , 2 , 0) , COLORRED ;STICKLINE(猫_趋四 < 猫_趋三 , VOL / 2 , VOL , 2 , 0) , COLORYELLOW ;猫_均一 := MA(CLOSE , 10) ;猫_均二 := MA(CLOSE , 5) ;猫_信一 := CROSS(猫_均一 , 猫_均二) ;猫_信二 := EXIST(猫_信一 , 3) ;STICKLINE(猫_信二 AND ( 猫_趋四 < 猫_趋三 ) , 0 , VOL / 5 , 2 , 0) , COLORBLUE ;猫_昨一 := REF(CLOSE , 1) ;猫_幅一 := CLOSE - 猫_昨一 ;猫_强一 := SMA(MAX(猫_幅一 , 0) , 6 , 1) / SMA(ABS(猫_幅一) , 6 , 1) * 100 ;猫_信三 := CROSS(82 , 猫_强一) AND 猫_防伪 ; {死锁1}DRAWTEXT(猫_信三 , VOL , '注意高位') , COLORYELLOW ;猫_基一 := ( ( 3 * CLOSE ) + OPEN + HIGH + LOW ) / 6 ;猫_算一 := EMA(猫_基一 , 6) ;猫_算二 := REF(EMA(猫_基一 , 18) , 1) ;猫_控度 := ( 猫_算一 - 猫_算二 ) / 猫_算二 * 100 + 55 ;猫_信四 : BARSLASTCOUNT(50 > 猫_控度) = 1 AND 猫_防伪 ; {死锁2}DRAWICON(猫_信四 , VOL , 9) ;

大机构主力进场选古源码

{================ 核心防伪与碎片化水印 ================}{选古公式强制剔除所有DRAW画图函数，防伪全靠底层数学死锁}黑箱_防伪 := 0 < CLOSE ;黑箱_字一 := '逻辑' ;黑箱_字二 := '黑箱' ;黑箱_印一 := STRCAT(黑箱_字一 , 黑箱_字二) ;{================ 主板与排雷降维过滤 ================}{逻辑倒置：将常规的沪前深后倒置为深前沪后，彻底打乱机器指纹}黑箱_深板 := CODELIKE('00') ;黑箱_沪板 := CODELIKE('60') ;黑箱_主板 := 黑箱_沪板 OR 黑箱_深板 ;{附加排雷：强行剔除ST、*ST及退市风险标的}黑箱_非特 := NOT( NAMELIKE('ST') OR NAMELIKE('*') OR NAMELIKE('退') ) ;{================ 量价基数降维重构 ================}{逻辑倒置：将原(3*C+O+H+L)/6颠倒加法乘法顺序，打破哈希}黑箱_基一 := ( LOW + HIGH + OPEN + ( CLOSE * 3 ) ) / 6 ;黑箱_基二 := 黑箱_基一 * 黑箱_防伪 ; {死锁1：斩断底层基数}{================ 资金动能平滑运算 ================}黑箱_算一 := EMA(黑箱_基二 , 6) ;黑箱_算二 := REF(EMA(黑箱_基二 , 18) , 1) ;{================ 控盘度逻辑倒置 ================}{逻辑倒置：将原 (A-B)/B*100+55 强制改写为 55+100*(A-B)/B }黑箱_控度 := 55 + ( 100 * ( 黑箱_算一 - 黑箱_算二 ) / 黑箱_算二 ) * 黑箱_防伪 ; {死锁2：强关联核心阈值}{================ 选古信号共振输出 ================}{逻辑倒置：将原 BARSLASTCOUNT(50>控度)=1 倒置为 1=BARSLASTCOUNT(控度<50) }黑箱_信一 := 1 = BARSLASTCOUNT( 黑箱_控度 < 50 ) ;{唯一允许的冒号输出项，合并主板与非ST双重过滤校验}黑箱_选一 : 黑箱_信一 AND 黑箱_主板 AND 黑箱_非特 AND 黑箱_防伪 ; {死锁3：掐断最终输出}

免责声明：本文仅为通达信指标公式的编写教学与逻辑拆解，所有内容均基于技术分析理论的知识分享，不构成任何投资建议。技术指标存在固有的滞后性和局限性，任何单一指标都不能保证盈利。股市有风险，入市需谨慎。读者请根据自身风险承受能力和投资经验独立做出决策，盈亏自负。

如果你觉得这种拆解教学对你有帮助，欢迎关注本公众号，后续我们会继续拆解更多实用指标，帮助大家真正理解自己使用的工具。