找回密码
 注册
搜索
楼主: biorjin

周末送大礼,10个最顶级指标送上

[复制链接]
 楼主| 发表于 2008-12-14 03:40 PM | 显示全部楼层

pivot trading.png

 

原帖由 大泡泡 于 2008-12-14 15:36 发表 还是这个错。for (j=0; j{aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-(j+1)];aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];}aHPivHighs[0] = candPrc ;aHPivIdxs[0] = candIdx;nHPivs++;} } 这个for loop看起来怎 ...

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:40 PM | 显示全部楼层
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:41 PM | 显示全部楼层
wo, laoda, that's so great
回复 鲜花 鸡蛋

使用道具 举报

 楼主| 发表于 2008-12-14 03:41 PM | 显示全部楼层

I don't have any problem with the code

 

Wait a second, you might need a plugin

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:42 PM | 显示全部楼层

回复 75# biorjin 的帖子

嗯, 是那个pivot+macd.
 发现问题了,好像论坛不能输入 \[i\] (without \)
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:42 PM | 显示全部楼层

回复 4# biorjin 的帖子

谢谢!
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:42 PM | 显示全部楼层
原帖由 biorjin 于 2008-12-14 15:40 发表 14194  


能不能上个zip文件? 不知道是不是只有我这是错误的。 我怀疑是copy & paste的问题。
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:43 PM | 显示全部楼层
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:43 PM | 显示全部楼层

回复 1# biorjin 的帖子

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:46 PM | 显示全部楼层

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:46 PM | 显示全部楼层
原帖由 f117 于 2008-12-14 15:45 发表 世风日下, 老大也要骗回复了。


????? 吃多了?
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:48 PM | 显示全部楼层
好东西。谢谢宝马老大。
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:49 PM | 显示全部楼层
回复 鲜花 鸡蛋

使用道具 举报

 楼主| 发表于 2008-12-14 03:52 PM | 显示全部楼层

我要回复可见,是

 

1,非论坛人员不可见

2,有人把这些code定起来,大家都能看见。这些都是我很长时间的积累的code,很多很有可能要钱才买的到。

3,老实说,收钱我都不感兴趣,我还在乎几个回复

原帖由 f117 于 2008-12-14 15:45 发表 世风日下, 老大也要骗回复了。

[ 本帖最后由 biorjin 于 2008-12-14 15:53 编辑 ]
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:53 PM | 显示全部楼层

Thanks

Thanks a lot
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:53 PM | 显示全部楼层
宝马,你paste的code被论坛过滤了一些内容
回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:56 PM | 显示全部楼层

原帖由 biorjin 于 2008-12-14 15:52 发表 我要回复可见,是   1,非论坛人员不可见2,有人把这些code定起来,大家都能看见。这些都是我很长时间的积累的code,很多很有可能要钱才买的到。3,老实说,收钱我都不感兴趣,我还在乎几个回 ...

本来想幽默一下, 老大到顶真了。看了不少帖子, 颇有收获。 如有冒犯之处,还请海涵

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:58 PM | 显示全部楼层

thank

you very much
回复 鲜花 鸡蛋

使用道具 举报

 楼主| 发表于 2008-12-14 03:58 PM | 显示全部楼层

4 Gann indicator
---------

Again, some reading first


什么是9的正方?
  9的正方本上是一个数字螺旋,它以数字一为中心(或金字塔的顶端),紧挨着的左边就是二。剩下的数字螺旋就是围绕着中心以顺时针方向直到9,这样就完成了中心周围的第一圈。十到二十五构成了第二圈,二十六到四十九为第三圈,以此类推。这种数字的特殊排列构成了与圆中其他数字的一种唯一的平方根关系。Michael S. Jenkins在他的江恩课程和他的供专业交易员阅读的名为《读图》一书中证明了在使用九的正方时的一些有趣的平方根交易技术。基本上说,如果你想在江恩轮中挪动坐标,你先选个感兴趣的数字(如所有的高点或低点),然后取数字的平方根,在把结果加二或减二,然后再取平方根。例如,我们选价格664为例,就是沿纵坐标从中心向上。它的平方根是:
  25.768+2=27.768^2=771,它就在664的正上方,或者在从中心的出发的360度的圆。如果我们把平方根减二再取平方根(25.768-2=23.768^2=565)就可以得到565,他正在664的下边或向中心的360度圆。江恩标志加上这个技术,我们可以计算出聚合点(360=从根 +/- 2),反向 (180=从根+/- 1),三倍(120=+/- .666)(240=+/-1.333),正方(90=+/-.5)(270=+/-1.5),还有六倍(60=+/-.333)(300=+/-1.666)这个技术在用于从江恩轮上确定坐标非常有用。而且,江恩相信连接锥形正方形底(正方形的四个角)到重心的数字和以十字交叉的纵向和水平方向的数字在轮中用于平衡时间和价格非常有效。他还用星相的经度在这几个重要的角中去平衡价格。毕达哥拉斯说圆中的或正方形的单位在一些特殊的点上以价格和时间相互关联。江恩经常从圣经,Emerson,毕达哥拉斯 和法拉第引用一些来命名。基本上说,他实在向他的读者指出能让他的学生发掘他的写作风格的线索。

时间

  围绕着九的正方外圈是有月和天的圆圈。这个圆形的日历始于在水平向上的轮的左边作为中心点。日期三月二十一日至的是在春季自然年的开始,此时太阳在白羊座。上帝之羊带走了世上的罪恶(春季带走了冬季的罪恶)。日期以顺时针绕着圆转完成了日历。这个关系让使用者很快能确定出以日地关系为基础的在过去的日历日期的聚合点,反向,正方,三倍,或六倍方向的日期。

  在江恩的股票课程中,他说道:“在圆中形成了一个正方形,其中有一个内圆和内正方形,同时还有外圆和外正方形,它们构成了价格运动的四围空间。”现在,我们已经讨论了内圆(地球绕日的轨道)和内正方形(在正方形上的历史坐标高低点)。外圆包括所有的行星而且黄道带在三月二十一日始于正方形的左边。从这点起顺时针以30度为基准绕圆运动会将所有12个黄道的标记置于轮周围。这就完成了外圆,而且分析人员可以验证在9的正方形上星球经度与价格的坐标关系,它就是外圆。以这种方法,我们可以将星球位置以度数和9的正方的坐标转换成价格。还有,我们可以用第一次交易图(诞生图),如星象(另一个内圆),去定位从外圆被行星标记的敏感的经度位置而使他们成为“活角”。到底这个多维工具有没有截止?江恩暗示这个诞生星象技术时,讲到:“当公司构成的日子和股票第一次在纽约证券交易市场或其他交易市场交易的日子引起了在不同日子的高低点,这些日期有季节性变化。”江恩还在他的值得一读的大豆信中证明这一技术。我相信这就是江恩在导论自然法则时的所要指明的。

   江恩说,根据震动法则,每只股票和市场上的商品都会根据自己独有的星球运动而运动。(诞生星象)就象强度,量和方向。所有这些重要的性质都根据自己的震动率变化发展。股票和商品,象原子,就是能量的中心。他们创造了自己的运动和能量的场,吸引和排斥的力量,这就揭示了为什么一些股票和商品在某些时候带领市场而在另一些时候又转为死气沉沉。这样,科学的说遵守自然法则是绝对需要的。震动是基础;没有任何东西可以从法则中豁免。它是通用的,因此地球上任何现象都是通用的。这样,我肯定任何现象,无论是自然还是市场,一定都是遵循着不变的因果,和谐和震动法则。
    没有人明确怎样运用江恩的计算器,但是如果你研究这些东西而且运用到这篇文章里,我想你会同意江恩大概是如何运用这种可以证明在思维空间计算时间和价格运动的工具的。

-----------------------------------------------------------------

以下是ts codes
Inputs: YestDate(1030321);

Arrays: Zero[50](0), FortyFive[50](0), Ninety[50](0),  
            OneThirtyFive[50](0), OneEighty[50](0),
            TwoTwentyFive[50](0), TwoSeventy[49](0),
            ThreeFifteen[49](0);
variables:    counter(0), ID(-1);


Zero[0] = 2;
Zero[1] = 11;
Zero[2] = 28;
Zero[3] = 53;
Zero[4] = 86;
Zero[5] =127;
Zero[6] =176;
Zero[7] =233;
Zero[ 8 ] =298;
Zero[9] =371;
Zero[10] = 452;
Zero[11] =541;
Zero[12] =638;
Zero[13] =743;
Zero[14] =856;
Zero[15] =977;
Zero[16] = 1106;
Zero[17] =1243;
Zero[18] = 1388;
Zero[19] =1541;
Zero[20] = 1702;
Zero[21] =1871;
Zero[22] = 2048;
Zero[23] =2233;
Zero[24] = 2426;
Zero[25] =2627;
Zero[26] = 2836;
Zero[27] =3053;
Zero[28] = 3278;
Zero[29] =3511;
Zero[30] = 3752;
Zero[31] =4001;
Zero[32] = 4258;
Zero[33] =4523;
Zero[34] = 4796;
Zero[35] =5077;
Zero[36] = 5366;
Zero[37] =5663;
Zero[38] = 5968;
Zero[39] =6281;
Zero[40] = 6602;
Zero[41] =6931;
Zero[42] = 7268;
Zero[43] =7613;
Zero[44] = 7966;
Zero[45] =8327;
Zero[46] = 8696;
Zero[47] =9073;
Zero[48] = 9458;
Zero[49] =9851;
     
FortyFive[0] =3;
FortyFive[1] =13;
FortyFive[2] =31;
FortyFive[3] =57;
FortyFive[4] = 91;
FortyFive[5] =133;
FortyFive[6] = 183;
FortyFive[7] =241;
FortyFive[ 8 ] = 307;
FortyFive[9] =381;
FortyFive[10] = 463;
FortyFive[11] =    553;
FortyFive[12] = 651;
FortyFive[13] =    757;
FortyFive[14] = 871;
FortyFive[15] =    993;
FortyFive[16] = 1123;
FortyFive[17] =    1261;
FortyFive[18] = 1407;
FortyFive[19] =    1561;
FortyFive[20] = 1723;
FortyFive[21] =    1893;
FortyFive[22] = 2071;
FortyFive[23] =    2257;
FortyFive[24] = 2451;
FortyFive[25] =    2653;
FortyFive[26] = 2863;
FortyFive[27] =    3081;
FortyFive[28] = 3307;
FortyFive[29] =    3541;
FortyFive[30] = 3783;
FortyFive[31] =    4033;
FortyFive[32] = 4291;
FortyFive[33] =    4557;
FortyFive[34] = 4831;
FortyFive[35] =    5113;
FortyFive[36] = 5403;
FortyFive[37] =    5701;
FortyFive[38] = 6007;
FortyFive[39] =    6321;
FortyFive[40] = 6643;
FortyFive[41] =    6973;
FortyFive[42] = 7311;
FortyFive[43] =    7657;
FortyFive[44] = 8011;
FortyFive[45] =    8373;
FortyFive[46] = 8743;
FortyFive[47] =    9121;
FortyFive[48] = 8507;
FortyFive[49] =    9901;
     

     
Ninety[0] =    4;
Ninety[1] =    15;
Ninety[2] = 34;
Ninety[3] =    61;
Ninety[4] = 96;
Ninety[5] =    139;
Ninety[6] = 190;
Ninety[7] =    249;
Ninety[ 8 ] = 316;
Ninety[9] =    391;
Ninety[10] = 474;
Ninety[11] =565;
Ninety[12] = 664;
Ninety[13] =771;
Ninety[14] = 886;
Ninety[15] =1009;
Ninety[16] = 1140;
Ninety[17] =1279;
Ninety[18] = 1426;
Ninety[19] =1581;
Ninety[20] = 1744;
Ninety[21] =1915;
Ninety[22] = 2094;
Ninety[23] =2281;
Ninety[24] = 2476;
Ninety[25] =2679;
Ninety[26] = 2890;
Ninety[27] =3109;
Ninety[28] = 3336;
Ninety[29] =3571;
Ninety[30] = 3814;
Ninety[31] =4065;
Ninety[32] = 4324;
Ninety[33] =4591;
Ninety[34] = 4866;
Ninety[35] =5149;
Ninety[36] = 5440;
Ninety[37] =5739;
Ninety[38] = 6046;
Ninety[39] =6361;
Ninety[40] = 6684;
Ninety[41] =7015;
Ninety[42] =7354;
Ninety[43] =7701;
Ninety[44] = 8056;
Ninety[45] =8419;
Ninety[46] = 8790;
Ninety[47] =9169;
Ninety[48] = 9556;
Ninety[49] =9951;
     
     
OneThirtyFive[0] =5;
OneThirtyFive[1] =17;
OneThirtyFive[2] =37;
OneThirtyFive[3] =65;
OneThirtyFive[4] = 101;
OneThirtyFive[5] =145;
OneThirtyFive[6] = 197;
OneThirtyFive[7] =257;
OneThirtyFive[ 8 ] = 325;
OneThirtyFive[9] =401;
OneThirtyFive[10] = 485;
OneThirtyFive[11] =    577;
OneThirtyFive[12] =    677;
OneThirtyFive[13] =    785;
OneThirtyFive[14] =    901;
OneThirtyFive[15] =    1025;
OneThirtyFive[16] =    1157;
OneThirtyFive[17] =    1297;
OneThirtyFive[18] =    1445;
OneThirtyFive[19] =    1601;
OneThirtyFive[20] =    1765;
OneThirtyFive[21] =    1937;
OneThirtyFive[22] =    2117;
OneThirtyFive[23] =    2305;
OneThirtyFive[24] =    2501;
OneThirtyFive[25] =    2705;
OneThirtyFive[26] =    2917;
OneThirtyFive[27] =    3137;
OneThirtyFive[28] = 3365;
OneThirtyFive[29] =    3601;
OneThirtyFive[30] = 3845;
OneThirtyFive[31] =    4097;
OneThirtyFive[32] =    4357;
OneThirtyFive[33] =    4625;
OneThirtyFive[34] =    4901;
OneThirtyFive[35] =    5185;
OneThirtyFive[36] = 5477;
OneThirtyFive[37] =    5777;
OneThirtyFive[38] = 6085;
OneThirtyFive[39] =    6401;
OneThirtyFive[40] = 6725;
OneThirtyFive[41] =    7057;
OneThirtyFive[42] = 7397;
OneThirtyFive[43] =    7745;
OneThirtyFive[44] = 8101;
OneThirtyFive[45] =    8465;
OneThirtyFive[46] = 8837;
OneThirtyFive[47] =    9217;
OneThirtyFive[48] = 9605;
OneThirtyFive[49] =    10001;
     
     
OneEighty[0] =6;
OneEighty[1] =19;
OneEighty[2] =40;
OneEighty[3] =69;
OneEighty[4] = 106;
OneEighty[5] =151;
OneEighty[6] = 204;
OneEighty[7] =265;
OneEighty[ 8 ] = 334;
OneEighty[9] =411;
OneEighty[10] =496;
OneEighty[11] =    589;
OneEighty[12] = 690;
OneEighty[13] =    799;
OneEighty[14] = 916;
OneEighty[15] =    1041;
OneEighty[16] = 1174;
OneEighty[17] =    1315;
OneEighty[18] = 1464;
OneEighty[19] =    1621;
OneEighty[20] = 1786;
OneEighty[21] =    1959;
OneEighty[22] = 2140;
OneEighty[23] =    2329;
OneEighty[24] = 2526;
OneEighty[25] =    2731;
OneEighty[26] = 2944;
OneEighty[27] =    3165;
OneEighty[28] = 3394;
OneEighty[29] =    3631;
OneEighty[30] = 3876;
OneEighty[31] =    4129;
OneEighty[32] = 4390;
OneEighty[33] =    4659;
OneEighty[34] = 4936;
OneEighty[35] =    5221;
OneEighty[36] = 5514;
OneEighty[37] =    5815;
OneEighty[38] = 6124;
OneEighty[39] =    6441;
OneEighty[40] = 6766;
OneEighty[41] =    7099;
OneEighty[42] = 7440;
OneEighty[43] =    7789;
OneEighty[44] = 8146;
OneEighty[45] =    8511;
OneEighty[46] = 8884;
OneEighty[47] =    9265;
OneEighty[48] = 9654;
OneEighty[49] =    10051;


TwoTwentyFive[0] =7;
TwoTwentyFive[1] =21;
TwoTwentyFive[2] = 43;
TwoTwentyFive[3] =73;
TwoTwentyFive[4] = 111;
TwoTwentyFive[5] =157;
TwoTwentyFive[6] = 211;
TwoTwentyFive[7] =273;
TwoTwentyFive[ 8 ] = 343;
TwoTwentyFive[9] =421;
TwoTwentyFive[10] = 507;
TwoTwentyFive[11] =    601;
TwoTwentyFive[12] = 703;
TwoTwentyFive[13] =    813;
TwoTwentyFive[14] = 931;
TwoTwentyFive[15] =    1057;
TwoTwentyFive[16] = 1191;
TwoTwentyFive[17] =    1333;
TwoTwentyFive[18] = 1483;
TwoTwentyFive[19] =    1641;
TwoTwentyFive[20] = 1807;
TwoTwentyFive[21] =    1981;
TwoTwentyFive[22] = 2163;
TwoTwentyFive[23] =    2353;
TwoTwentyFive[24] = 2551;
TwoTwentyFive[25] =    2757;
TwoTwentyFive[26] = 2971;
TwoTwentyFive[27] =    3193;
TwoTwentyFive[28] = 3423;
TwoTwentyFive[29] =    3661;
TwoTwentyFive[30] = 3907;
TwoTwentyFive[31] =    4161;
TwoTwentyFive[32] = 4423;
TwoTwentyFive[33] =    4693;
TwoTwentyFive[34] = 4971;
TwoTwentyFive[35] =    5257;
TwoTwentyFive[36] = 5551;
TwoTwentyFive[37] =    5853;
TwoTwentyFive[38] = 6163;
TwoTwentyFive[39] =    6481;
TwoTwentyFive[40] = 6807;
TwoTwentyFive[41] =    7141;
TwoTwentyFive[42] = 7483;
TwoTwentyFive[43] =    7833;
TwoTwentyFive[44] = 8191;
TwoTwentyFive[45] =    8557;
TwoTwentyFive[46] = 8931;
TwoTwentyFive[47] =    9313;
TwoTwentyFive[48] = 9703;
TwoTwentyFive[49] =    10101;
     
     
TwoSeventy[0] =    8;
TwoSeventy[1] =    23;
TwoSeventy[2] = 46;
TwoSeventy[3] =    77;
TwoSeventy[4] = 116;
TwoSeventy[5] =    163;
TwoSeventy[6] = 218;
TwoSeventy[7] =    281;
TwoSeventy[ 8 ] = 352;
TwoSeventy[9] =    431;
TwoSeventy[10] = 518;
TwoSeventy[11] =613;
TwoSeventy[12] = 716;
TwoSeventy[13] =827;
TwoSeventy[14] = 946;
TwoSeventy[15] =1073;
TwoSeventy[16] = 1208;
TwoSeventy[17] =1351;
TwoSeventy[18] = 1502;
TwoSeventy[19] =1661;
TwoSeventy[20] = 1828;
TwoSeventy[21] =2003;
TwoSeventy[22] = 2186;
TwoSeventy[23] =2377;
TwoSeventy[24] = 2576;
TwoSeventy[25] =2783;
TwoSeventy[26] = 2998;
TwoSeventy[27] =3221;
TwoSeventy[28] = 3452;
TwoSeventy[29] =3691;
TwoSeventy[30] = 3938;
TwoSeventy[31] =4193;
TwoSeventy[32] = 4456;
TwoSeventy[33] =4727;
TwoSeventy[34] = 5006;
TwoSeventy[35] =5293;
TwoSeventy[36] = 5588;
TwoSeventy[37] =5891;
TwoSeventy[38] = 6202;
TwoSeventy[39] =6521;
TwoSeventy[40] = 6848;
TwoSeventy[41] =7183;
TwoSeventy[42] = 7526;
TwoSeventy[43] =7877;
TwoSeventy[44] = 8236;
TwoSeventy[45] =8603;
TwoSeventy[46] = 8978;
TwoSeventy[47] =9361;
TwoSeventy[48] = 9752;
     
     
     
ThreeFifteen[0] =9;
ThreeFifteen[1] =25;
ThreeFifteen[2] = 49;
ThreeFifteen[3] =81;
ThreeFifteen[4] = 121;
ThreeFifteen[5] =169;
ThreeFifteen[6] = 225;
ThreeFifteen[7] =289;
ThreeFifteen[ 8 ] = 361;
ThreeFifteen[9] =441;
ThreeFifteen[10] = 529;
ThreeFifteen[11] =625;
ThreeFifteen[12] = 729;
ThreeFifteen[13] =841;
ThreeFifteen[14] = 961;
ThreeFifteen[15] =1089;
ThreeFifteen[16] = 1225;
ThreeFifteen[17] =1369;
ThreeFifteen[18] = 1521;
ThreeFifteen[19] =1681;
ThreeFifteen[20] = 1849;
ThreeFifteen[21] =2025;
ThreeFifteen[22] = 2209;
ThreeFifteen[23] =2401;
ThreeFifteen[24] = 2601;
ThreeFifteen[25] =2809;
ThreeFifteen[26] =3025;
ThreeFifteen[27] =3249;
ThreeFifteen[28] = 3481;
ThreeFifteen[29] =3721;
ThreeFifteen[30] = 3969;
ThreeFifteen[31] =4225;
ThreeFifteen[32] = 4489;
ThreeFifteen[33] =4761;
ThreeFifteen[34] = 5041;
ThreeFifteen[35] =5329;
ThreeFifteen[36] = 5625;
ThreeFifteen[37] =5929;
ThreeFifteen[38] = 6241;
ThreeFifteen[39] =6561;
ThreeFifteen[40] = 6889;
ThreeFifteen[41] =7225;
ThreeFifteen[42] = 7569;
ThreeFifteen[43] =7921;
ThreeFifteen[44] = 8281;
ThreeFifteen[45] =8649;
ThreeFifteen[46] = 9025;
ThreeFifteen[47] =9409;
ThreeFifteen[48] = 9801;

counter = 0;

If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, Zero[Counter], YestDate, 1200,Zero[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, Zero[counter]+1, NumToStr(Zero[Counter], 0) + " - 0 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, FortyFive[Counter], YestDate, 1200,FortyFive[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, FortyFive[counter]+1, NumToStr(FortyFive[Counter], 0) + " - 45 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, Ninety[Counter], YestDate, 1200,Ninety[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, Ninety[counter]+1, NumToStr(Ninety[Counter], 0) + " - 90 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, OneThirtyFive[Counter], YestDate, 1200,OneThirtyFive[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, OneThirtyFive[counter]+1, NumToStr(OneThirtyFive[Counter], 0) + " - 135 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, OneEighty[Counter], YestDate, 1200,OneEighty[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, OneEighty[counter]+1, NumToStr(OneEighty[Counter], 0) + " - 180 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 49 begin
            value1 = TL_New(YestDate, 1100, TwoTwentyFive[Counter], YestDate, 1200,TwoTwentyFive[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, TwoTwentyFive[counter]+1, NumToStr(TwoTwentyFive[Counter], 0) + " - 225 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 48 begin
            value1 = TL_New(YestDate, 1100, TwoSeventy[Counter], YestDate, 1200,TwoSeventy[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, TwoSeventy[counter]+1, NumToStr(TwoSeventy[Counter], 0) + " - 270 Degrees");
        end;
end;

counter = 0;
If Date = YestDate and Time = 1200 then
begin
        For Counter = Counter to 48 begin
            value1 = TL_New(YestDate, 1100, ThreeFifteen[Counter], YestDate, 1200,ThreeFifteen[counter]);
            TL_SetExtRight(Value1, True);
            TL_SetExtLeft(Value1, True);
            ID = Text_New(Date, Time, ThreeFifteen[counter]+1, NumToStr(ThreeFifteen[Counter], 0) + " - 315 Degrees");
        end;
end;

--------------------------------------

 

there is a code for AFL, but you need plugins.

回复 鲜花 鸡蛋

使用道具 举报

发表于 2008-12-14 03:58 PM | 显示全部楼层
原帖由 biorjin 于 2008-12-14 15:52 发表 我要回复可见,是   1,非论坛人员不可见 2,有人把这些code定起来,大家都能看见。这些都是我很长时间的积累的code,很多很有可能要钱才买的到。 3,老实说,收钱我都不感兴趣,我还在乎几个回 ...


支持宝马,多谢无私奉献。
回复 鲜花 鸡蛋

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|www.hutong9.net

GMT-5, 2024-11-22 07:15 AM , Processed in 0.056740 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表