- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-3-10
|
|
发表于 2009-8-25 22:11
|
原帖由 老雕 于 2009-8-25 18:16 发表 
不是高手啊，高手不会象我这样的 : :*27*:
我的分时原码在我的贴中
- {n,0.98,0.95,1}
- {极限主图}
- 成本100:EMA(COST(100),10)linethick2,colorred;
- {成本90:EMA(COST(90),10)linethick2,coloryellow;
- 成本50:EMA(COST(50),10)linethick4,colorwhite;
- 成本10:EMA(COST(10),10)linethick2,coloryellow; }
- 成本0:EMA(COST(0),10)linethick2,colorred;
- {公称名称: 【实时网线】}
- A01:=EMA(((((2 * CLOSE) + HIGH) + LOW) / 4),8),LINETHICK2,color88FF;
- A1:=EMA(((((2 * CLOSE) + HIGH) + LOW) / 4),34);
- A2:=EMA(A1,3);
- A3:=EMA(A2,3);
- A4:=EMA(A3,3);
- A5:=EMA(A4,3);
- A6:=EMA(A5,3);
- A7:=EMA(A6,3);
- A8:=EMA(A7,3);
- A9:=EMA(A8,3);
- A10:=EMA(A9,3);
- A11:=EMA(A10,3);
- A12:=EMA(A11,3);
- A13:=EMA(A12,3);
- A14:=EMA(A13,3);
- A15:=EMA(A14,3);
- A:=REF(HHV(HIGH,240),1);
- AA:=A[DATACOUNT];
- B:=REF(LLV(LOW,240),1);
- BB:=B[DATACOUNT];
- {IF((A02 >= REF(A02,1)),A02,BB),POINTDOT,LINETHICK3,colorFF;}
- ZJ1:=(((HIGH + LOW) + (2 * CLOSE)) / 4);
- ZJ2:=(((ZJ1 - EMA(ZJ1,21)) / STD(ZJ1,21)) * 100);
- ZJ3:=EMA(ZJ2,5);
- ZJ4:=EMA(ZJ3,2);
- ZJ5:=EMA(ZJ4,2);
- ZJ6:=(((3 * ZJ4) - (2 * ZJ5)) / 2);
- IF((ZJ6 > 90),(AA * 0.995),AA),LINETHICK2,colorAAEE33;
- IF((ZJ6 < (0 - 95)),(BB * 1.005),BB),LINETHICK2,colorDD66AA;
- {盘口-转折点㊣AA}
- input:N(0.9800000190735,0.9499999880791,1);
- KK:=(DATE <111951130);
- x:=((VOL * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
- PK:=IF((VOL > 0),( x/ VOL),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
- PK1:=PK;
- C11:=((PK1 - LLV(PK1,75)) / (HHV(PK1,75) - LLV(PK1,75)));
- A01:=SMA(C11,13,1);
- A11:=SMA(A01,13,1);
- A21:=((3 * A01) - (2 * A11));
- A31:=((2 * A21) - 0.5);
- ZS:=(DYNAINFO(3) * 0.95);
- K1:IF(KK,(PK1 * (1 - ((A31 - A11) / 40))),0),LINEDOT,LINETHICK1,,colorff6699;
- {星光灿烂}
- ma13:=ma(c,13),colorwhite;
- ma34:=ma(c,34),colorff00ff;
- ma55:=ma(c,55),colorffcc66;
- LC:=REF(CLOSE,1);
- RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
- 低吸:=(CROSS(RSI,11));
- {DRAWTEXT((CROSS(RSI,11)),l,'★'),colorwhite;}
- DRAWTEXT((CROSS(RSI,11)),l-0.008,'吸'),colorwhite;
- Av:POLYLINE(CLOSE<COST(50),COST(20)),color8800;
- Bv:POLYLINE(CLOSE<COST(50),COST(80)),color66CC00;
- {白沙抓涨停}
- 流通:=FINANCE(7)/10000;
- QJ1:=CAPITAL/2500;
- QJ2:=CAPITAL/8000;
- QJ3:=CAPITAL/16000;
- QJ4:=CAPITAL/33000;
- QJ5:=CAPITAL/80000;
- QJ6:=CAPITAL/150000;
- QJ7:=CAPITAL/200000;
- QJ8:=CAPITAL/400000;
- XS:=IF(流通<1,QJ1,IF(流通>=1 AND 流通<5,QJ2,IF(流通>=5 AND 流通<10,QJ3,IF(流通>=10 AND 流通<20,QJ4,IF(流通>=20 AND 流通<50,QJ5,IF(流通>=50 AND 流通<100,QJ6,IF(流通>=100 AND 流通<300,QJ7,IF(流通>=300,QJ8,0))))))));
- 门限:=XS;
- 特门限:=XS*2.67;
- 特大买:=IF(BUYVOL>=特门限,BUYVOL,0);
- 特大卖:=IF(SELLVOL>=特门限,SELLVOL,0);
- 大单买:=IF(BUYVOL>=门限 AND BUYVOL<特门限,BUYVOL,0);
- 大单卖:=IF(SELLVOL>=门限 AND SELLVOL<特门限,SELLVOL,0);
- 特大买入:=SUM(特大买,0);
- 特大卖出:=SUM(特大卖,0);
- 大单买入:=SUM(大单买,0);
- 大单卖出:=SUM(大单卖,0);
- 大买:=特大买入+大单买入;
- 大卖:=特大卖出+大单卖出;
- r:=DYNAINFO(3);
- q:=DATACOUNT;
- hh:=DYNAINFO(5);
- LL:=DYNAINFO(6);
- f:=MAX(hh-r,r-LL);
- q1:=r-f*1.01;
- q2:=r-2*f*1.0125;
- 白鲨大单势态1:=SMA(大买,3,1);
- 白鲨大单势态:=SMA(大卖,3,1);
- kh:=HHV(MAX(大买,大卖),0);
- kL:=LLV(MIN(大卖,大买),0);
- kb:=(q1-q2)/(kh-kL);
- ky:=(q1+q2-kb*(kh+kL))/2;
- 白鲨大单势态*kb[q]+ky[q],COLORGRAY;
- 白鲨大单势态1*kb[q]+ky[q],colorred;
- {分时抓涨停-BBB}
- A1:=IF(BUYVOL,VOL,10000);
- A2:=IF(SELLVOL,VOL,0);
- ZS:=DYNAINFO(3)*0.92;
- KE1:=SUM(A1,0)/SUM(VOL,0);
- K2:=SUM(A2,0)/SUM(VOL,0);
- K3:(KE1*0.35+ZS+K2*0.35+ZS)/2,POINTDOT,colorFFCC00;
- {KK1:IF(KE1,KE1*0.35+ZS,ZS),colorFF00;
- KK30:IF(K2,K2*0.35+ZS,ZS),colorFF00FF;}
是不是这个，但用法还请老雕详解一回，让我们多学习学习， :*P :*18*: |
|
|
发表于 2009-8-25 18:16
|
楼主|
发表于 2009-8-28 10:21
|
: *d:1* *d:1* *d:1*
