连连涨 发表于 2010-8-22 01:31

<P><BR><BR></P>
<P>DA1:=IF(130&gt;TOTALBARSCOUNT,TOTALBARSCOUNT,130);<BR>DA:=IF(CURRBARSCOUNT&gt;DA1,0,DA1);<BR>HI:=REFDATE(HHV(H,DA),DATE);<BR>LO:=REFDATE(LLV(L,DA),DATE);<BR>C1:=IF(CURRBARSCOUNT&lt;=DA,C,DRAWNULL);<BR>GZ:=EXP(LN(HI/LO)/10); <BR>LH1:=SUM(IF(C1&gt;=(HI/GZ),V,0),DA);<BR>LH2:=SUM(IF(C1&gt;=(HI/POW(GZ,2)) AND C1&lt;(HI/GZ),V,0),DA);<BR>LH3:=SUM(IF(C1&gt;=(HI/POW(GZ,3)) AND C1&lt;(HI/POW(GZ,2)),V,0),DA);<BR>LH4:=SUM(IF(C1&gt;=(HI/POW(GZ,4)) AND C1&lt;(HI/POW(GZ,3)),V,0),DA);<BR>LH5:=SUM(IF(C1&gt;=(HI/POW(GZ,5)) AND C1&lt;(HI/POW(GZ,4)),V,0),DA);<BR>LH6:=SUM(IF(C1&gt;=(HI/POW(GZ,6)) AND C1&lt;(HI/POW(GZ,5)),V,0),DA);<BR>LH7:=SUM(IF(C1&gt;=(HI/POW(GZ,7)) AND C1&lt;(HI/POW(GZ,6)),V,0),DA);<BR>LH8:=SUM(IF(C1&gt;=(HI/POW(GZ,8)) AND C1&lt;(HI/POW(GZ,7)),V,0),DA);<BR>LH9:=SUM(IF(C1&gt;=(LO*GZ) AND C1&lt;LO*POW(GZ,2),V,0),DA);<BR>LH10:=SUM(IF(C1&gt;=LO AND C1&lt;LO*GZ,V,0),DA);<BR>L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0;<BR>L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0;<BR>L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0;<BR>L4:=REFDATE(HHV(LH4,DA),DATE);<BR>L5:=REFDATE(HHV(LH5,DA),DATE);<BR>L6:=REFDATE(HHV(LH6,DA),DATE);<BR>L7:=REFDATE(HHV(LH7,DA),DATE);<BR>L8:=REFDATE(HHV(LH8,DA),DATE);<BR>L9:=REFDATE(HHV(LH9,DA),DATE);<BR>L10:=REFDATE(HHV(LH10,DA),DATE);<BR>SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);<BR>STICKLINE(CEILING(DA*L1/SS)*3&gt;=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L2/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L3/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L4/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L5/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L6/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L7/SS)*3&gt;=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L8/SS)*3&gt;=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L9/SS)*3&gt;=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0)COLOR3C3C3A,LINETHICK3;<BR>STICKLINE(CEILING(DA*L10/SS)*3&gt;=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0)COLOR3C3C3A,LINETHICK3;<BR>DRAWKLINE(H,O,L,C);<BR>MA5:MA(CLOSE,5);<BR>MA10:MA(CLOSE,10);<BR>MA30:MA(CLOSE,30);<BR>MA60:MA(CLOSE,60);</P>
<P>VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));<BR>VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));<BR>VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));<BR>F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;<BR>年:MA(CLOSE,22),LINETHICK2,COLORWHITE;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P>
<P>&nbsp;</P>
<P><BR>图中暗条为筹码峰&nbsp; 上方压力大 暗条就长&nbsp; 越短越好 最好是万里无云 好用加分 </P>

迷股票通 发表于 2010-10-7 00:42

蓝蓝大海 发表于 2010-10-14 16:26

安恬 发表于 2011-3-9 22:58

变幻莫测 发表于 2011-3-9 23:20

安恬 发表于 2011-3-10 09:33

花花白银 发表于 2011-3-21 16:15

<P>好用...的确不错...好用.</P>
<P>&nbsp;</P>

如意百合 发表于 2011-3-22 12:21

dddddddddddddddddddddddddddddddddd

金猪 发表于 2011-3-22 20:16

主力跟屁虫 发表于 2011-3-22 21:41

这个咋个用啊,大哥!!

盈盈 发表于 2011-4-5 19:44

谢谢
页: [1]
查看完整版本: 通达信 带筹码峰的主图 源码