飞狐《黄金分割》指标公式源码

高极点:=SYSPARAM(4);
低极点:=SYSPARAM(5);
位62:=(低极点 + ((高极点 - 低极点) * 0.625));
位37:=(低极点 + ((高极点 - 低极点) * 0.375));
位87:=(低极点 + ((高极点 - 低极点) * 0.875));
位66:=(低极点 + ((高极点 - 低极点) * 0.667));
位33:=(低极点 + ((高极点 - 低极点) * 0.333));
位12:=(低极点 + ((高极点 - 低极点) * 0.125));
DRAWTEXT((ISLASTBAR = 1),位87,(' ▲87.5%：' + NUMTOSTR(位87,2))),ALIGN2,color84C1FF;
DRAWTEXT((ISLASTBAR = 1),位66,(' ▲66.7%：' + NUMTOSTR(位66,2))),ALIGN2,color84C1FF;
DRAWTEXT((ISLASTBAR = 1),位33,(' ▲33.3%：' + NUMTOSTR(位33,2))),ALIGN2,colorFFFF00;
DRAWTEXT((ISLASTBAR = 1),位12,(' ▲12.5%：' + NUMTOSTR(位12,2))),ALIGN2,colorFFFF00;
DRAWTEXT((ISLASTBAR = 1),位62,(' ⊙62.5%：' + NUMTOSTR(位62,2))),ALIGN2,colorFF00;
DRAWTEXT((ISLASTBAR = 1),位37,(' ⊙37.5%：' + NUMTOSTR(位37,2))),ALIGN2,colorFF00;
末根:=(BARPOS = SYSPARAM(3));
线05:(低极点 + ((高极点 - 低极点) * 0.05)),COLOR0010FF,linethick2;
线10:(低极点 + ((高极点 - 低极点) * 0.1));
线191:(低极点 + ((高极点 - 低极点) * 0.191)),COLOR0010FF,linethick2;
线22:(低极点 + ((高极点 - 低极点) * 0.22));
线25:(低极点 + ((高极点 - 低极点) * 0.25));
线28:(低极点 + ((高极点 - 低极点) * 0.28)),COLOR0010FF,linethick2;
线337:(低极点 + ((高极点 - 低极点) * 0.337));
线382:(低极点 + ((高极点 - 低极点) * 0.382));
线45:(低极点 + ((高极点 - 低极点) * 0.45)),COLOR0010FF,linethick2;
线50:(低极点 + ((高极点 - 低极点) * 0.5)),COLOR0010FF,linethick2;
线618:(低极点 + ((高极点 - 低极点) * 0.618));
线667:(低极点 + ((高极点 - 低极点) * 0.667)),COLOR0010FF,linethick2;
线75:(低极点 + ((高极点 - 低极点) * 0.75));
线809:(低极点 + ((高极点 - 低极点) * 0.809)),COLOR0010FF,linethick2;
线55:(低极点 + ((高极点 - 低极点) * 0.55));
线78:(低极点 + ((高极点 - 低极点) * 0.78));
线85:(低极点 + ((高极点 - 低极点) * 0.85));
线90:(低极点 + ((高极点 - 低极点) * 0.9)),COLOR0010FF,linethick2;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.05)),(('江恩05%(' + NUMTOSTR(线05,2)) + ')')),color84C1FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.1)),(('江恩10%(' + NUMTOSTR(线10,2)) + ')')),color84C1FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.22)),(('江恩22%(' + NUMTOSTR(线22,2)) + ')')),color84C1FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.25)),(('江恩25%(' + NUMTOSTR(线25,2)) + ')')),color84C1FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.28)),(('江恩28%(' + NUMTOSTR(线28,2)) + ')')),COLOR0010FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.55)),(('江恩55%(' + NUMTOSTR(线55,2)) + ')')),color84C1FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.191)),(('黄金19.1%(' + NUMTOSTR(线191,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.45)),(('甘氏45%(' + NUMTOSTR(线45,2)) + ')')),COLOR0010FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.382)),(('★黄金38.2%(' + NUMTOSTR(线382,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.337)),(('黄甘33.7%(' + NUMTOSTR(线337,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.5)),(('黄金强弱分界(' + NUMTOSTR(线50,2)) + ')')),COLOR0010FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.618)),(('★黄金61.8%(' + NUMTOSTR(线618,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.667)),(('黄甘66.7%(' + NUMTOSTR(线667,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.75)),(('江恩75%(' + NUMTOSTR(线75,2)) + ')')),colorDAFC8B;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.78)),(('江恩78%(' + NUMTOSTR(线78,2)) + ')')),colorDAFC8B;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.809)),(('黄金80.9%(' + NUMTOSTR(线809,2)) + ')')),colorFFFF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.85)),(('江恩85%(' + NUMTOSTR(线85,2)) + ')')),colorDAFC8B;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.9)),(('江恩90%(' + NUMTOSTR(线90,2)) + ')')),colorDAFC8B;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.999)),(('最高价￥(' + NUMTOSTR(高极点,2)) + ')')),colorFF00FF;
DRAWTEXT((SYSPARAM(2) = BARPOS),(低极点 + ((高极点 - 低极点) * 0.0000)),(('最低价￥(' + NUMTOSTR(低极点,2)) + ')')),colorFFFF00;
低极点+((高极点-低极点)*0.764),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,低极点+((高极点-低极点)*0.764),' 0.764↑'),color009999;
低极点+((高极点-低极点)*0.236),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,低极点+((高极点-低极点)*0.236),' 0.236↑'),color009999;
Input:
左移量(5,0,100,1),
右移量(0,0,100,1),
模式键(1,1,2,1),
甲参数(30,1,1000,1),
乙参数(5,1,365,1);
起柱:=barpos=sysparam(2)+左移量;
终柱:=barpos=sysparam(3)-右移量;
起位:=sysparam(2)+左移量;
终位:=sysparam(3)-右移量;
日期串:=date;
起日:=日期串[起位],linethick0;
终日:=日期串[终位],linethick0;
跨度:=终位-起位,linethick0;
段191:=跨度*(0.191);
段382:=跨度*(0.382);
段500:=跨度*(0.5);
段618:=跨度*(0.618);
段809:=跨度*(0.809);
柱191:=sysparam(2)+左移量+ROUND(段191);
标191:=BARPOS=柱191;
VERTLINE(标191),colorffff33,LINEDOT;
日191:=日期串[柱191],linethick0;
柱382:=起位+ROUND(段382);
标382:=BARPOS=柱382;
VERTLINE(标382),color00aaaa,LINEDOT;
日382:=日期串[柱382],linethick0;
柱500:=起位+ROUND(段500);
标500:=BARPOS=柱500;
VERTLINE(标500),color0000ff,LINEDOT;
日500:=日期串[柱500],linethick0;
柱618:=起位+ROUND(段618);
标618:=BARPOS=柱618;
VERTLINE(标618),color00aaaa,LINEDOT;
日618:=日期串[柱618],linethick0;
柱809:=起位+ROUND(段809);
标809:=BARPOS=柱809;
VERTLINE(标809),colorffff33,LINEDOT;
日809:=日期串[柱809],linethick0;
顶价:=SYSPARAM(4);
底价:=SYSPARAM(5);
drawtext(起柱,顶价*0.99,'0点'),color00ffff;
drawtext(终柱,顶价*0.99,'100%'),color00ffff,align2;
drawtext(标191,顶价*0.99,'0.191'),colorffff33;
drawtext(标382,顶价*0.99,'0.382'),color00aaaa;
drawtext(标500,顶价*0.99,'0.5'),color0000ff;
drawtext(标618,顶价*0.99,'0.618'),color00aaaa;
drawtext(标809,顶价*0.99,'0.809'),colorffff33;
input:丙(1,1,3,1);
极顶:= SYSPARAM(4);
极底:= SYSPARAM(5);
全幅:=极顶-极底;
顶距 := BARSlast(H=极顶);
底距 :=BARSlast(L=极底);
先后 := 顶距-底距;
分25 :=if(先后<0,极顶- 全幅*0.25,极底+全幅*0.25);
分75 :=if(先后<0,极顶- 全幅*0.75,极底+全幅*0.75);
分31 :=if(先后<0,极顶- 全幅*0.3125,极底+全幅*0.3125);
中分 := 极顶-全幅*0.5;分12:=if(先后<0,极顶- 全幅*0.125,极底+全幅*0.125);分06:=if(先后<0,极顶- 全幅*0.0625,极底+全幅*0.0625);分37:=if(先后<0,极顶- 全幅*0.375,极底+全幅*0.375);分62:=if(先后<0,极顶- 全幅*0.625,极底+全幅*0.625);
分18:=if(先后<0,极顶- 全幅*0.1875,极底+全幅*0.1875);分87:=if(先后<0,极顶- 全幅*0.875,极底+全幅*0.875);分43:=if(先后<0,极顶- 全幅*0.4375,极底+全幅*0.4375);分56:=if(先后<0,极顶- 全幅*0.5625,极底+全幅*0.5625);
分68:=if(先后<0,极顶- 全幅*0.6875,极底+全幅*0.6875);分93:=if(先后<0,极顶- 全幅*0.9375,极底+全幅*0.9375);分81:=if(先后<0,极顶- 全幅*0.8125,极底+全幅*0.8125);末标 := islastbar;
DRAWTEXT(末标 and 丙<>3,极顶, ' 最高价：'+NUMTOSTR(极顶,2)),ALIGN2,colorred;DRAWTEXT(末标 and 丙<>3,极底, ' 最低价：'+NUMTOSTR(极底,2)),ALIGN2,,COLORCYAN;
DRAWTEXT(末标 and 丙<>3,中分,' 50%：'+NUMTOSTR(中分,2)),ALIGN2,coloryellow;DRAWTEXT(末标 and 丙=1, 分25, ' 25%：'+NUMTOSTR(分25,2)),ALIGN2,coloryellow;
DRAWTEXT(末标 and 丙=1, 分75, ' 75%：'+NUMTOSTR(分75,2)),ALIGN2,colorgreen;DRAWTEXT(末标 and 丙=1, 分31, ' 31.25%：'+NUMTOSTR(分31,3)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分12, ' 12.5%：'+NUMTOSTR(分12,2)),ALIGN2,COLORGRAY;DRAWTEXT(末标 and 丙=1, 分06, ' 6.25%：'+NUMTOSTR(分06,2)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分37, ' 37.5%：'+NUMTOSTR(分37,2)),ALIGN2,COLORGRAY;DRAWTEXT(末标 and 丙=1, 分62, ' 62.5%：'+NUMTOSTR(分62,2)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分18, ' 18.75%：'+NUMTOSTR(分18,3)),ALIGN2,COLORGRAY;DRAWTEXT(末标 and 丙=1, 分87, ' 87.5%：'+NUMTOSTR(分87,2)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分43, ' 43.75%：'+NUMTOSTR(分43,2)),ALIGN2,COLORGRAY;DRAWTEXT(末标 and 丙=1, 分56, ' 56.25%：'+NUMTOSTR(分56,2)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分68, ' 68.75%：'+NUMTOSTR(分68,2)),ALIGN2,COLORGRAY;DRAWTEXT(末标 and 丙=1, 分93, ' 93.75%：'+NUMTOSTR(分93,2)),ALIGN2,COLORGRAY;
DRAWTEXT(末标 and 丙=1, 分81, ' 81.25：'+NUMTOSTR(分81,2)),ALIGN2,COLORGRAY;
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;