|
01.INPUT:周期(0,0,10),自选(1,1,1000); 02.n:=YEAR>ref(YEAR,1)or barpos=1; 03.j1:=cross(MONTH>=1 and MONTH<=3,0.5); 04.j2:=cross(MONTH>=4 and MONTH<=6,0.5); 05.j3:=cross(MONTH>=7 and MONTH<=9,0.5); 06.j4:=cross(MONTH>=10 and MONTH<=12,0.5); 07.j:=(j1+j2+j3+j4)or barpos=1; 08.y:=MONTH<>ref(MONTH,1)or barpos=1; 09.z:=datediff(ref(date,1),date)<>weekday-ref(weekday,1) or barpos=1; 10.r:=day<>ref(day,1)or barpos=1; 11.f:=INTPART(TIME/100)LINETHICK; 12.fs:=sum(f>ref(f,1)or BARPOS=1,0)-1; 13.w1:=f>ref(f,1)or BARPOS=1; 14.lx:=DATATYPE,COLORWHITE,LINETHICK0; 15.lx1:=DATATYPE+周期,COLORWHITE,LINETHICK0; 16.w2:=if(自选=1,w1,cross(0.5,mod(fs,自选)=0)); 17.s:=BARPOS; 18.fb:=if(lx=0 and lx1=0,w1, 19.if(lx=0 and lx1=1,cross(0.5,mod(fs,5)=0), 20.if(lx=0 and lx1=2,cross(0.5,mod(fs,15)=0), 21.if(lx=0 and lx1=3,cross(0.5,mod(fs,30)=0), 22.if(lx=0 and lx1=4,cross(0.5,mod(fs,60)=0),w2))))); 23.f1:=if(lx=1 and lx1=1,mod(s,5)=1, 24.if(lx=1 and lx1=2,mod(s,15)=1, 25.if(lx=1 and lx1=3,mod(s,30)=1, 26.if(lx=1 and lx1=4,mod(s,60)=1,mod(s,自选+1)=1)))); 27.f5:=if(lx=2 and lx1=2,mod(s,3)=1, 28.if(lx=2 and lx1=3,mod(s,6)=1, 29.if(lx=2 and lx1=4,mod(s,12)=1, 30.if(lx=2 and lx1=5,r,mod(s,自选+1)=1)))); 31.f15:=if(lx=3 and lx1=3,mod(s,2)=1, 32.if(lx=3 and lx1=4,mod(s,4)=1, 33.if(lx=3 and lx1=5,r, 34.if(lx=3 and lx1=6,z,mod(s,自选+1)=1)))); 35.f30:=if(lx=4 and lx1=4,mod(s,2)=1, 36.if(lx=4 and lx1=5,r, 37.if(lx=4 and lx1=6,z, 38.if(lx=4 and lx1=7,y,mod(s,自选+1)=1)))); 39.f60:=if(lx=5 and lx1=5,r, 40.if(lx=5 and lx1=6,z, 41.if(lx=5 and lx1=7,y, 42.if(lx=5 and lx1=8,j,mod(s,自选+1)=1)))); 43.r:=if(lx=6 and lx1=6,z, 44.if(lx=6 and lx1=7,y, 45.if(lx=6 and lx1=8,j, 46.if(lx=6 and lx1=9,n,mod(s,自选+1)=1)))); 47.z:=if(lx=7 and lx1=7,y, 48.if(lx=7 and lx1=8,j, 49.if(lx=7 and lx1=9,n,mod(s,自选+1)=1))); 50.y:=if(lx=8 and lx1=8,j, 51.if(lx=8 and lx1=9,n,mod(s,自选+1)=1)); 52.x:=if(lx=0,fb,if(lx=1,f1,if(lx=2,f5,if(lx=3,f15,if(lx=4,f30,if(lx=5,f60, 53.if(lx=6,r,if(lx=7,z,if(lx=8,y,0))))))))); 54. 55.fba:=if(lx=0 and lx1=0,'1分钟', 56.if(lx=0 and lx1=1,'5分钟', 57.if(lx=0 and lx1=2,'15分钟', 58.if(lx=0 and lx1=3,'30分钟', 59.if(lx=0 and lx1=4,'60分钟','自选'+NUMTOSTR(自选,0)+'分钟'))))); 60.f1a:=if(lx=1 and lx1=1,'5分钟', 61.if(lx=1 and lx1=2,'15分钟', 62.if(lx=1 and lx1=3,'30分钟', 63.if(lx=1 and lx1=4,'60分钟','自选'+NUMTOSTR(自选+1,0)+'分钟')))); 64.f5a:=if(lx=2 and lx1=2,'15分钟', 65.if(lx=2 and lx1=3,'30分钟', 66.if(lx=2 and lx1=4,'60分钟', 67.if(lx=2 and lx1=5,'日线','自选'+NUMTOSTR((自选+1)*5,0)+'分钟线')))); 68.f15a:=if(lx=3 and lx1=3,'30分钟', 69.if(lx=3 and lx1=4,'60分钟', 70.if(lx=3 and lx1=5,'日线', 71.if(lx=3 and lx1=6,'周线','自选'+NUMTOSTR((自选+1)*15,0)+'分钟线')))); 72.f30a:=if(lx=4 and lx1=4,'60', 73.if(lx=4 and lx1=5,'日线', 74.if(lx=4 and lx1=6,'周线', 75.if(lx=4 and lx1=7,'月线','自选'+NUMTOSTR((自选+1)*30,0)+'分钟线')))); 76.f60a:=if(lx=5 and lx1=5,'日线', 77.if(lx=5 and lx1=6,'周线', 78.if(lx=5 and lx1=7,'月线', 79.if(lx=5 and lx1=8,'季线','自选'+NUMTOSTR((自选+1)*60,0)+'分钟线')))); 80.ra:=if(lx=6 and lx1=6,'周线', 81.if(lx=6 and lx1=7,'月线', 82.if(lx=6 and lx1=8,'季线', 83.if(lx=6 and lx1=9,'年线','自选'+NUMTOSTR(自选+1,0)+'周期日线')))); 84.za:=if(lx=7 and lx1=7,'月线', 85.if(lx=7 and lx1=8,'季线', 86.if(lx=7 and lx1=9,'年线','自选'+NUMTOSTR(自选+1,0)+'周期周线'))); 87.ya:=if(lx=8 and lx1=8,'季线', 88.if(lx=8 and lx1=9,'年线','自选'+NUMTOSTR(自选+1,0)+'周期月线')); 89.x1:=if(lx=0,fba,if(lx=1,f1a,if(lx=2,f5a,if(lx=3,f15a,if(lx=4,f30a,if(lx=5,f60a, 90.if(lx=6,ra,if(lx=7,za,if(lx=8,ya,'0'))))))))); 91. 92.zq:=x,COLORWHITE; 93.zqs:=sum(zq,0); 94.fzqs:=zqs[DATACOUNT]-zqs; 95.fks:=DATACOUNT-BARPOS; 96.t:=sumbars(zq,1); 97.t1:=sumbars(zq,fks-fzqs); 98.km:=BACKSET(ISLASTBAR and zq=1,2); 99.t2:=if(km,0,t1);t22:=LBOUND(t2); 100.oo:=ref(o,t-1); 101.hh:=hhv(h,t); 102.ll:=llv(l,t); 103.vv:=sum(v,t); 104.jh:=sum(AMOUNT,t); 105. 106.时间:=if(ISLASTBAR,f,ref(f,t2)),LINETHICK0,PRECISION0,COLORWHITE; 107.开:ref(oo,t2),LINETHICK0,PRECISION2,COLORBDBEBD; 108.高:if(ISLASTBAR,hh,ref(hh,t2)),LINETHICK0,PRECISION2,COLORBDBEBD; 109.低:if(ISLASTBAR,ll,ref(ll,t2)),LINETHICK0,PRECISION2,COLORBDBEBD; 110.收:if(ISLASTBAR,c,ref(c,t2)),LINETHICK0,PRECISION2,COLORBDBEBD; 111.量:if(ISLASTBAR,vv,ref(vv,t2)),LINETHICK0,PRECISION2,COLORBDBEBD; 112.额:if(ISLASTBAR,jh,ref(jh,t2)),LINETHICK0,PRECISION2,COLORBDBEBD; 113.换:量*100/CAPITAL,LINETHICK0,PRECISION2,COLORBDBEBD; 114.振:(高-低)/ref(收,1)*100,LINETHICK0,PRECISION2,COLORBDBEBD; 115.涨〔:PARTLINE(0,0),COLORBDBEBD; 116.收-ref(收,1),LINETHICK0,PRECISION2,COLORBDBEBD; 117.〕:PARTLINE(0,0),COLORBDBEBD; 118.收/ref(收,1)*100-100,LINETHICK0,PRECISION2,COLORBDBEBD; 119.％:PARTLINE(0,0),COLORBDBEBD; 120.k:=收>开 or 收=开 and 收>ref(收,1); 121.STICKLINE(k,低,高,0.1,1),colorred; 122.STICKLINE(k,收,开,7,1),colorred; 123.STICKLINE(not(k),低,高,0.1,0),colorcyan; 124.STICKLINE(not(k),收,开,7,0),colorcyan; 125. 126. 127.a1:=if(ISLASTBAR,YEAR,ref(YEAR,t2)),LINETHICK;; 128.b1:=if(ISLASTBAR,MONTH,ref(MONTH,t2)),LINETHICK; 129.c1:=if(ISLASTBAR,day,ref(day,t2)),LINETHICK; 130.d1:=if(ISLASTBAR,weekday,ref(weekday,t2)),LINETHICK; 131.a2:=0*c;b2:=0*c;c2:=0*c;d2:=0*c;时间1:=0*c; 132.kw:=if(s>LBOUND(t2),1,0);xr:=HOUR; 133.for i=1 to datacount do begin 134. if kw then begin 135. a2:=a1; 136. b2:=b1; 137. c2:=c1; 138. d2:=d1; 139. 时间1:=时间; 140. end; 141.end; 142.p:=SYSPARAM(1); 143.g:=时间1[p]/100; 144.g1:=INTPART(g)COLORWHITE; 145.xq:=if(d2[p]=1,'一',if(d2[p]=2,'二',if(d2[p]=3,'三',if(d2[p]=4,'四',if(d2[p]=5,'五','0'))))); 146.sz:=NUMTOSTR(a2[p],0)+'年'+'/'+NUMTOSTR(b2[p],0)+'月'+'/'+NUMTOSTR(c2[p],0)+'日'+'/'+NUMTOSTR(g1,0)+':'+STRRIGHT(NUMTOSTR(时间1[p],0),2)+' '+'星期'+xq; 147.DRAWTEXTEX(1,0,0,0,'当前周期∶'+x1+' '+sz),ALIGN4,COLORBDBEBD;股 |
|
|
