Bir de bu var nereden bulduğumu hatırlamıyorum. Umarım faydalı olur.
K:=Input("K",1,2000,144);
(HHV(H,K)+LLV(L,K))/2;
IF(BARSSINCE(LASTVALUE(HHV(H,K))=H)>BARSSINCE(LAST VALUE(LLV(L,K))=L),
LLV(L,K)+(HHV(H,K)-LLV(L,K))*0.618,HHV(H,K)-(HHV(H,K)-LLV(L,K))*0.618);
IF(BARSSINCE(LASTVALUE(HHV(H,K))=H)>BARSSINCE(LAST VALUE(LLV(L,K))=L),
LLV(L,K)+(HHV(H,K)-LLV(L,K))*0.382,HHV(H,K)-(HHV(H,K)-LLV(L,K))*0.382)
K:=Input("K",1,2000,144);
(HHV(H,K)+LLV(L,K))/2;
IF(BARSSINCE(LASTVALUE(HHV(H,K))=H)>BARSSINCE(LAST VALUE(LLV(L,K))=L),
LLV(L,K)+(HHV(H,K)-LLV(L,K))*0.618,HHV(H,K)-(HHV(H,K)-LLV(L,K))*0.618);
IF(BARSSINCE(LASTVALUE(HHV(H,K))=H)>BARSSINCE(LAST VALUE(LLV(L,K))=L),
LLV(L,K)+(HHV(H,K)-LLV(L,K))*0.382,HHV(H,K)-(HHV(H,K)-LLV(L,K))*0.382)

Moderatör tarafında düzenlendi: