通達信丹尼爾指標主要源代碼

通訊指標主圖顯示暫時只能顯示籌碼峰值。可能不盡如人意。希望能找到更好的，TS:= 130；n:= 99；m:= 3；da 1:= IF(TS & gt；TOTALBARSCOUNT，TOTALBARSCOUNT，TS)；DA:= IF(CURRBARSCOUNT & gt；DA1，0，da 1)；HI:=REFDATE(HHV(H，DA)，日期)；LO:=REFDATE(LLV(L，DA)，日期)；c 1:= IF(CURRBARSCOUNT & lt；=DA，C，draw null)；GZ:= EXP(LN(HI/LO)/10)；LH 1:= SUM(IF(c 1 & gt；=(嗨/GZ)，V，0)，DA)；LH2:= SUM(IF(c 1 & gt；=(HI/POW(GZ，2))和c 1 & lt；(嗨/GZ)，V，0)，DA)；LH3:= SUM(IF(c 1 & gt；=(HI/POW(GZ，3))和c 1 & lt；(HI/POW(GZ，2))，V，0)，DA)；LH4:= SUM(IF(c 1 & gt；=(HI/POW(GZ，4))和c 1 & lt；(HI/POW(GZ，3))，V，0)，DA)；LH5:= SUM(IF(c 1 & gt；=(HI/POW(GZ，5))和c 1 & lt；(HI/POW(GZ，4))，V，0)，DA)；LH6:= SUM(IF(c 1 & gt；=(HI/POW(GZ，6))和c 1 & lt；(HI/POW(GZ，5))，V，0)，DA)；LH7:= SUM(IF(c 1 & gt；=(HI/POW(GZ，7))和c 1 & lt；(HI/POW(GZ，6))，V，0)，DA)；LH8:= SUM(IF(c 1 & gt；=(HI/POW(GZ，8))和c 1 & lt；(HI/POW(GZ，7))，V，0)，DA)；LH9:= SUM(IF(c 1 & gt；=(LO*GZ)和c 1 & lt；LO*POW(GZ，2)，V，0)，DA)；LH 10:= SUM(IF(c 1 & gt；=LO和c 1 & lt；LO*GZ，V，0)，DA)；l 1:= ref DATE(HHV(LH 1，DA)，DATE)，LINETHICK0L2:=REFDATE(HHV(LH2，DA)，DATE)，LINETHICK0L3:=REFDATE(HHV(LH3，DA)，DATE)，LINETHICK0L4:=REFDATE(HHV(LH4，DA)，日期)；L5:=REFDATE(HHV(LH5，DA)，日期)；L6:=REFDATE(HHV(LH6，DA)，日期)；L7:=REFDATE(HHV(LH7，DA)，日期)；L8:=REFDATE(HHV(LH8，DA)，日期)；L9:=REFDATE(HHV(LH9，DA)，日期)；l 10:= ref DATE(HHV(LH 10，DA)，日期)；SS:=(l 1+L2+L3+L4+L5+L6+L7+L8+L9+l 10)；粘附線(CEILING(DA * l 1/SS)* 3 & gt；=CURRBARSCOUNT，HI*N/100，HI/GZ，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L2/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，1)*N/100，HI/POW(GZ，2)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L3/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，2)*N/100，HI/POW(GZ，3)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L4/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，3)*N/100，HI/POW(GZ，4)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L5/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，4)*N/100，HI/POW(GZ，5)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L6/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，5)*N/100，HI/POW(GZ，6)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L7/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，6)*N/100，HI/POW(GZ，7)，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L8/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，2)，LO*POW(GZ，3)*N/100，9，0)COLOR252525，line thick 1；粘附線(上限(DA * L9/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，1)，LO*POW(GZ，2)*N/100，9，0)COLOR252525，line thick 1；粘附線(CEILING(DA * l 10/SS)* 3 & gt；=CURRBARSCOUNT，LO，LO*POW(GZ，1)*N/100，9，0)COLOR252525，line thick 1；牽引線(H，O，L，C)；參數{ TS:1 1000 350/n:1 1000 95 }如果願意，可以修改參數da 1:= If(TS & gt；TOTALBARSCOUNT，TOTALBARSCOUNT，TS)；DA:= IF(CURRBARSCOUNT & gt；DA1，0，da 1)；HI:=REFDATE(HHV(H，DA)，日期)；{最高價}LO:=REFDATE(LLV(L，DA)，日期)；c 1:= IF(CURRBARSCOUNT & lt；=DA，C，draw null)；GZ:= EXP(LN(HI/LO)/15)；{對數格值} LH 1:= SUM(IF(c 1 & gt；=(嗨/GZ)，V，0)，DA)；LH2:= SUM(IF(c 1 & gt；=(HI/POW(GZ，2))和c 1 & lt；(嗨/GZ)，V，0)，DA)；LH3:= SUM(IF(c 1 & gt；=(HI/POW(GZ，3))和c 1 & lt；(HI/POW(GZ，2))，V，0)，DA)；LH4:= SUM(IF(c 1 & gt；=(HI/POW(GZ，4))和c 1 & lt；(HI/POW(GZ，3))，V，0)，DA)；LH5:= SUM(IF(c 1 & gt；=(HI/POW(GZ，5))和c 1 & lt；(HI/POW(GZ，4))，V，0)，DA)；LH6:= SUM(IF(c 1 & gt；=(HI/POW(GZ，6))和c 1 & lt；(HI/POW(GZ，5))，V，0)，DA)；LH7:= SUM(IF(c 1 & gt；=(HI/POW(GZ，7))和c 1 & lt；(HI/POW(GZ，6))，V，0)，DA)；LH8:= SUM(IF(c 1 & gt；=(HI/POW(GZ，8))和c 1 & lt；(HI/POW(GZ，7))，V，0)，DA)；LH9:= SUM(IF(c 1 & gt；=(HI/POW(GZ，9))和c 1 & lt；LO*POW(GZ，7)，V，0)，DA)；LH 10:= SUM(IF(c 1 & gt；=(LO*POW(GZ，5))和c 1 & lt；LO*POW(GZ，6)，V，0)，DA)；LH 11:= SUM(IF(c 1 & gt；=(LO*POW(GZ，4))和c 1 & lt；LO*POW(GZ，5)，V，0)，DA)；LH 12:= SUM(IF(c 1 & gt；=(LO*POW(GZ，3))和c 1 & lt；LO*POW(GZ，4)，V，0)，DA)；LH 13:= SUM(IF(c 1 & gt；=(LO*POW(GZ，2))和c 1 & lt；LO*POW(GZ，3)，V，0)，DA)；LH 14:= SUM(IF(c 1 & gt；=(LO*GZ)和c 1 & lt；LO*POW(GZ，2)，V，0)，DA)；LH 15:= SUM(IF(c 1 & gt；=LO和c 1 & lt；LO*GZ，V，0)，DA)；l 1:= ref DATE(HHV(LH 1，DA)，DATE)；L2:=REFDATE(HHV(LH2，DA)，日期)；L3:=REFDATE(HHV(LH3，DA)，日期)；L4:=REFDATE(HHV(LH4，DA)，日期)；L5:=REFDATE(HHV(LH5，DA)，日期)；L6:=REFDATE(HHV(LH6，DA)，日期)；L7:=REFDATE(HHV(LH7，DA)，日期)；L8:=REFDATE(HHV(LH8，DA)，日期)；L9:=REFDATE(HHV(LH9，DA)，日期)；l 10:= ref DATE(HHV(LH 10，DA)，日期)；l 11:= ref DATE(HHV(LH 11，DA)，DATE)；l 12:= ref DATE(HHV(LH 12，DA)，日期)；l 13:= ref DATE(HHV(LH 13，DA)，日期)；l 14:= ref DATE(HHV(LH 14，DA)，日期)；l 15:= ref DATE(HHV(LH 15，DA)，日期)；SS:=(l 1+L2+L3+L4+L5+L6+L7+L8+L9+l 10+l 16+l 12+l 13+l 14+l 15)；粘附線(CEILING(DA * l 1/SS)* 3 & gt；=CURRBARSCOUNT，HI*N/100，HI/GZ，0.1，1)colora 5555 a；粘附線(上限(DA * L2/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，1)*N/100，HI/POW(GZ，2)，0.1，1)colora 7777 a；粘附線(上限(DA * L3/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，2)*N/100，HI/POW(GZ，3)，0.1，1)colora 5555 a；粘附線(上限(DA * L4/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，3)*N/100，HI/POW(GZ，4)，0.1，1)colora 7777 a；粘附線(上限(DA * L5/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，4)*N/100，HI/POW(GZ，5)，0.1，1)colora 5555 a；粘附線(上限(DA * L6/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，5)*N/100，HI/POW(GZ，6)，0.1，1)colora 7777 a；粘附線(上限(DA * L7/SS)* 3 & gt；=CURRBARSCOUNT，HI/POW(GZ，6)*N/100，HI/POW(GZ，7)，0.1，1)colora 5555 a；粘附線(上限(DA * L8/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，7)，LO*POW(GZ，8)*N/100，0.1.1)colora 7777 a；粘附線(上限(DA * L9/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，6)，LO*POW(GZ，7)*N/100，0.1.1)colora 5555 a；粘附線(CEILING(DA * l 10/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，5)，LO*POW(GZ，6)*N/100，0.1.1)colora 7777 a；粘附線(CEILING(DA * l 11/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，4)，LO*POW(GZ，5)*N/100，0.1.1)colora 5555 a；粘附線(CEILING(DA * l 12/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，3)，LO*POW(GZ，4)*N/100，0.1.1)colora 7777 a；粘附線(CEILING(DA * l 13/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，2)，LO*POW(GZ，3)*N/100，0.1.1)colora 5555 a；粘附線(CEILING(DA * l 14/SS)* 3 & gt；=CURRBARSCOUNT，LO*POW(GZ，1)，LO*POW(GZ，2)*N/100，0.1.1)colora 7777 a；粘附線(CEILING(DA * l 15/SS)* 3 & gt；=CURRBARSCOUNT，LO，LO*POW(GZ，1)*N/100，0.0001.1)colora 5555 a；拉絲線(高、開、低、閉)；