大智慧点石成金指标源码大公开

‘点石成金’画线功能，就是测算起点到目前位置的最低买入或卖出成本，计算上,其主要作用是将市场数据的组成的动态阻力或支撑通过自动画线方式给出,而使人惊奇的是其常常具有极高的准确度,而在用法上又及其简单,只需要在特定位置鼠标一点就立即可以得到需要的阻力或支撑位置,因此就使用方法和其独特的效果来说,知道其原理还要知道其使用方法才可以用好该画线功能。
     由于在设计上是考虑到我要买平均买的价格最低点，而这点通常是庄家或一般人都会考虑支撑或介入的位置，你可能不相信这个设计原理，只有你在实际中体会运用了。
     利用点石成金你可以在第一个上升调整后很快找到第一调整低点，而不用等待多个低点出现后才画趋势线去判断。还可以5分甚至一分图上用点石成金去判断.
     强的时候没有触及到点石成金的距离可以作为这次强调整最低与点石成金的距离来估计位置.
     另一个好处是逼迫你在上涨的时候往好的方向做，比如在上升过程中很多人习惯过早卖掉股票而又不清楚应该在什么地方买入，点石成金告诉你支撑在哪里，这样你心中有底，在支撑处就可以补会自己的股票，不至于卖后主管想象在更低价格买入的不切实际的情况发生。
     万一庄家出货我怎么办？这个问题是很多投资者最头疼的问题，其实庄家要出货是会利用一些书本上的东西来诱导投资者介入的，点石成金可以在庄家大幅拉升或大量对倒诱多时候很快上升以保护投资利润的。
     在遇到突发时间，比如政局动荡，政变以及系统风险出现后，甚至公*业绩不好下跌，你所需要做的就是在一个不好中的最好位置出逃，这个时候无论你选择什么指标都没有点石成金给你的信息直接和快速，你只要在出现跳空位置上点击两下则未来的阻力位置自动就给你了，到该阻力位置就出货往往是最好位置。这个我在泰国出现军事政变和经济控制问题后两次大跌中都及时得到当场验证。记住这个很简单且有效的出逃方法对你保护很有用的。当然出逃最好选择5分钟甚至1分钟点石成金。
     在上升图中你可以选择5分－小时－日线等不同阶段去做适合自己的点石成金，几个时段虽然在设计上力求一致但实际上时间约短其敏感度越高。
     点石成金在设计上是考虑到趋势的，上升中你只能找调整点而下跌中你只能找阻力点，经常使用就不至于上升中盲目卖空，下跌中盲目买入的坏习惯。
 
 
[大智慧L2] 可以实现“点石成金”的指标
 
a3:=PEAKBARS(4,x1,1);         a4:=TROUGHBARS(4,x1,1);
a5:=PEAKBARS(4,x1,2);         a6:=TROUGHBARS(4,x1,2); 
ch:=max(c,o);   cl:=min(c,o);
 mg1:ma(ch,a3+1),COLORWHITE,LINETHICK;   PARTLINE(a3>0 and (n=1 or n=2),mg1),COLORWHITE,LINETHICK2;
 mg2:ma(ch,a5+1),LINETHICK;              PARTLINE(a3>0 and (n=1 or n=2),mg2),LINETHICK2;
 md1:ma(cl,a4+1),COLORGREEN,LINETHICK;   PARTLINE(a4>0 and (n=0 or n=2),md1),COLORGREEN,LINETHICK2;
 md2:ma(cl,a6+1),LINETHICK;              PARTLINE(a4>0 and (n=0 or n=2),md2),POINTDOT,LINETHICK2;

++++++++++++++++++++++++++++++++++++++++++++
 点石成金
 01.公式中参数取值意义：  
02.涨点｛1,2000,60｝——周期内最低价；  
03.跌点{1,2000,60}——周期内最高价；  
04.HV:=HHV(H,跌点{1,2000,60});       
05.LV:=LLV(L,涨点{1,2000,60});  
06.上涨点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=LV)+1));  
07.下跌点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=HV)+1));  
08.下BC:=下跌点;   上BC:=上涨点;  
09.点石成金H:IF(C>100,SUM(H*V,下BC)/SUM(V,下BC),SUM(AMOUNT,下BC)/SUM(V,下BC)/100*SUM(H,下BC)/SUM(C,下BC)),COLORRED,LINETHICK2;  
10.点石成金L:IF(C>100,SUM(L*V,上BC)/SUM(V,上BC),SUM(AMOUNT,上BC)/SUM(V,上BC)/100*SUM(L,上BC)/SUM(C,上BC)),COLORBLUE,LINETHICK2;  
 
（等懂看的来下载）
 
========以上发布的源码，我试过，还真没发通过测试，稍稍改改
 input:x1(10),n(1);
 a3:=PEAKBARS(4,x1,1);
 a4:=TROUGHBARS(4,x1,1);
 a5:=PEAKBARS(4,x1,2);
 a6:=TROUGHBARS(4,x1,2);
 ch:=max(c,o);
 cl:=min(c,o);
 mg1:ma(ch,a3+1),COLORWHITE,LINETHICK2;
 PARTLINE(mg1,a3>0 and (n=1 or n=2),rgb(255,255,255)),LINETHICK2;
 mg2:ma(ch,a5+1),LINETHICK2; 
md1:ma(cl,a4+1),COLORGREEN,LINETHICK2;
 md2:ma(cl,a6+1),LINETHICK2;
 PARTLINE(md1,a4>0 and (n=0 or n=2),rgb(0,255,0)),LINETHICK2;
 {www.guhai.com.cn}
 PARTLINE(md2,a4>0 and (n=0 or n=2),rgb(255,0,0)),POINTDOT,LINETHICK2;

关于点石成金

源码：
 
input:绿(0,0,1000),红(0,0,1000);
 高点时区:=PEAKBARS(4,30,1 );
 低点时区:=TROUGHBARS(4,30,1 );
 eee:=BACKSET(BARSTATUS=2 ,if(绿=0,高点时区+1,绿));
 ee:=FILTER(eee ,if(绿=0,高点时区*2,绿+2 ));
 VERTLINE(ee,2 ),ALIGN2,COLORFFff00;
 s2:=COUNT(eee ,绿 );
 bc:=s2;
 点石成金H:=IF(close>100,SUM(h*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(H,bc)/SUM(C,BC)){,colorred,LINETHICK2};
 点石成金L:=IF(close>100,SUM(l*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(L,bc)/SUM(C,BC)){,colorblue,LINETHICK2};
 点石成金:if(ref(h,bc)>ref(h,bc+1) and ref(h,bc)>ref(h,bc-1) ,点石成金h,点石成金l),color00ff00,LINETHICK1;
 PARTLINE(点石成金,eee=1 ),color00ff00,LINETHICK2;
 DRAWTEXT(BARSTATUS=2,点石成金*1.01,''+点石成金),COLOR00ff00,VALIGN2,ALIGN2;
 DRAWTEXT(ee,点石成金*1.01,''+绿),COLOR00ff00,VALIGN2,ALIGN2;
 DRAWTEXT(BARSTATUS=2,点石成金*1.01,'________'),COLOR00ff00,VALIGN2,ALIGN2;
 eee1:=BACKSET(BARSTATUS=2 ,if(红=0,低点时区+1,红));
 ee1:=FILTER(eee1 ,if(红=0,低点时区*2,红+2 ));
 VERTLINE(ee1,2 ),ALIGN2,COLORFFdd00;
 s21:=COUNT(eee1 ,红 );
 bc1:=s21;
 点石成金H1:=IF(close>100,SUM(h*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(H,bc1)/SUM(C,BC1));
 点石成金L1:=IF(close>100,SUM(l*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(L,bc1)/SUM(C,BC1));
 点石成金1:if(ref(h,bc1)>ref(h,bc1+1) and ref(h,bc1)>ref(h,bc1-1) ,点石成金h1,点石成金l1),colorred,LINETHICK1;
 PARTLINE(点石成金1,eee1=1 ),colorred,LINETHICK2;
 DRAWTEXT(BARSTATUS=2,点石成金1*0.98,''+点石成金1),COLORred,VALIGN0,ALIGN2;
 DRAWTEXT(ee1,点石成金1*0.98,''+红),COLORred,VALIGN0,ALIGN2;
 DRAWTEXT(BARSTATUS=2,点石成金1*0.98,'________'),COLOR00ff00,VALIGN0,ALIGN2;
 
主图叠加
操作方法：
 右键 参数调整 改变参数  找到你自己要的高低点
 
成本自会显示
 
这个应该是理想赵鑫鑫老师原创 版权问题无法追根溯源 反正在我印象里是
上个图吧 不是拨乱反正 只是证明我用的是这样的