自编--筹码峰-- : pfrynwgkq的个人空间 - MACD博客 - Powered...

来源：百度文库编辑：神马文学网时间：2024/04/27 21:36:36

自编--筹码峰--

2009-09-10 21:19:58

这公式运算较吃Cpu。。
希望高手优化一下。

自编原码如下：
C1:=SMA(COST(1),3,1);
C2:=SMA(COST(2),3,1);
C3:=SMA(COST(3),3,1);
C4:=SMA(COST(4),3,1);
C5:=SMA(COST(5),3,1);
C6:=SMA(COST(6),3,1);
C7:=SMA(COST(7),3,1);
C8:=SMA(COST(8),3,1);
C9:=SMA(COST(9),3,1);
C10:=SMA(COST(10),3,1);
C11:=SMA(COST(11),3,1);
C12:=SMA(COST(12),3,1);
C13:=SMA(COST(13),3,1);
C14:=SMA(COST(14),3,1);
C15:=SMA(COST(15),3,1);
C16:=SMA(COST(16),3,1);
C17:=SMA(COST(17),3,1);
C18:=SMA(COST(18),3,1);
C19:=SMA(COST(19),3,1);
C20:=SMA(COST(20),3,1);
C21:=SMA(COST(21),3,1);
C22:=SMA(COST(22),3,1);
C23:=SMA(COST(23),3,1);
C24:=SMA(COST(24),3,1);
C25:=SMA(COST(25),3,1);
C26:=SMA(COST(26),3,1);
C27:=SMA(COST(27),3,1);
C28:=SMA(COST(28),3,1);
C29:=SMA(COST(29),3,1);
C30:=SMA(COST(30),3,1);
C31:=SMA(COST(31),3,1);
C32:=SMA(COST(32),3,1);
C33:=SMA(COST(33),3,1);
C34:=SMA(COST(34),3,1);
C35:=SMA(COST(35),3,1);
C36:=SMA(COST(36),3,1);
C37:=SMA(COST(37),3,1);
C38:=SMA(COST(38),3,1);
C39:=SMA(COST(39),3,1);
C40:=SMA(COST(40),3,1);
C41:=SMA(COST(41),3,1);
C42:=SMA(COST(42),3,1);
C43:=SMA(COST(43),3,1);
C44:=SMA(COST(44),3,1);
C45:=SMA(COST(45),3,1);
C46:=SMA(COST(46),3,1);
C47:=SMA(COST(47),3,1);
C48:=SMA(COST(48),3,1);
C49:=SMA(COST(49),3,1);
C50:=SMA(COST(50),3,1);
C51:=SMA(COST(51),3,1);
C52:=SMA(COST(52),3,1);
C53:=SMA(COST(53),3,1);
C54:=SMA(COST(54),3,1);
C55:=SMA(COST(55),3,1);
C56:=SMA(COST(56),3,1);
C57:=SMA(COST(57),3,1);
C58:=SMA(COST(58),3,1);
C59:=SMA(COST(59),3,1);
C60:=SMA(COST(60),3,1);
C61:=SMA(COST(61),3,1);
C62:=SMA(COST(62),3,1);
C63:=SMA(COST(63),3,1);
C64:=SMA(COST(64),3,1);
C65:=SMA(COST(65),3,1);
C66:=SMA(COST(66),3,1);
C67:=SMA(COST(67),3,1);
C68:=SMA(COST(68),3,1);
C69:=SMA(COST(69),3,1);
C70:=SMA(COST(70),3,1);
C71:=SMA(COST(71),3,1);
C72:=SMA(COST(72),3,1);
C73:=SMA(COST(73),3,1);
C74:=SMA(COST(74),3,1);
C75:=SMA(COST(75),3,1);
C76:=SMA(COST(76),3,1);
C77:=SMA(COST(77),3,1);
C78:=SMA(COST(78),3,1);
C79:=SMA(COST(79),3,1);
C80:=SMA(COST(80),3,1);
C81:=SMA(COST(81),3,1);
C82:=SMA(COST(82),3,1);
C83:=SMA(COST(83),3,1);
C84:=SMA(COST(84),3,1);
C85:=SMA(COST(85),3,1);
C86:=SMA(COST(86),3,1);
C87:=SMA(COST(87),3,1);
C88:=SMA(COST(88),3,1);
C89:=SMA(COST(89),3,1);
C90:=SMA(COST(90),3,1);
C91:=SMA(COST(91),3,1);
B1:=ABS(C2-C1)*10000;
B2:=ABS(C3-C2)*10000;
B3:=ABS(C4-C3)*10000;
B4:=ABS(C5-C4)*10000;
B5:=ABS(C6-C5)*10000;
B6:=ABS(C7-C6)*10000;
B7:=ABS(C8-C7)*10000;
B8:=ABS(C9-C8)*10000;
B9:=ABS(C10-C9)*10000;
B10:=ABS(C11-C10)*10000;
B11:=ABS(C12-C11)*10000;
B12:=ABS(C13-C12)*10000;
B13:=ABS(C14-C13)*10000;
B14:=ABS(C15-C14)*10000;
B15:=ABS(C16-C15)*10000;
B16:=ABS(C17-C16)*10000;
B17:=ABS(C18-C17)*10000;
B18:=ABS(C19-C18)*10000;
B19:=ABS(C20-C19)*10000;
B20:=ABS(C21-C20)*10000;
B21:=ABS(C22-C21)*10000;
B22:=ABS(C23-C22)*10000;
B23:=ABS(C24-C23)*10000;
B24:=ABS(C25-C24)*10000;
B25:=ABS(C26-C25)*10000;
B26:=ABS(C27-C26)*10000;
B27:=ABS(C28-C27)*10000;
B28:=ABS(C29-C28)*10000;
B29:=ABS(C30-C29)*10000;
B30:=ABS(C31-C30)*10000;
B31:=ABS(C32-C31)*10000;
B32:=ABS(C33-C32)*10000;
B33:=ABS(C34-C33)*10000;
B34:=ABS(C35-C34)*10000;
B35:=ABS(C36-C35)*10000;
B36:=ABS(C37-C36)*10000;
B37:=ABS(C38-C37)*10000;
B38:=ABS(C39-C38)*10000;
B39:=ABS(C40-C39)*10000;
B40:=ABS(C41-C40)*10000;
B41:=ABS(C42-C41)*10000;
B42:=ABS(C43-C42)*10000;
B43:=ABS(C44-C43)*10000;
B44:=ABS(C45-C44)*10000;
B45:=ABS(C46-C45)*10000;
B46:=ABS(C47-C46)*10000;
B47:=ABS(C48-C47)*10000;
B48:=ABS(C49-C48)*10000;
B49:=ABS(C50-C49)*10000;
B50:=ABS(C51-C50)*10000;
B51:=ABS(C52-C51)*10000;
B52:=ABS(C53-C52)*10000;
B53:=ABS(C54-C53)*10000;
B54:=ABS(C55-C54)*10000;
B55:=ABS(C56-C55)*10000;
B56:=ABS(C57-C56)*10000;
B57:=ABS(C58-C57)*10000;
B58:=ABS(C59-C58)*10000;
B59:=ABS(C60-C59)*10000;
B60:=ABS(C61-C60)*10000;
B61:=ABS(C62-C61)*10000;
B62:=ABS(C63-C62)*10000;
B63:=ABS(C64-C63)*10000;
B64:=ABS(C65-C64)*10000;
B65:=ABS(C66-C65)*10000;
B66:=ABS(C67-C66)*10000;
B67:=ABS(C68-C67)*10000;
B68:=ABS(C69-C68)*10000;
B69:=ABS(C70-C69)*10000;
B70:=ABS(C71-C70)*10000;
B71:=ABS(C72-C71)*10000;
B72:=ABS(C73-C72)*10000;
B73:=ABS(C74-C73)*10000;
B74:=ABS(C75-C74)*10000;
B75:=ABS(C76-C75)*10000;
B76:=ABS(C77-C76)*10000;
B77:=ABS(C78-C77)*10000;
B78:=ABS(C79-C78)*10000;
B79:=ABS(C80-C79)*10000;
B80:=ABS(C81-C80)*10000;
B81:=ABS(C82-C81)*10000;
B82:=ABS(C83-C82)*10000;
B83:=ABS(C84-C83)*10000;
B84:=ABS(C85-C84)*10000;
B85:=ABS(C86-C85)*10000;
B86:=ABS(C87-C86)*10000;
B87:=ABS(C88-C87)*10000;
B88:=ABS(C89-C88)*10000;
B89:=ABS(C90-C89)*10000;
B90:=ABS(C91-C90)*10000;
CC1:=COST(1);
CC2:=COST(2);
CC3:=COST(3);
CC4:=COST(4);
CC5:=COST(5);
CC6:=COST(6);
CC7:=COST(7);
CC8:=COST(8);
CC9:=COST(9);
CC10:=COST(10);
CC11:=COST(11);
CC12:=COST(12);
CC13:=COST(13);
CC14:=COST(14);
CC15:=COST(15);
CC16:=COST(16);
CC17:=COST(17);
CC18:=COST(18);
CC19:=COST(19);
CC20:=COST(20);
CC21:=COST(21);
CC22:=COST(22);
CC23:=COST(23);
CC24:=COST(24);
CC25:=COST(25);
CC26:=COST(26);
CC27:=COST(27);
CC28:=COST(28);
CC29:=COST(29);
CC30:=COST(30);
CC31:=COST(31);
CC32:=COST(32);
CC33:=COST(33);
CC34:=COST(34);
CC35:=COST(35);
CC36:=COST(36);
CC37:=COST(37);
CC38:=COST(38);
CC39:=COST(39);
CC40:=COST(40);
CC41:=COST(41);
CC42:=COST(42);
CC43:=COST(43);
CC44:=COST(44);
CC45:=COST(45);
CC46:=COST(46);
CC47:=COST(47);
CC48:=COST(48);
CC49:=COST(49);
CC50:=COST(50);
CC51:=COST(51);
CC52:=COST(52);
CC53:=COST(53);
CC54:=COST(54);
CC55:=COST(55);
CC56:=COST(56);
CC57:=COST(57);
CC58:=COST(58);
CC59:=COST(59);
CC60:=COST(60);
CC61:=COST(61);
CC62:=COST(62);
CC63:=COST(63);
CC64:=COST(64);
CC65:=COST(65);
CC66:=COST(66);
CC67:=COST(67);
CC68:=COST(68);
CC69:=COST(69);
CC70:=COST(70);
CC71:=COST(71);
CC72:=COST(72);
CC73:=COST(73);
CC74:=COST(74);
CC75:=COST(75);
CC76:=COST(76);
CC77:=COST(77);
CC78:=COST(78);
CC79:=COST(79);
CC80:=COST(80);
CC81:=COST(81);
CC82:=COST(82);
CC83:=COST(83);
CC84:=COST(84);
CC85:=COST(85);
CC86:=COST(86);
CC87:=COST(87);
CC88:=COST(88);
CC89:=COST(89);
CC90:=COST(90);
CC91:=COST(91);
最小距离:=MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(B1,B2),B3),B4),B5),B6),B7),B8),B9),B10),B11),B12),B13),B14),B15),B16),B17),B18),B19),B20),B21),B22),B23),B24),B25),B26),B27),B28),B29),B30),B31),B32),B33),B34),B35),B36),B37),B38),B39),B40),B41),B42),B43),B44),B45),B46),B47),B48),B49),B50),B51),B52),B53),B54),B55),B56),B57),B58),B59),B60),B61),B62),B63),B64),B65),B66),B67),B68),B69),B70),B71),B72),B73),B74),B75),B76),B77),B78),B79),B80),B81),B82),B83),B84),B85),B86),B87),B88),B89),B90);
AF:=IF(B1=最小距离,CC1,IF(B2=最小距离,CC2,IF(B3=最小距离,CC3,IF(B4=最小距离,CC4,IF(B5=最小距离,CC5,IF(B6=最小距离,CC6,IF(B7=最小距离,CC7,IF(B8=最小距离,CC8,IF(B9=最小距离,CC9,IF(B10=最小距离,CC10,IF(B11=最小距离,CC11,IF(B11=最小距离,CC11,IF(B12=最小距离,CC12,IF(B13=最小距离,CC13,IF(B14=最小距离,CC14,IF(B15=最小距离,CC15,IF(B16=最小距离,CC16,IF(B17=最小距离,CC17,IF(B18=最小距离,CC18,IF(B19=最小距离,CC19,IF(B20=最小距离,CC20,IF(B21=最小距离,CC21,IF(B21=最小距离,CC21,IF(B22=最小距离,CC22,IF(B23=最小距离,CC23,IF(B24=最小距离,CC24,IF(B25=最小距离,CC25,IF(B26=最小距离,CC26,IF(B27=最小距离,CC27,IF(B28=最小距离,CC28,IF(B29=最小距离,CC29,IF(B30=最小距离,CC30,IF(B31=最小距离,CC31,IF(B31=最小距离,CC31,IF(B32=最小距离,CC32,IF(B33=最小距离,CC33,IF(B34=最小距离,CC34,IF(B35=最小距离,CC35,IF(B36=最小距离,CC36,IF(B37=最小距离,CC37,IF(B38=最小距离,CC38,IF(B39=最小距离,CC39,IF(B40=最小距离,CC40,IF(B41=最小距离,CC41,IF(B41=最小距离,CC41,IF(B42=最小距离,CC42,IF(B43=最小距离,CC43,IF(B44=最小距离,CC44,IF(B45=最小距离,CC45,IF(B46=最小距离,CC46,IF(B47=最小距离,CC47,IF(B48=最小距离,CC48,IF(B49=最小距离,CC49,IF(B50=最小距离,CC50,IF(B51=最小距离,CC51,0)))))))))))))))))))))))))))))))))))))))))))))))))))))));
BF:IF(AF>0,AF,IF(B51=最小距离,CC51,IF(B52=最小距离,CC52,IF(B53=最小距离,CC53,IF(B54=最小距离,CC54,IF(B55=最小距离,CC55,IF(B56=最小距离,CC56,IF(B57=最小距离,CC57,IF(B58=最小距离,CC58,IF(B59=最小距离,CC59,IF(B60=最小距离,CC60,IF(B61=最小距离,CC61,IF(B61=最小距离,CC61,IF(B62=最小距离,CC62,IF(B63=最小距离,CC63,IF(B64=最小距离,CC64,IF(B65=最小距离,CC65,IF(B66=最小距离,CC66,IF(B67=最小距离,CC67,IF(B68=最小距离,CC68,IF(B69=最小距离,CC69,IF(B70=最小距离,CC70,IF(B71=最小距离,CC71,IF(B71=最小距离,CC71,IF(B72=最小距离,CC72,IF(B73=最小距离,CC73,IF(B74=最小距离,CC74,IF(B75=最小距离,CC75,IF(B76=最小距离,CC76,IF(B77=最小距离,CC77,IF(B78=最小距离,CC78,IF(B79=最小距离,CC79,IF(B80=最小距离,CC80,IF(B81=最小距离,CC81,IF(B81=最小距离,CC81,IF(B82=最小距离,CC82,IF(B83=最小距离,CC83,IF(B84=最小距离,CC84,IF(B85=最小距离,CC85,IF(B86=最小距离,CC86,IF(B87=最小距离,CC87,IF(B88=最小距离,CC88,IF(B89=最小距离,CC89,IF(B90=最小距离,CC90,DRAWNULL))))))))))))))))))))))))))))))))))))))))))));