©_ª°ªÀ°Ï½×¾Â (http://www.chiefox.com.tw/bbs/index.php)
- °ÝÃD¥æ¬y (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [°ÝÃD]·Q­n¤Á´«¨ì©P,¤ë¨â¶g´Á¥ç¥iÅã¥Ü¦±½u (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19456)

[°ÝÃD]·Q­n¤Á´«¨ì©P,¤ë¨â¶g´Á¥ç¥iÅã¥Ü¦±½u

·½½X¦p¤U:
XX:=STRCMP(STKLABEL, '100')=0 OR STRCMP(STKLABEL, '400')=0;
AB:=IF(XX=0 ,GALDATA(10), GALDATA(10)/100000000);
SA:=(96+11)*10000+1*100+2;
SB:=DATE>=SA;

TA:=IF(1=1,BACKSET(ISLASTBAR,IF(BARPOS>1319,1319+1,BARPOS)),SB);
TB:=BARSLAST(TA=1)+1;
TC:=SUM(TB,0)-1;
ªk¤H:IF(TC=0,0,SUM(AB,TC)),Colorblack,Linethick2,Precision0;
½Ð¨ó§U!ÁÂÁÂ!

©P½u¶g´Á!

¤ë½u¶g´Á!

¦^ÂÐ: [°ÝÃD]·Q­n¤Á´«¨ì©P,¤ë¨â¶g´Á¥ç¥iÅã¥Ü¦±½u

¤Þ¥Î:

---

³Ìªì¥Ñ Markchu7 µoªí
·½½X¦p¤U:
XX:=STRCMP(STKLABEL, '100')=0 OR STRCMP(STKLABEL, '400')=0;
AB:=IF(XX=0 ,GALDATA(10), GALDATA(10)/100000000);
SA:=(96+11)*10000+1*100+2;
SB:=DATE>=SA;

TA:=IF(1=1,BACKSET(ISLASTBAR,IF(BARPOS>1319,1319+1,BARPOS)),SB);
TB:=BARSLAST(TA=1)+1;
TC:=SUM(TB,0)-1;
ªk¤H:IF(TC=0,0,SUM(AB,TC)),Colorblack,Linethick2,Precision0;
½Ð¨ó§U!ÁÂÁÂ!

---

ÁÂÁÂ!¨Ó¥h¬ã¨s¬ã¨s!

¹ï¤£°_!¯à¤O¦³­­,¹ê¦b¤£¬O«ÜÀ´!
½Ð°Ý:¦bGGD¤¤­n¨D¥X¹³GGH¤¤ªº'ªk¤H®w¦sÁ`ÅܤÆ'ªº¼Æ¾Ú­n¦p¦ó¼g©O?½Ð«ü¾É!

¤Þ¥Î:

---

³Ìªì¥Ñ Markchu7 µoªí
¹ï¤£°_!¯à¤O¦³­­,¹ê¦b¤£¬O«ÜÀ´!
½Ð°Ý:¦bGGD¤¤­n¨D¥X¹³GGH¤¤ªº'ªk¤H®w¦sÁ`ÅܤÆ'ªº¼Æ¾Ú­n¦p¦ó¼g©O?½Ð«ü¾É!

---

ÁÙ¬O¼g¤£¥X¨Ó!
¸ÕµÛ³o¼Ë¼g(¥u­nªk¤HÁ`©M§Y¥i)¤]¤£¹ï!
STYPE:=numtostr(DATATYPE,0);
ADDSTR:=strmid('¤é¶g¤ë',(DATATYPE-6)*2+1,2);

//¦b«ü¼Æ®É³æ¦ì¬°»õ¡A¦b­ÓªÑ®É³æ¦ì¬°±i
XX:=STKLABEL='100' OR STKLABEL='400';
if DATATYPE=7 or DATATYPE=8 then begin
//³B²z¶g¤ë
//¨ú²Ö¥[

GDAT10:STKINDI('','ZGETGAL.ZZ(10,'+STYPE+',1)',0,6),LINETHICK0;

end else begin

GDAT10:=GALDATA(10);

end;

XA:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);
XB:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);
AB:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);

ªk¤H¶R½æ¶W:IF(XX=0 ,AB, AB/100000000),Linethick1;
ªk¤HÁ`®w¦sÅܤÆ:SUM(ªk¤H¶R½æ¶W,N),NOAXIS,Linethick1;

¤Þ¥Î¤l¤½¦¡ªº³W«h¦³¬Ý¤F,À³¸Ó¨S¿ù°Ú!
GDAT10:STKINDI('','ZGETGAL.ZZ(10,'+STYPE+',1)',0,6),LINETHICK0;
¬O¨ºùØ¿ù¤F©O?½Ð½ç±Ð!

©P!

¤ë!

N­È 1000 µ¹¤Ó¤j¤F°Õ @@
¨S¦³¨º»òªøªº°Ï¶¡µ¹±zºâ...1000©P or 1000¤ë

¥t¥~, ³o¤T¦æ¤£À³¸Ó¬O¤@¼Ò¤@¼Ëªº­ò
XA:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);
XB:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);
AB:=IF(XX=0 ,SUM( GDAT10,N ), SUM( GDAT10,N )/100000000);