|
------------------------------------------------------------------ 突破:=REF(EMA(C,14),1); A1X:=(EMA(C,10)-突破)/突破*100; 多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL); 空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL); STICKLINE(A1X>=0,多方,突破,0,0),COLOR000099; STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66; {分時看盤} 主買:="FSYY.主買#DAY"; 前量:="FSYY.前量#DAY"; 前主:="FSYY.前主#DAY"; 昨量:="FSYY.昨量#DAY"; 昨主:="FSYY.昨主#DAY"; 今量:="FSYY.今量#DAY"; 前4:="FSYY.前4#DAY"; 主4:="FSYY.主4#DAY"; 前5:="FSYY.前5#DAY"; 主5:="FSYY.主5#DAY"; 前總:=前量; 昨總:=昨量; 總:=今量,NODRAW; BMM:=MAX(前總,昨總); AMM:=IF(總/BMM>2,BMM*3,BMM); MM:=500/AMM; KP:=DYNAINFO(4); ZX:=DYNAINFO(7); A1:=IF(ZX>=KP,255,0); A2:=IF(ZX>=KP,0,255); A3:=IF(ZX>=KP,0,255); DRAWRECTREL(0,210,MM*今量,240,RGB(A1,A2,A3)); DRAWRECTREL(0,210,MM*主買,240,RGB(250,00,250)); ZO:="FSYY.ZO#DAY"; ZC:="FSYY.ZC#DAY"; A4:=IF(ZC>=ZO,255,0); A5:=IF(ZC>=ZO,0,255); A6:=IF(ZC>=ZO,0,255); DRAWRECTREL(0,170,MM*昨量,200,RGB(A4,A5,A6)); DRAWRECTREL(0,170,MM*昨主,200,RGB(250,00,250)); JO:="FSYY.JO#DAY"; JC:="FSYY.JC#DAY"; A7:=IF(JC>=JO,255,0); A8:=IF(JC>=JO,0,255); A9:=IF(JC>=JO,0,255); DRAWRECTREL(0,130,MM*前量,160,RGB(A7,A8,A9)); DRAWRECTREL(0,130,MM*前主,160,RGB(250,00,250)); JO3:="FSYY.JO3#DAY"; JC3:="FSYY.JC3#DAY"; A10:=IF(JC3>=JO3,255,0); A11:=IF(JC3>=JO3,0,255); A12:=IF(JC3>=JO3,0,255); DRAWRECTREL(0,90,MM*前4,120,RGB(A10,A11,A12)); DRAWRECTREL(0,90,MM*主4,120,RGB(250,00,250)); JO4:="FSYY.JO4#DAY"; JC4:="FSYY.JC4#DAY"; A13:=IF(JC4>=JO4,255,0); A14:=IF(JC4>=JO4,0,255); A15:=IF(JC4>=JO4,0,255); DRAWRECTREL(0,50,MM*前5,80,RGB(A13,A14,A15)); DRAWRECTREL(0,50,MM*主5,80,RGB(250,00,250)); {分時K} ZS:=DYNAINFO(3); ZG:=DYNAINFO(5); ZD:=DYNAINFO(6); OP:=500-(KP/ZS-1)*1200; CL:=500-(ZX/ZS-1)*1200; HI:=500-(ZG/ZS-1)*1200; LO:=500-(ZD/ZS-1)*1200; N1:=IF(HOUR>=13,860,860); Z1:=IF(ZX>=KP,255,0); Z2:=IF(ZX>=KP,0,255); Z3:=IF(ZX>=KP,0,255); DRAWRECTREL(N1+35,HI,N1+35,LO,RGB(Z1,Z2,Z3)); Q1:=IF(ZX>=KP,255,0); Q2:=IF(ZX>=KP,0,255); Q3:=IF(ZX>=KP,0,255); DRAWRECTREL(N1+25,OP,N1+45,CL,RGB(Q1,Q2,Q3)); ZH:="FSYY.ZH#DAY"; ZL:="FSYY.ZL#DAY"; ZKP:=500-(ZO/ZS-1)*1200; ZCP:=500-(ZC/ZS-1)*1200; ZZG:=500-(ZH/ZS-1)*1200; ZZD:=500-(ZL/ZS-1)*1200; Z4:=IF(ZC>=ZO,255,0); Z5:=IF(ZC>=ZO,0,255); Z6:=IF(ZC>=ZO,0,255); DRAWRECTREL(N1+5,ZZG,N1+5,ZZD,RGB(Z4,Z5,Z6)); Q4:=IF(ZC>=ZO,255,0); Q5:=IF(ZC>=ZO,0,255); Q6:=IF(ZC>=ZO,0,255); DRAWRECTREL(N1-5,ZKP,N1+15,ZCP,RGB(Q4,Q5,Q6)); JH:="FSYY.JH#DAY"; JL:="FSYY.JL#DAY"; ZZKP:=500-(JO/ZS-1)*1200; ZZCP:=500-(JC/ZS-1)*1200; ZZZG:=500-(JH/ZS-1)*1200; ZZZD:=500-(JL/ZS-1)*1200; Z7:=IF(JC>=JO,255,0); Z8:=IF(JC>=JO,0,255); Z9:=IF(JC>=JO,0,255); DRAWRECTREL(N1-25,ZZZG,N1-25,ZZZD,RGB(Z7,Z8,Z9)); Q7:=IF(JC>=JO,255,0); Q8:=IF(JC>=JO,0,255); Q9:=IF(JC>=JO,0,255); DRAWRECTREL(N1-35,ZZKP,N1-15,ZZCP,RGB(Q7,Q8,Q9)); JH3:="FSYY.JH3#DAY"; JL3:="FSYY.JL3#DAY"; ZZKP3:=500-(JO3/ZS-1)*1200; ZZCP3:=500-(JC3/ZS-1)*1200; ZZZG3:=500-(JH3/ZS-1)*1200; ZZZD3:=500-(JL3/ZS-1)*1200; Z10:=IF(JC3>=JO3,255,0); Z11:=IF(JC3>=JO3,0,255); Z12:=IF(JC3>=JO3,0,255); DRAWRECTREL(N1-55,ZZZG3,N1-55,ZZZD3,RGB(Z10,Z11,Z12)); Q10:=IF(JC3>=JO3,255,0); Q11:=IF(JC3>=JO3,0,255); Q12:=IF(JC3>=JO3,0,255); DRAWRECTREL(N1-65,ZZKP3,N1-45,ZZCP3,RGB(Q10,Q11,Q12)); JH4:="FSYY.JH4#DAY"; JL4:="FSYY.JL4#DAY"; ZZKP4:=500-(JO4/ZS-1)*1200; ZZCP4:=500-(JC4/ZS-1)*1200; ZZZG4:=500-(JH4/ZS-1)*1200; ZZZD4:=500-(JL4/ZS-1)*1200; Z13:=IF(JC4>=JO4,255,0); Z14:=IF(JC4>=JO4,0,255); Z15:=IF(JC4>=JO4,0,255); DRAWRECTREL(N1-85,ZZZG4,N1-85,ZZZD4,RGB(Z13,Z14,Z15)); Q13:=IF(JC4>=JO4,255,0); Q14:=IF(JC4>=JO4,0,255); Q15:=IF(JC4>=JO4,0,255); DRAWRECTREL(N1-95,ZZKP4,N1-75,ZZCP4,RGB(Q13,Q14,Q15)); JO5:="FSYY.JO5#DAY"; JC5:="FSYY.JC5#DAY"; JH5:="FSYY.JH5#DAY"; JL5:="FSYY.JL5#DAY"; ZZKP5:=500-(JO5/ZS-1)*1200; ZZCP5:=500-(JC5/ZS-1)*1200; ZZZG5:=500-(JH5/ZS-1)*1200; ZZZD5:=500-(JL5/ZS-1)*1200; Z16:=IF(JC5>=JO5,255,0); Z17:=IF(JC5>=JO5,0,255); Z18:=IF(JC5>=JO5,0,255); DRAWRECTREL(N1-115,ZZZG5,N1-115,ZZZD5,RGB(Z16,Z17,Z18)); Q16:=IF(JC5>=JO5,255,0); Q17:=IF(JC5>=JO5,0,255); Q18:=IF(JC5>=JO5,0,255); DRAWRECTREL(N1-125,ZZKP5,N1-105,ZZCP5,RGB(Q16,Q17,Q18)); JO6:="FSYY.JO6#DAY"; JC6:="FSYY.JC6#DAY"; JH6:="FSYY.JH6#DAY"; JL6:="FSYY.JL6#DAY"; ZZKP6:=500-(JO6/ZS-1)*1200; ZZCP6:=500-(JC6/ZS-1)*1200; ZZZG6:=500-(JH6/ZS-1)*1200; ZZZD6:=500-(JL6/ZS-1)*1200; Z19:=IF(JC6>=JO6,255,0); Z20:=IF(JC6>=JO6,0,255); Z21:=IF(JC6>=JO6,0,255); DRAWRECTREL(N1-145,ZZZG6,N1-145,ZZZD6,RGB(Z19,Z20,Z21)); Q19:=IF(JC6>=JO6,255,0); Q20:=IF(JC6>=JO6,0,255); Q21:=IF(JC6>=JO6,0,255); DRAWRECTREL(N1-155,ZZKP6,N1-135,ZZCP6,RGB(Q19,Q20,Q21)); JO7:="FSYY.JO7#DAY"; JC7:="FSYY.JC7#DAY"; JH7:="FSYY.JH7#DAY"; JL7:="FSYY.JL7#DAY"; ZZKP7:=500-(JO7/ZS-1)*1200; ZZCP7:=500-(JC7/ZS-1)*1200; ZZZG7:=500-(JH7/ZS-1)*1200; ZZZD7:=500-(JL7/ZS-1)*1200; Z22:=IF(JC7>=JO7,255,0); Z23:=IF(JC7>=JO7,0,255); Z24:=IF(JC7>=JO7,0,255); DRAWRECTREL(N1-175,ZZZG7,N1-175,ZZZD7,RGB(Z22,Z23,Z24)); Q22:=IF(JC7>=JO7,255,0); Q23:=IF(JC7>=JO7,0,255); Q24:=IF(JC7>=JO7,0,255); DRAWRECTREL(N1-185,ZZKP7,N1-165,ZZCP7,RGB(Q22,Q23,Q24)); JO8:="FSYY.JO8#DAY"; JC8:="FSYY.JC8#DAY"; JH8:="FSYY.JH8#DAY"; JL8:="FSYY.JL8#DAY"; ZZKP8:=500-(JO8/ZS-1)*1200; ZZCP8:=500-(JC8/ZS-1)*1200; ZZZG8:=500-(JH8/ZS-1)*1200; ZZZD8:=500-(JL8/ZS-1)*1200; Z25:=IF(JC8>=JO8,255,0); Z26:=IF(JC8>=JO8,0,255); Z27:=IF(JC8>=JO8,0,255); DRAWRECTREL(N1-205,ZZZG8,N1-205,ZZZD8,RGB(Z25,Z26,Z27)); Q25:=IF(JC8>=JO8,255,0); Q26:=IF(JC8>=JO8,0,255); Q27:=IF(JC8>=JO8,0,255); DRAWRECTREL(N1-215,ZZKP8,N1-195,ZZCP8,RGB(Q25,Q26,Q27)); JO9:="FSYY.JO9#DAY"; JC9:="FSYY.JC9#DAY"; JH9:="FSYY.JH9#DAY"; JL9:="FSYY.JL9#DAY"; ZZKP9:=500-(JO9/ZS-1)*1200; ZZCP9:=500-(JC9/ZS-1)*1200; ZZZG9:=500-(JH9/ZS-1)*1200; ZZZD9:=500-(JL9/ZS-1)*1200; Z28:=IF(JC9>=JO9,255,0); Z29:=IF(JC9>=JO9,0,255); Z30:=IF(JC9>=JO9,0,255); DRAWRECTREL(N1-235,ZZZG9,N1-235,ZZZD9,RGB(Z28,Z29,Z30)); Q28:=IF(JC9>=JO9,255,0); Q29:=IF(JC9>=JO9,0,255); Q30:=IF(JC9>=JO9,0,255); DRAWRECTREL(N1-245,ZZKP9,N1-225,ZZCP9,RGB(Q28,Q29,Q30)); MA5:="FSYY.MA5#DAY"; XMA5:=500-(MA5/ZS-1)*1200; DRAWRECTREL(N1+28,XMA5,N1+42,XMA5,RGB(255,255,255)); MA10:="FSYY.MA10#DAY"; XMA10:=500-(MA10/ZS-1)*1200; DRAWRECTREL(N1+18,XMA10,N1+52,XMA10,RGB(250,250,280)); MA20:="FSYY.MA20#DAY"; XMA20:=500-(MA20/ZS-1)*1200; DRAWRECTREL(N1+10,XMA20,N1+60,XMA20,RGB(0,0,255)),COLORC0C0C0; MA60:="FSYY.MA60#DAY"; XMA60:=500-(MA60/ZS-1)*1200; DRAWRECTREL(N1+0,XMA60,N1+70,XMA60,RGB(0,255,0)),COLOR808000; 分時均價線:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1; D:=CLOSE,LINETHICK2,COLORWHITE; 十純％:="FSYY.十純％#DAY"; 五純％:="FSYY.五純％#DAY",NODRAW; 一純％:="FSYY.一純％#DAY",NODRAW; 三純％:="FSYY.三純％#DAY",NODRAW; DDE:="FSYY.動向#DAY"; DDE3:="FSYY.三日#DAY"; DDE5:="FSYY.五日#DAY"; DDE10:="FSYY.十日#DAY"; 大單凈額:="FSYY.凈買#DAY"; {十純％:=IF(PERIOD=0 ,"FSYY.十純％#DAY",DRAWNULL),NODRAW; 五純％:=IF(PERIOD=0 ,"FSYY.五純％#DAY",DRAWNULL),NODRAW; 一純％:=IF(PERIOD=0 ,"FSYY.一純％#DAY",DRAWNULL),NODRAW; 三純％:=IF(PERIOD=0 ,"FSYY.三純％#DAY",DRAWNULL),NODRAW;} K:=IF((分時均價線-ZS)/ZS*100>0.5,0.5,0); DRAWTEXT_FIX(十純％>=0,0.1,1-0.28,0,STRCAT('十日純量％: ',CON2STR(十純％,2))),COLOR0000FF; DRAWTEXT_FIX(十純％<0,0.1,1-0.28,0,STRCAT('十日純量％: ',CON2STR(十純％,2))),COLORFFFF00; DRAWTEXT_FIX(五純％>=0,0.1,1-0.23,0,STRCAT('五日純量％: ',CON2STR(五純％,2))),COLOR0000FF; DRAWTEXT_FIX(五純％<0,0.1,1-0.23,0,STRCAT('五日純量％: ',CON2STR(五純％,2))),COLORFFFF00; DRAWTEXT_FIX(三純％>=0,0.1,1-0.18,0,STRCAT('三日純量％: ',CON2STR(三純％,2))),COLOR0000FF; DRAWTEXT_FIX(三純％<0,0.1,1-0.18,0,STRCAT('三日純量％: ',CON2STR(三純％,2))),COLORFFFF00; DRAWTEXT_FIX(一純％>=0,0.1,1-0.13,0,STRCAT('當日純量％: ',CON2STR(一純％,2))),COLOR0000FF; DRAWTEXT_FIX(一純％<0,0.1,1-0.13,0,STRCAT('當日純量％: ',CON2STR(一純％,2))),COLORFFFF00; DRAWTEXT_FIX(DDE10>=5,0.6,1-0.28,0,STRCAT('十日飄紅: ',CON2STR(DDE10,2))),COLOR0000FF; DRAWTEXT_FIX(DDE10<5,0.6,1-0.28,0,STRCAT('十日飄紅: ',CON2STR(DDE10,2))),COLORFFFF00; DRAWTEXT_FIX(DDE5>=3,0.6,1-0.23,0,STRCAT('五日飄紅: ',CON2STR(DDE5,2))),COLOR0000FF; DRAWTEXT_FIX(DDE5<3,0.6,1-0.23,0,STRCAT('五日飄紅: ',CON2STR(DDE5,2))),COLORFFFF00; DRAWTEXT_FIX(DDE3>=2,0.6,1-0.18,0,STRCAT('三日飄紅: ',CON2STR(DDE3,2))),COLOR0000FF; DRAWTEXT_FIX(DDE3<2,0.6,1-0.18,0,STRCAT('三日飄紅: ',CON2STR(DDE3,2))),COLORFFFF00; DRAWTEXT_FIX(DDE>0,0.6,1-0.13,0,STRCAT('當日DDE: ',CON2STR(DDE,2))),COLOR0000FF; DRAWTEXT_FIX(DDE<=0,0.6,1-0.13,0,STRCAT('當日DDE: ',CON2STR(DDE,2))),COLORFFFF00; DRAWTEXT_FIX(大單凈額>0,0.3,1-0.18,0,STRCAT('大單凈額: ',CON2STR(大單凈額,2))),COLOR0000FF; DRAWTEXT_FIX(大單凈額<=0,0.3,1-0.18,0,STRCAT('大單凈額: ',CON2STR(大單凈額,2))),COLORFFFF00; 上漲家數(shù):=IF(PERIOD=0 ,"FSYY.上漲家數(shù)#DAY",DRAWNULL),NODRAW; 下跌家數(shù):=IF(PERIOD=0 ,"FSYY.下跌家數(shù)#DAY",DRAWNULL),NODRAW; DRAWTEXT_FIX(1,0.100,1-0.06,0,STRCAT('上漲家數(shù):',CON2STR(上漲家數(shù),0))),COLOR0000FF; DRAWTEXT_FIX(1,0.600,1-0.06,0,STRCAT('下跌家數(shù):',CON2STR(下跌家數(shù),0))),COLOR00FF00; 均價:SUM(V*C,0)/SUM(V,0),COLORYELLOW; 天:EMA(均價,25)/0.9712,LINETHICK2,COLORGREEN; 地:EMA(均價,25)/1.0288,LINETHICK2,COLORGREEN; IF(地>REF(地,1),地,DRAWNULL),COLORRED,LINETHICK2; IF(天>REF(天,1),天,DRAWNULL),COLORRED,LINETHICK2; 平衡線1:(均價+天)/2,DOTLINE,COLORYELLOW; 平衡線2:(均價+地)/2,DOTLINE,COLORYELLOW; SUM(V*C,0)/SUM(V,0),COLORYELLOW; C,COLORWHITE; V1:=TIME; T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)), (FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW; XG:HHV(H,60),COLORBLUE,LINETHICK1; XG1:LLV(L,T),COLORMAGENTA,LINETHICK1; STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,C,0.1,0),COLORGREEN; DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,'上突'),COLORYELLOW; STICKLINE(FILTER(CROSS(C,REF(XG1,1)),10),C*1.02,C,0.5,0),COLORCYAN; DRAWTEXT(FILTER(CROSS(C,REF(XG1,1)),10),C*1.02,'下破'),COLORWHITE;股票論壇 www.55188.com |
|
|
