通达信从《日月星辰》的运行规律，探索股市的奥秘

金额:=IF(DYNAINFO(37)>3,2/3,1/3)*AMOUNT;
主力量:=IF(DYNAINFO(37)>3,2*V/3,V/3)*100;
成本:=金额/主力量;
成本10:=SMA(成本,10,1);
成本60:=SMA(成本,60,1);
近年最低成本:=MA(成本60,240);
现价:=C;
太阳:0,COLORRED;
地球:MA(成本,60)/近年最低成本*100-100,COLORGREEN;
月亮:成本10/成本60*100-100,COLORGRAY;
飞船:MA(C,5)/成本60*100-100,COLORYELLOW;
AA:C/成本60*100-100;
DRAWRECTREL(200,10,800,990,RGB(0,0,01));
DRAWRECTREL(200,500,800,500,RGB(0,0,55));
DRAWRECTREL(500,10,500,990,RGB(0,0,55));
DRAWTEXT_FIX(1,0.35,0.9,1,'太阳●'),COLORRED;
DRAWTEXT_FIX(1,0.45,0.9,1,'●地球'),COLORGREEN;
DRAWTEXT_FIX(1,0.55,0.9,1,'●月亮'),COLORGRAY;
DRAWTEXT_FIX(1,0.65,0.9,1,'●飞船'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.5,0.5,1,'●'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.5,0.5-0.02*地球,1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.5,0.5-0.02*月亮,1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.5,0.5-0.02*飞船,1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=2,0.49,0.5-0.02*REF(地球,1),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=2,0.49,0.5-0.02*REF(月亮,1),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=2,0.49,0.5-0.02*REF(飞船,1),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=3,0.48,0.5-0.02*REF(地球,2),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=3,0.48,0.5-0.02*REF(月亮,2),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=3,0.48,0.5-0.02*REF(飞船,2),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=4,0.47,0.5-0.02*REF(地球,3),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=4,0.47,0.5-0.02*REF(月亮,3),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=4,0.47,0.5-0.02*REF(飞船,3),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=5,0.46,0.5-0.02*REF(地球,4),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=5,0.46,0.5-0.02*REF(月亮,4),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=5,0.46,0.5-0.02*REF(飞船,4),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=6,0.45,0.5-0.02*REF(地球,5),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=6,0.45,0.5-0.02*REF(月亮,5),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=6,0.45,0.5-0.02*REF(飞船,5),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=7,0.44,0.5-0.02*REF(地球,6),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=7,0.44,0.5-0.02*REF(月亮,6),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=7,0.44,0.5-0.02*REF(飞船,6),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=8,0.43,0.5-0.02*REF(地球,7),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=8,0.43,0.5-0.02*REF(月亮,7),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=8,0.43,0.5-0.02*REF(飞船,7),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=9,0.42,0.5-0.02*REF(地球,8),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=9,0.42,0.5-0.02*REF(月亮,8),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=9,0.42,0.5-0.02*REF(飞船,8),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=10,0.41,0.5-0.02*REF(地球,9),1,'●'),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=10,0.41,0.5-0.02*REF(月亮,9),1,'●'),COLORGRAY;
DRAWTEXT_FIX(CURRBARSCOUNT=10,0.41,0.5-0.02*REF(飞船,9),1,'●'),COLORYELLOW;
DRAWTEXT_FIX(1,0.50,0.02,1,'今天'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(AA,飞船) OR CROSS(AA,地球),0.51,0.5-0.02*AA,1,'火箭●'),COLORLIRED;