《四方測市》
input:P1(20,3,500); //調整高低點位置
DRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),0);
{K線}
STICKLINE(O>=C,H,L,0,0),ColorFF8000;
STICKLINE(O>=C,C,O,7,0),ColorFF8000;
STICKLINE(C>=O,L,H,0,0),Color5050FF;
STICKLINE(C>=O,C,O,7,1),Color5050FF;
{位置選擇}
GA:=BACKSET(ISLASTBAR,HHVBARS(HIGH,P1)+1);
高點:=COUNT(GA,P1)=1;{高點位置}
DA:=BACKSET(ISLASTBAR,LLVBARS(L,P1)+1);
低點:=REVERSE(COUNT(DA,P1)=1);{低點位置}
VERTLINE(低點),LINEDOT,Color008000;
VERTLINE(高點),LINEDOT,COLORRED;
{黃金分割}
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(H,n);
ll:=llv(L,n);
最高:=hh[n1],COLORYELLOW;
最低:=ll[n1],COLORred;
x1:=最低+(最高-最低)*0.191;
x2:=最低+(最高-最低)*0.382;
x3:=最低+(最高-最低)*0.5;
x4:=最低+(最高-最低)*0.618;
x5:=最低+(最高-最低)*0.809;
DRAWICON(高點,x3,9),ALIGN;
DRAWICON(低點,x3,8),ALIGN;
{劃線--低點}
DRAWLINE(低點,最低,高點 or ISLASTBAR,REF(最低,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,最高,高點 or ISLASTBAR,REF(最高,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,x1,高點 or ISLASTBAR,REF(x1,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,x2,高點 or ISLASTBAR,REF(x2,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,x3,高點 or ISLASTBAR,REF(x3,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,x4,高點 or ISLASTBAR,REF(x4,1),0),LINEDOT,COLORGREEN;
DRAWLINE(低點,x5,高點 or ISLASTBAR,REF(x5,1),0),LINEDOT,COLORGREEN;
{劃線--高點}
DRAWLINE(高點,最高,低點 or ISLASTBAR,REF(最高,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,最低,低點 or ISLASTBAR,REF(最低,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,x1,低點 or ISLASTBAR,REF(x1,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,x2,低點 or ISLASTBAR,REF(x2,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,x3,低點 or ISLASTBAR,REF(x3,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,x4,低點 or ISLASTBAR,REF(x4,1),0),LINEDOT,COLORRED;
DRAWLINE(高點,x5,低點 or ISLASTBAR,REF(x5,1),0),LINEDOT,COLORRED;
{寫字}
DRAWTEXT(低點,REF(x1*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 0.191↑'+NUMTOSTR(x1,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(x2*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 0.382↑'+NUMTOSTR(x2,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(x3*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 50% ↑'+NUMTOSTR(x3,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(x4*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 0.618↑'+NUMTOSTR(x4,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(x5*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 0.809↑'+NUMTOSTR(x5,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(最高*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 最 高↑'+NUMTOSTR(最高,2)),ALIGN2,COLORGRAY;
DRAWTEXT(低點,REF(最低*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黃金 最 低↑'+NUMTOSTR(最低,2)),ALIGN2,COLORGRAY;
TEXT:='使用方法：當時間和價格成正方形的時候，轉勢就在眼前．';
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,TEXT),COLORRED,align5;

mead 附帶上了此圖片:

[QUOTE]最初由 mead 發表
[B]《四方測市》]
3q3q3q!