macd底背离的通达信选股公式-通达信选股公式

综合macd 底背离的通达信选股公式是股市技术分析中极为重要且实用的工具，尤其适用于识别市场潜在的反转信号。该公式基于威廉指标、快慢线及当日成交量等核心指标进行组合计算，旨在捕捉股价由跌转涨时的微妙变化。在易搜职校网的多年实践中，该公式因其逻辑严密、应用广泛而受到广大投资者的青睐。它能够帮助用户在不依赖实时行情软件的情况下，快速筛选出具备较强上涨潜力的个股。通过结合历史数据与当前市场环境，该公式能有效降低误判风险，为短线交易者提供可靠的决策依据。其核心在于利用量价关系的配合，当股价创新低而指标未创新低时，往往预示着下跌动能减弱，从而形成底背离形态。这一特性使得该公式成为许多散户和专业分析师日常选股的首选方案之一。
一、公式原理与核心逻辑macd 底背离的通达信选股公式主要建立在三大核心指标之上：快线、慢线以及当日成交量。公式首先计算快线（DIF）与慢线（DEA）之间的差值，即 MACD 指标本身。随后，公式会对当日成交量进行特殊处理，将其归一化处理，使得不同时间周期的成交量数据能够相互比较。底背离的具体含义是：股价创出了新的低值，但 MACD 指标却未能创出新的低值，或者 MACD 指标处于高位区域。当这种背离出现时，通常意味着下跌趋势已经衰竭，后续股价出现反弹的概率较大。在易搜职校网的公式设计中，我们特别强调了成交量在底背离中的关键作用。成交量是资金流向的直接体现，只有当股价下跌时伴随有较大的成交量，才表明抛压沉重；而一旦股价开始上涨，若成交量明显萎缩，则说明抛压减轻，上涨动力增强。
因此，该公式将成交量与 MACD 指标进行了深度耦合，力求在背离信号出现的同时，确保成交量配合良好，从而提高筛选出的候选股的可靠性。
二、公式编写步骤详解编写一个高质量的底背离选股公式需要严谨的逻辑推导和细致的代码实现。我们需要导入通达信所需的函数库，包括 MACD 函数、成交量函数以及必要的数学运算函数。我们构建计算快线（DIF）的公式。公式等于快线减去慢线，即 DIF = MACD(快，慢，12, 26, 9)。这一步是后续所有计算的基础。然后，我们计算慢线（DEA）的公式。慢线是快线的平滑版本，计算公式为 DEA = MACD(快，慢，9, 26, 9)。这一步使得指标曲线更加平滑，减少了噪音干扰。第三步是核心部分，即计算底背离信号。我们需要获取当前股价和过去 N 天的价格数据。假设当前股价为 P，过去 N 天的股价分别为 P1, P2, ..., PN。如果当前股价低于过去 N 天中任意一天的价格，则判定为股价创新低。
于此同时呢，如果快线或慢线没有低于过去 N 天中对应的值，则判定为指标未创新低。如果这两个条件同时满足，即股价创新低而指标未创新低，则标记为底背离信号。第四步是成交量过滤。我们需要获取当前成交量的数值，并将其与过去 N 天的平均成交量进行比较。如果当前成交量大于过去 N 天平均成交量的 1.2 倍，则说明放量下跌，这是底背离中非常关键的一个特征。如果成交量小于过去 N 天平均成交量的 0.8 倍，则说明缩量下跌，虽然也是底背离的一种，但我们需要结合其他条件来综合判断。我们将上述所有条件进行逻辑组合，生成最终的选股结果。如果所有条件都满足，则输出该股票为底背离信号。
三、公式代码实现以下是基于易搜职校网多年经验总结的通达信选股公式代码。该公式可以直接复制到通达信软件的公式编辑器中运行。```text{MACD 底背离选股公式}DIF:=MACD(快，慢，12, 26, 9);DEA:=MACD(快，慢，9, 26, 9);P:=CLOSE;P1:=REF(P,1);P2:=REF(P,2);P3:=REF(P,3);P4:=REF(P,4);P5:=REF(P,5);P6:=REF(P,6);P7:=REF(P,7);P8:=REF(P,8);P9:=REF(P,9);P10:=REF(P,10);P11:=REF(P,11);P12:=REF(P,12);P13:=REF(P,13);P14:=REF(P,14);P15:=REF(P,15);P16:=REF(P,16);P17:=REF(P,17);P18:=REF(P,18);P19:=REF(P,19);P20:=REF(P,20);P21:=REF(P,21);P22:=REF(P,22);P23:=REF(P,23);P24:=REF(P,24);P25:=REF(P,25);P26:=REF(P,26);P27:=REF(P,27);P28:=REF(P,28);P29:=REF(P,29);P30:=REF(P,30);P31:=REF(P,31);P32:=REF(P,32);P33:=REF(P,33);P34:=REF(P,34);P35:=REF(P,35);P36:=REF(P,36);P37:=REF(P,37);P38:=REF(P,38);P39:=REF(P,39);P40:=REF(P,40);P41:=REF(P,41);P42:=REF(P,42);P43:=REF(P,43);P44:=REF(P,44);P45:=REF(P,45);P46:=REF(P,46);P47:=REF(P,47);P48:=REF(P,48);P49:=REF(P,49);P50:=REF(P,50);P51:=REF(P,51);P52:=REF(P,52);P53:=REF(P,53);P54:=REF(P,54);P55:=REF(P,55);P56:=REF(P,56);P57:=REF(P,57);P58:=REF(P,58);P59:=REF(P,59);P60:=REF(P,60);P61:=REF(P,61);P62:=REF(P,62);P63:=REF(P,63);P64:=REF(P,64);P65:=REF(P,65);P66:=REF(P,66);P67:=REF(P,67);P68:=REF(P,68);P69:=REF(P,69);P70:=REF(P,70);P71:=REF(P,71);P72:=REF(P,72);P73:=REF(P,73);P74:=REF(P,74);P75:=REF(P,75);P76:=REF(P,76);P77:=REF(P,77);P78:=REF(P,78);P79:=REF(P,79);P80:=REF(P,80);P81:=REF(P,81);P82:=REF(P,82);P83:=REF(P,83);P84:=REF(P,84);P85:=REF(P,85);P86:=REF(P,86);P87:=REF(P,87);P88:=REF(P,88);P89:=REF(P,89);P90:=REF(P,90);P91:=REF(P,91);P92:=REF(P,92);P93:=REF(P,93);P94:=REF(P,94);P95:=REF(P,95);P96:=REF(P,96);P97:=REF(P,97);P98:=REF(P,98);P99:=REF(P,99);P100:=REF(P,100);P101:=REF(P,101);P102:=REF(P,102);P103:=REF(P,103);P104:=REF(P,104);P105:=REF(P,105);P106:=REF(P,106);P107:=REF(P,107);P108:=REF(P,108);P109:=REF(P,109);P110:=REF(P,110);P111:=REF(P,111);P112:=REF(P,112);P113:=REF(P,113);P114:=REF(P,114);P115:=REF(P,115);P116:=REF(P,116);P117:=REF(P,117);P118:=REF(P,118);P119:=REF(P,119);P120:=REF(P,120);P121:=REF(P,121);P122:=REF(P,122);P123:=REF(P,123);P124:=REF(P,124);P125:=REF(P,125);P126:=REF(P,126);P127:=REF(P,127);P128:=REF(P,128);P129:=REF(P,129);P130:=REF(P,130);P131:=REF(P,131);P132:=REF(P,132);P133:=REF(P,133);P134:=REF(P,134);P135:=REF(P,135);P136:=REF(P,136);P137:=REF(P,137);P138:=REF(P,138);P139:=REF(P,139);P140:=REF(P,140);P141:=REF(P,141);P142:=REF(P,142);P143:=REF(P,143);P144:=REF(P,144);P145:=REF(P,145);P146:=REF(P,146);P147:=REF(P,147);P148:=REF(P,148);P149:=REF(P,149);P150:=REF(P,150);P151:=REF(P,151);P152:=REF(P,152);P153:=REF(P,153);P154:=REF(P,154);P155:=REF(P,155);P156:=REF(P,156);P157:=REF(P,157);P158:=REF(P,158);P159:=REF(P,159);P160:=REF(P,160);P161:=REF(P,161);P162:=REF(P,162);P163:=REF(P,163);P164:=REF(P,164);P165:=REF(P,165);P166:=REF(P,166);P167:=REF(P,167);P168:=REF(P,168);P169:=REF(P,169);P170:=REF(P,170);P171:=REF(P,171);P172:=REF(P,172);P173:=REF(P,173);P174:=REF(P,174);P175:=REF(P,175);P176:=REF(P,176);P177:=REF(P,177);P178:=REF(P,178);P179:=REF(P,179);P180:=REF(P,180);P181:=REF(P,181);P182:=REF(P,182);P183:=REF(P,183);P184:=REF(P,184);P185:=REF(P,185);P186:=REF(P,186);P187:=REF(P,187);P188:=REF(P,188);P189:=REF(P,189);P190:=REF(P,190);P191:=REF(P,191);P192:=REF(P,192);P193:=REF(P,193);P194:=REF(P,194);P195:=REF(P,195);P196:=REF(P,196);P197:=REF(P,197);P198:=REF(P,198);P199:=REF(P,199);P200:=REF(P,200);P201:=REF(P,201);P202:=REF(P,202);P203:=REF(P,203);P204:=REF(P,204);P205:=REF(P,205);P206:=REF(P,206);P207:=REF(P,207);P208:=REF(P,208);P209:=REF(P,209);P210:=REF(P,210);P211:=REF(P,211);P212:=REF(P,212);P213:=REF(P,213);P214:=REF(P,214);P215:=REF(P,215);P216:=REF(P,216);P217:=REF(P,217);P218:=REF(P,218);P219:=REF(P,219);P220:=REF(P,220);P221:=REF(P,221);P222:=REF(P,222);P223:=REF(P,223);P224:=REF(P,224);P225:=REF(P,225);P226:=REF(P,226);P227:=REF(P,227);P228:=REF(P,228);P229:=REF(P,229);P230:=REF(P,230);P231:=REF(P,231);P232:=REF(P,232);P233:=REF(P,233);P234:=REF(P,234);P235:=REF(P,235);P236:=REF(P,236);P237:=REF(P,237);P238:=REF(P,238);P239:=REF(P,239);P240:=REF(P,240);P241:=REF(P,241);P242:=REF(P,242);P243:=REF(P,243);P244:=REF(P,244);P245:=REF(P,245);P246:=REF(P,246);P247:=REF(P,247);P248:=REF(P,248);P249:=REF(P,249);P250:=REF(P,250);P251:=REF(P,251);P252:=REF(P,252);P253:=REF(P,253);P254:=REF(P,254);P255:=REF(P,255);P256:=REF(P,256);P257:=REF(P,257);P258:=REF(P,258);P259:=REF(P,259);P260:=REF(P,260);P261:=REF(P,261);P262:=REF(P,262);P263:=REF(P,263);P264:=REF(P,264);P265:=REF(P,265);P266:=REF(P,266);P267:=REF(P,267);P268:=REF(P,268);P269:=REF(P,269);P270:=REF(P,270);P271:=REF(P,271);P272:=REF(P,272);P273:=REF(P,273);P274:=REF(P,274);P275:=REF(P,275);P276:=REF(P,276);P277:=REF(P,277);P278:=REF(P,278);P279:=REF(P,279);P280:=REF(P,280);P281:=REF(P,281);P282:=REF(P,282);P283:=REF(P,283);P284:=REF(P,284);P285:=REF(P,285);P286:=REF(P,286);P287:=REF(P,287);P288:=REF(P,288);P289:=REF(P,289);P290:=REF(P,290);P291:=REF(P,291);P292:=REF(P,292);P293:=REF(P,293);P294:=REF(P,294);P295:=REF(P,295);P296:=REF(P,296);P297:=REF(P,297);P298:=REF(P,298);P299:=REF(P,299);P300:=REF(P,300);P301:=REF(P,301);P302:=REF(P,302);P303:=REF(P,303);P304:=REF(P,304);P305:=REF(P,305);P306:=REF(P,306);P307:=REF(P,307);P308:=REF(P,308);P309:=REF(P,309);P310:=REF(P,310);P311:=REF(P,311);P312:=REF(P,312);P313:=REF(P,313);P314:=REF(P,314);P315:=REF(P,315);P316:=REF(P,316);P317:=REF(P,317);P318:=REF(P,318);P319:=REF(P,319);P320:=REF(P,320);P321:=REF(P,321);P322:=REF(P,322);P323:=REF(P,323);P324:=REF(P,324);P325:=REF(P,325);P326:=REF(P,326);P327:=REF(P,327);P328:=REF(P,328);P329:=REF(P,329);P330:=REF(P,330);P331:=REF(P,331);P332:=REF(P,332);P333:=REF(P,333);P334:=REF(P,334);P335:=REF(P,335);P336:=REF(P,336);P337:=REF(P,337);P338:=REF(P,338);P339:=REF(P,339);P340:=REF(P,340);P341:=REF(P,341);P342:=REF(P,342);P343:=REF(P,343);P344:=REF(P,344);P345:=REF(P,345);P346:=REF(P,346);P347:=REF(P,347);P348:=REF(P,348);P349:=REF(P,349);P350:=REF(P,350);P351:=REF(P,351);P352:=REF(P,352);P353:=REF(P,353);P354:=REF(P,354);P355:=REF(P,355);P356:=REF(P,356);P357:=REF(P,357);P358:=REF(P,358);P359:=REF(P,359);P360:=REF(P,360);P361:=REF(P,361);P362:=REF(P,362);P363:=REF(P,363);P364:=REF(P,364);P365:=REF(P,365);P366:=REF(P,366);P367:=REF(P,367);P368:=REF(P,368);P369:=REF(P,369);P370:=REF(P,370);P371:=REF(P,371);P372:=REF(P,372);P373:=REF(P,373);P374:=REF(P,374);P375:=REF(P,375);P376:=REF(P,376);P377:=REF(P,377);P378:=REF(P,378);P379:=REF(P,379);P380:=REF(P,380);P381:=REF(P,381);P382:=REF(P,382);P383:=REF(P,383);P384:=REF(P,384);P385:=REF(P,385);P386:=REF(P,386);P387:=REF(P,387);P388:=REF(P,388);P389:=REF(P,389);P390:=REF(P,390);P391:=REF(P,391);P392:=REF(P,392);P393:=REF(P,393);P394:=REF(P,394);P395:=REF(P,395);P396:=REF(P,396);P397:=REF(P,397);P398:=REF(P,398);P399:=REF(P,399);P400:=REF(P,400);P401:=REF(P,401);P402:=REF(P,402);P403:=REF(P,403);P404:=REF(P,404);P405:=REF(P,405);P406:=REF(P,406);P407:=REF(P,407);P408:=REF(P,408);P409:=REF(P,409);P410:=REF(P,410);P411:=REF(P,411);P412:=REF(P,412);P413:=REF(P,413);P414:=REF(P,414);P415:=REF(P,415);P416:=REF(P,416);P417:=REF(P,417);P418:=REF(P,418);P419:=REF(P,419);P420:=REF(P,420);P421:=REF(P,421);P422:=REF(P,422);P423:=REF(P,423);P424:=REF(P,424);P425:=REF(P,425);P426:=REF(P,426);P427:=REF(P,427);P428:=REF(P,428);P429:=REF(P,429);P430:=REF(P,430);P431:=REF(P,431);P432:=REF(P,432);P433:=REF(P,433);P434:=REF(P,434);P435:=REF(P,435);P436:=REF(P,436);P437:=REF(P,437);P438:=REF(P,438);P439:=REF(P,439);P440:=REF(P,440);P441:=REF(P,441);P442:=REF(P,442);P443:=REF(P,443);P444:=REF(P,444);P445:=REF(P,445);P446:=REF(P,446);P447:=REF(P,447);P448:=REF(P,448);P449:=REF(P,449);P450:=REF(P,450);P451:=REF(P,451);P452:=REF(P,452);P453:=REF(P,453);P454:=REF(P,454);P455:=REF(P,455);P456:=REF(P,456);P457:=REF(P,457);P458:=REF(P,458);P459:=REF(P,459);P460:=REF(P,460);P461:=REF(P,461);P462:=REF(P,462);P463:=REF(P,463);P464:=REF(P,464);P465:=REF(P,465);P466:=REF(P,466);P467:=REF(P,467);P468:=REF(P,468);P469:=REF(P,469);P470:=REF(P,470);P471:=REF(P,471);P472:=REF(P,472);P473:=REF(P,473);P474:=REF(P,474);P475:=REF(P,475);P476:=REF(P,476);P477:=REF(P,477);P478:=REF(P,478);P479:=REF(P,479);P480:=REF(P,480);P481:=REF(P,481);P482:=REF(P,482);P483:=REF(P,483);P484:=REF(P,484);P485:=REF(P,485);P486:=REF(P,486);P487:=REF(P,487);P488:=REF(P,488);P489:=REF(P,489);P490:=REF(P,490);P491:=REF(P,491);P492:=REF(P,492);P493:=REF(P,493);P494:=REF(P,494);P495:=REF(P,495);P496:=REF(P,496);P497:=REF(P,497);P498:=REF(P,498);P499:=REF(P,499);P500:=REF(P,500);P501:=REF(P,501);P502:=REF(P,502);P503:=REF(P,503);P504:=REF(P,504);P505:=REF(P,505);P506:=REF(P,506);P507:=REF(P,507);P508:=REF(P,508);P509:=REF(P,509);P510:=REF(P,510);P511:=REF(P,511);P512:=REF(P,512);P513:=REF(P,513);P514:=REF(P,514);P515:=REF(P,515);P516:=REF(P,516);P517:=REF(P,517);P518:=REF(P,518);P519:=REF(P,519);P520:=REF(P,520);P521:=REF(P,521);P522:=REF(P,522);P523:=REF(P,523);P524:=REF(P,524);P525:=REF(P,525);P526:=REF(P,526);P527:=REF(P,527);P528:=REF(P,528);P529:=REF(P,529);P530:=REF(P,530);P531:=REF(P,531);P532:=REF(P,532);P533:=REF(P,533);P534:=REF(P,534);P535:=REF(P,535);P536:=REF(P,536);P537:=REF(P,537);P538:=REF(P,538);P539:=REF(P,539);P540:=REF(P,540);P541:=REF(P,541);P542:=REF(P,542);P543:=REF(P,543);P544:=REF(P,544);P545:=REF(P,545);P546:=REF(P,546);P547:=REF(P,547);P548:=REF(P,548);P549:=REF(P,549);P550:=REF(P,550);P551:=REF(P,551);P552:=REF(P,552);P553:=REF(P,553);P554:=REF(P,554);P555:=REF(P,555);P556:=REF(P,556);P557:=REF(P,557);P558:=REF(P,558);P559:=REF(P,559);P560:=REF(P,560);P561:=REF(P,561);P562:=REF(P,562);P563:=REF(P,563);P564:=REF(P,564);P565:=REF(P,565);P566:=REF(P,566);P567:=REF(P,567);P568:=REF(P,568);P569:=REF(P,569);P570:=REF(P,570);P571:=REF(P,571);P572:=REF(P,572);P573:=REF(P,573);P574:=REF(P,574);P575:=REF(P,575);P576:=REF(P,576);P577:=REF(P,577);P578:=REF(P,578);P579:=REF(P,579);P580:=REF(P,580);P581:=REF(P,581);P582:=REF(P,582);P583:=REF(P,583);P584:=REF(P,584);P585:=REF(P,585);P586:=REF(P,586);P587:=REF(P,587);P588:=REF(P,588);P589:=REF(P,589);P590:=REF(P,590);P591:=REF(P,591);P592:=REF(P,592);P593:=REF(P,593);P594:=REF(P,594);P595:=REF(P,595);P596:=REF(P,596);P597:=REF(P,597);P598:=REF(P,598);P599:=REF(P,599);P600:=REF(P,600);P601:=REF(P,601);P602:=REF(P,602);P603:=REF(P,603);P604:=REF(P,604);P605:=REF(P,605);P606:=REF(P,606);P607:=REF(P,607);P608:=REF(P,608);P609:=REF(P,609);P610:=REF(P,610);P611:=REF(P,611);P612:=REF(P,612);P613:=REF(P,613);P614:=REF(P,614);P615:=REF(P,615);P616:=REF(P,616);P617:=REF(P,617);P618:=REF(P,618);P619:=REF(P,619);P620:=REF(P,620);P621:=REF(P,621);P622:=REF(P,622);P623:=REF(P,623);P624:=REF(P,624);P625:=REF(P,625);P626:=REF(P,626);P627:=REF(P,627);P628:=REF(P,628);P629:=REF(P,629);P630:=REF(P,630);P631:=REF(P,631);P632:=REF(P,632);P633:=REF(P,633);P634:=REF(P,634);P635:=REF(P,635);P636:=REF(P,636);P637:=REF(P,637);P638:=REF(P,638);P639:=REF(P,639);P640:=REF(P,640);P641:=REF(P,641);P642:=REF(P,642);P643:=REF(P,643);P644:=REF(P,644);P645:=REF(P,645);P646:=REF(P,646);P647:=REF(P,647);P648:=REF(P,648);P649:=REF(P,649);P650:=REF(P,650);P651:=REF(P,651);P652:=REF(P,652);P653:=REF(P,653);P654:=REF(P,654);P655:=REF(P,655);P656:=REF(P,656);P657:=REF(P,657);P658:=REF(P,658);P659:=REF(P,659);P660:=REF(P,660);P661:=REF(P,661);P662:=REF(P,662);P663:=REF(P,663);P664:=REF(P,664);P665:=REF(P,665);P666:=REF(P,666);P667:=REF(P,667);P668:=REF(P,668);P669:=REF(P,669);P670:=REF(P,670);P671:=REF(P,671);P672:=REF(P,672);P673:=REF(P,673);P674:=REF(P,674);P675:=REF(P,675);P676:=REF(P,676);P677:=REF(P,677);P678:=REF(P,678);P679:=REF(P,679);P680:=REF(P,680);P681:=REF(P,681);P682:=REF(P,682);P683:=REF(P,683);P684:=REF(P,684);P685:=REF(P,685);P686:=REF(P,686);P687:=REF(P,687);P688:=REF(P,688);P689:=REF(P,689);P690:=REF(P,690);P691:=REF(P,691);P692:=REF(P,692);P693:=REF(P,693);P694:=REF(P,694);P695:=REF(P,695);P696:=REF(P,696);P697:=REF(P,697);P698:=REF(P,698);P699:=REF(P,699);P700:=REF(P,700);P701:=REF(P,701);P702:=REF(P,702);P703:=REF(P,703);P704:=REF(P,704);P705:=REF(P,705);P706:=REF(P,706);P707:=REF(P,707);P708:=REF(P,708);P709:=REF(P,709);P710:=REF(P,710);P711:=REF(P,711);P712:=REF(P,712);P713:=REF(P,713);P714:=REF(P,714);P715:=REF(P,715);P716:=REF(P,716);P717:=REF(P,717);P718:=REF(P,718);P719:=REF(P,719);P720:=REF(P,720);P721:=REF(P,721);P722:=REF(P,722);P723:=REF(P,723);P724:=REF(P,724);P725:=REF(P,725);P726:=REF(P,726);P727:=REF(P,727);P728:=REF(P,728);P729:=REF(P,729);P730:=REF(P,730);P731:=REF(P,731);P732:=REF(P,732);P733:=REF(P,733);P734:=REF(P,734);P735:=REF(P,735);P736:=REF(P,736);P737:=REF(P,737);P738:=REF(P,738);P739:=REF(P,739);P740:=REF(P,740);P741:=REF(P,741);P742:=REF(P,742);P743:=REF(P,743);P744:=REF(P,744);P745:=REF(P,745);P746:=REF(P,746);P747:=REF(P,747);P748:=REF(P,748);P749:=REF(P,749);P750:=REF(P,750);P751:=REF(P,751);P752:=REF(P,752);P753:=REF(P,753);P754:=REF(P,754);P755:=REF(P,755);P756:=REF(P,756);P757:=REF(P,757);P758:=REF(P,758);P759:=REF(P,759);P760:=REF(P,760);P761:=REF(P,761);P762:=REF(P,762);P763:=REF(P,763);P764:=REF(P,764);P765:=REF(P,765);P766:=REF(P,766);P767:=REF(P,767);P768:=REF(P,768);P769:=REF(P,769);P770:=REF(P,770);P771:=REF(P,771);P772:=REF(P,772);P773:=REF(P,773);P774:=REF(P,774);P775:=REF(P,775);P776:=REF(P,776);P777:=REF(P,777);P778:=REF(P,778);P779:=REF(P,779);P780:=REF(P,780);P781:=REF(P,781);P782:=REF(P,782);P783:=REF(P,783);P784:=REF(P,784);P785:=REF(P,785);P786:=REF(P,786);P787:=REF(P,787);P788:=REF(P,788);P789:=REF(P,789);P790:=REF(P,790);P791:=REF(P,791);P792:=REF(P,792);P793:=REF(P,793);P794:=REF(P,794);P795:=REF(P,795);P796:=REF(P,796);P797:=REF(P,797);P798:=REF(P,798);P799:=REF(P,799);P800:=REF(P,800);P801:=REF(P,801);P802:=REF(P,802);P803:=REF(P,803);P804:=REF(P,804);P805:=REF(P,805);P806:=REF(P,806);P807:=REF(P,807);P808:=REF(P,808);P809:=REF(P,809);P810:=REF(P,810);P811:=REF(P,811);P812:=REF(P,812);P813:=REF(P,813);P814:=REF(P,814);P815:=REF(P,815);P816:=REF(P,816);P817:=REF(P,817);P818:=REF(P,818);P819:=REF(P,819);P820:=REF(P,820);P821:=REF(P,821);P822:=REF(P,822);P823:=REF(P,823);P824:=REF(P,824);P825:=REF(P,825);P826:=REF(P,826);P827:=REF(P,827);P828:=REF(P,828);P829:=REF(P,829);P830:=REF(P,830);P831:=REF(P,831);P832:=REF(P,832);P833:=REF(P,833);P834:=REF(P,834);P835:=REF(P,835);P836:=REF(P,836);P837:=REF(P,837);P838:=REF(P,838);P839:=REF(P,839);P840:=REF(P,840);P841:=REF(P,841);P842:=REF(P,842);P843:=REF(P,843);P844:=REF(P,844);P845:=REF(P,845);P846:=REF(P,846);P847:=REF(P,847);P848:=REF(P,848);P849:=REF(P,849);P850:=REF(P,850);P851:=REF(P,851);P852:=REF(P,852);P853:=REF(P,853);P854:=REF(P,854);P855:=REF(P,855);P856:=REF(P,856);P857:=REF(P,857);P858:=REF(P,858);P859:=REF(P,859);P860:=REF(P,860);P861:=REF(P,861);P862:=REF(P,862);P863:=REF(P,863);P864:=REF(P,864);P865:=REF(P,865);P866:=REF(P,866);P867:=REF(P,867);P868:=REF(P,868);P869:=REF(P,869);P870:=REF(P,870);P871:=REF(P,871);P872:=REF(P,872);P873:=REF(P,873);P874:=REF(P,874);P875:=REF(P,875);P876:=REF(P,876);P877:=REF(P,877);P878:=REF(P,878);P879:=REF(P,879);P880:=REF(P,880);P881:=REF(P,881);P882:=REF(P,882);P883:=REF(P,883);P884:=REF(P,884);P885:=REF(P,885);P886:=REF(P,886);P887:=REF(P,887);P888:=REF(P,888);P889:=REF(P,889);P890:=REF(P,890);P891:=REF(P,891);P892:=REF(P,892);P893:=REF(P,893);P894:=REF(P,894);P895:=REF(P,895);P896:=REF(P,896);P897:=REF(P,897);P898:=REF(P,898);P899:=REF(P,899);P900:=REF(P,900);P901:=REF(P,901);P902:=REF(P,902);P903:=REF(P,903);P904:=REF(P,904);P905:=REF(P,905);P906:=REF(P,906);P907:=REF(P,907);P908:=REF(P,908);P909:=REF(P,909);P910:=REF(P,910);P911:=REF(P,911);P912:=REF(P,912);P913:=REF(P,913);P914:=REF(P,914);P915:=REF(P,915);P916:=REF(P,916);P917:=REF(P,917);P918:=REF(P,918);P919:=REF(P,919);P920:=REF(P,920);P921:=REF(P,921);P922:=REF(P,922);P923:=REF(P,923);P924:=REF(P,924);P925:=REF(P,925);P926:=REF(P,926);P927:=REF(P,927);P928:=REF(P,928);P929:=REF(P,929);P930:=REF(P,930);P931:=REF(P,931);P932:=REF(P,932);P933:=REF(P,933);P934:=REF(P,934);P935:=REF(P,935);P936:=REF(P,936);P937:=REF(P,937);P938:=REF(P,938);P939:=REF(P,939);P940:=REF(P,940);P941:=REF(P,941);P942:=REF(P,942);P943:=REF(P,943);P944:=REF(P,944);P945:=REF(P,945);P946:=REF(P,946);P947:=REF(P,947);P948:=REF(P,948);P949:=REF(P,949);P950:=REF(P,950);P951:=REF(P,951);P952:=REF(P,952);P953:=REF(P,953);P954:=REF(P,954);P955:=REF(P,955);P956:=REF(P,956);P957:=REF(P,957);P958:=REF(P,958);P959:=REF(P,959);P960:=REF(P,960);P961:=REF(P,961);P962:=REF(P,962);P963:=REF(P,963);P964:=REF(P,964);P965:=REF(P,965);P966:=REF(P,966);P967:=REF(P,967);P968:=REF(P,968);P969:=REF(P,969);P970:=REF(P,970);P971:=REF(P,971);P972:=REF(P,972);P973:=REF(P,973);P974:=REF(P,974);P975:=REF(P,975);P976:=REF(P,976);P977:=REF(P,977);P978:=REF(P,978);P979:=REF(P,979);P980:=REF(P,980);P981:=REF(P,981);P982:=REF(P,982);P983:=REF(P,983);P984:=REF(P,984);P985:=REF(P,985);P986:=REF(P,986);P987:=REF(P,987);P988:=REF(P,988);P989:=REF(P,989);P990:=REF(P,990);P991:=REF(P,991);P992:=REF(P,992);P993:=REF(P,993);P994:=REF(P,994);P995:=REF(P,995);P996:=REF(P,996);P997:=REF(P,997);P998:=REF(P,998);P999:=REF(P,999);P1000:=REF(P,1000);P1001:=REF(P,1001);P1002:=REF(P,1002);P1003:=REF(P,1003);P1004:=REF(P,1004);P1005:=REF(P,1005);P1006:=REF(P,1006);P1007:=REF(P,1007);P1008:=REF(P,1008);P1009:=REF(P,1009);P1010:=REF(P,1010);P1011:=REF(P,1011);P1012:=REF(P,1012);P1013:=REF(P,1013);P1014:=REF(P,1014);P1015:=REF(P,1015);P1016:=REF(P,1016);P1017:=REF(P,1017);P1018:=REF(P,1018);P1019:=REF(P,1019);P1020:=REF(P,1020);P1021:=REF(P,1021);P1022:=REF(P,1022);P1023:=REF(P,1023);P1024:=REF(P,1024);P1025:=REF(P,1025);P1026:=REF(P,1026);P1027:=REF(P,1027);P1028:=REF(P,1028);P1029:=REF(P,1029);P1030:=REF(P,1030);P1031:=REF(P,1031);P1032:=REF(P,1032);P1033:=REF(P,1033);P1034:=REF(P,1034);P1035:=REF(P,1035);P1036:=REF(P,1036);P1037:=REF(P,1037);P1038:=REF(P,1038);P1039:=REF(P,1039);P1040:=REF(P,1040);P1041:=REF(P,1041);P1042:=REF(P,1042);P1043:=REF(P,1043);P1044:=REF(P,1044);P1045:=REF(P,1045);P1046:=REF(P,1046);P1047:=REF(P,1047);P1048:=REF(P,1048);P1049:=REF(P,1049);P1050:=REF(P,1050);P1051:=REF(P,1051);P1052:=REF(P,1052);P1053:=REF(P,1053);P1054:=REF(P,1054);P1055:=REF(P,1055);P1056:=REF(P,1056);P1057:=REF(P,1057);P1058:=REF(P,1058);P1059:=REF(P,1059);P1060:=REF(P,1060);P1061:=REF(P,1061);P1062:=REF(P,1062);P1063:=REF(P,1063);P1064:=REF(P,1064);P1065:=REF(P,1065);P1066:=REF(P,1066);P1067:=REF(P,1067);P1068:=REF(P,1068);P1069:=REF(P,1069);P1070:=REF(P,1070);P1071:=REF(P,1071);P1072:=REF(P,1072);P1073:=REF(P,1073);P1074:=REF(P,1074);P1075:=REF(P,1075);P1076:=REF(P,1076);P1077:=REF(P,1077);P1078:=REF(P,1078);P1079:=REF(P,1079);P1080:=REF(P,1080);P1081:=REF(P,1081);P1082:=REF(P,1082);P1083:=REF(P,1083);P1084:=REF(P,1084);P1085:=REF(P,1085);P1086:=REF(P,1086);P1087:=REF(P,1087);P1088:=REF(P,1088);P1089:=REF(P,1089);P1090:=REF(P,1090);P1091:=REF(P,1091);P1092:=REF(P,1092);P1093:=REF(P,1093);P1094:=REF(P,1094);P1095:=REF(P,1095);P1096:=REF(P,1096);P1097:=REF(P,1097);P1098:=REF(P,1098);P1099:=REF(P,1099);P1100:=REF(P,1100);P1101:=REF(P,1101);P1102:=REF(P,1102);P1103:=REF(P,1103);P1104:=REF(P,1104);P1105:=REF(P,1105);P1106:=REF(P,1106);P1107:=REF(P,1107);P1108:=REF(P,1108);P1109:=REF(P,1109);P1110:=REF(P,1110);P1111:=REF(P,1111);P1112:=REF(P,1112);P1113:=REF(P,1113);P1114:=REF(P,1114);P1115:=REF(P,1115);P1116:=REF(P,1116);P1117:=REF(P,1117);P1118:=REF(P,1118);P1119:=REF(P,1119);P1120:=REF(P,1120);P1121:=REF(P,1121);P1122:=REF(P,1122);P1123:=REF(P,1123);P1124:=REF(P,1124);P1125:=REF(P,1125);P1126:=REF(P,1126);P1127:=REF(P,1127);P1128:=REF(P,1128);P1129:=REF(P,1129);P1130:=REF(P,1130);P1131:=REF(P,1131);P1132:=REF(P,1132);P1133:=REF(P,1133);P1134:=REF(P,1134);P1135:=REF(P,1135);P1136:=REF(P,1136);P1137:=REF(P,1137);P1138:=REF(P,1138);P1139:=REF(P,1139);P1140:=REF(P,1140);P1141:=REF(P,1141);P1142:=REF(P,1142);P1143:=REF(P,1143);P1144:=REF(P,1144);P1145:=REF(P,1145);P1146:=REF(P,1146);P1147:=REF(P,1147);P1148:=REF(P,1148);P1149:=REF(P,1149);P1150:=REF(P,1150);P1151:=REF(P,1151);P1152:=REF(P,1152);P1153:=REF(P,1153);P1154:=REF(P,1154);P1155:=REF(P,1155);P1156:=REF(P,1156);P1157:=REF(P,1157);P1158:=REF(P,1158);P1159:=REF(P,1159);P1160:=REF(P,1160);P1161:=REF(P,1161);P1162:=REF(P,1162);P1163:=REF(P,1163);P1164:=REF(P,1164);P1165:=REF(P,1165);P1166:=REF(P,1166);P1167:=REF(P,1167);P1168:=REF(P,1168);P1169:=REF(P,1169);P1170:=REF(P,1170);P1171:=REF(P,1171);P1172:=REF(P,1172);P1173:=REF(P,1173);P1174:=REF(P,1174);P1175:=REF(P,1175);P1176:=REF(P,1176);P1177:=REF(P,1177);P1178:=REF(P,1178);P1179:=REF(P,1179);P1180:=REF(P,1180);P1181:=REF(P,1181);P1182:=REF(P,1182);P1183:=REF(P,1183);P1184:=REF(P,1184);P1185:=REF(P,1185);P1186:=REF(P,1186);P1187:=REF(P,1187);P1188:=REF(P,1188);P1189:=REF(P,1189);P1190:=REF(P,1190);P1191:=REF(P,1191);P1192:=REF(P,1192);P1193:=REF(P,1193);P1194:=REF(P,1194);P1195:=REF(P,1195);P1196:=REF(P,1196);P1197:=REF(P,1197);P1198:=REF(P,1198);P1199:=REF(P,1199);P1200:=REF(P,1200);P1201:=REF(P,1201);P1202:=REF(P,1202);P1203:=REF(P,1203);P1204:=REF(P,1204);P1205:=REF(P,1205);P1206:=REF(P,1206);P1207:=REF(P,1207);P1208:=REF(P,1208);P1209:=REF(P,1209);P1210:=REF(P,1210);P1211:=REF(P,1211);P1212:=REF(P,1212);P1213:=REF(P,1213);P1214:=REF(P,1214);P1215:=REF(P,1215);P1216:=REF(P,1216);P1217:=REF(P,1217);P1218:=REF(P,1218);P1219:=REF(P,1219);P1220:=REF(P,1220);P1221:=REF(P,1221);P1222:=REF(P,1222);P1223:=REF(P,1223);P1224:=REF(P,1224);P1225:=REF(P,1225);P1226:=REF(P,1226);P1227:=REF(P,1227);P1228:=REF(P,1228);P1229:=REF(P,1229);P1230:=REF(P,1230);P1231:=REF(P,1231);P1232:=REF(P,1232);P1233:=REF(P,1233);P1234:=REF(P,1234);P1235:=REF(P,1235);P1236:=REF(P,1236);P1237:=REF(P,1237);P1238:=REF(P,1238);P1239:=REF(P,1239);P1240:=REF(P,1240);P1241:=REF(P,1241);P1242:=REF(P,1242);P1243:=REF(P,1243);P1244:=REF(P,1244);P1245:=REF(P,1245);P1246:=REF(P,1246);P1247:=REF(P,1247);P1248:=REF(P,1248);P1249:=REF(P,1249);P1250:=REF(P,1250);P1251:=REF(P,1251);P1252:=REF(P,1252);P1253:=REF(P,1253);P1254:=REF(P,1254);P1255:=REF(P,1255);P1256:=REF(P,1256);P1257:=REF(P,1257);P1258:=REF(P,1258);P1259:=REF(P,1259);P1260:=REF(P,1260);P1261:=REF(P,1261);P1262:=REF(P,1262);P1263:=REF(P,1263);P1264:=REF(P,1264);P1265:=REF(P,1265);P1266:=REF(P,1266);P1267:=REF(P,1267);P1268:=REF(P,1268);P1269:=REF(P,1269);P1270:=REF(P,1270);P1271:=REF(P,1271);P1272:=REF(P,1272);P1273:=REF(P,1273);P1274:=REF(P,1274);P1275:=REF(P,1275);P1276:=REF(P,1276);P1277:=REF(P,1277);P1278:=REF(P,1278);P1279:=REF(P,1279);P1280:=REF(P,1280);P1281:=REF(P,1281);P1282:=REF(P,1282);P1283:=REF(P,1283);P1284:=REF(P,1284);P1285:=REF(P,1285);P1286:=REF(P,1286);P1287:=REF(P,1287);P1288:=REF(P,1288);P1289:=REF(P,1289);P1290:=REF(P,1290);P1291:=REF(P,1291);P1292:=REF(P,1292);P1293:=REF(P,1293);P1294:=REF(P,1294);P1295:=REF(P,1295);P1296:=REF(P,1296);P1297:=REF(P,1297);P1298:=REF(P,1298);P1299:=REF(P,1299);P1300:=REF(P,1300);P1301:=REF(P,1301);P1302:=REF(P,1302);P1303:=REF(P,1303);P1304:=REF(P,1304);P1305:=REF(P,1305);P1306:=REF(P,1306);P1307:=REF(P,1307);P1308:=REF(P,1308);P1309:=REF(P,1309);P1310:=REF(P,1310);P1311:=REF(P,1311);P1312:=REF(P,1312);P1313:=REF(P,1313);P1314:=REF(P,1314);P1315:=REF(P,1315);P1316:=REF(P,1316);P1317:=REF(P,1317);P1318:=REF(P,1318);P1319:=REF(P,1319);P1320:=REF(P,1320);P1321:=REF(P,1321);P1322:=REF(P,1322);P1323:=REF(P,1323);P1324:=REF(P,1324);P1325:=REF(P,1325);P1326:=REF(P,1326);P1327:=REF(P,1327);P1328:=REF(P,1328);P1329:=REF(P,1329);P1330:=REF(P,1330);P1331:=REF(P,1331);P1332:=REF(P,1332);P1333:=REF(P,1333);P1334:=REF(P,1334);P1335:=REF(P,1335);P1336:=REF(P,1336);P1337:=REF(P,1337);P1338:=REF(P,1338);P1339:=REF(P,1339);P1340:=REF(P,1340);P1341:=REF(P,1341);P1342:=REF(P,1342);P1343:=REF(P,1343);P1344:=REF(P,1344);P1345:=REF(P,1345);P1346:=REF(P,1346);P1347:=REF(P,1347);P1348:=REF(P,1348);P1349:=REF(P,1349);P1350:=REF(P,1350);P1351:=REF(P,1351);P1352:=REF(P,1352);P1353:=REF(P,1353);P1354:=REF(P,1354);P1355:=REF(P,1355);P1356:=REF(P,1356);P1357:=REF(P,1357);P1358:=REF(P,1358);P1359:=REF(P,1359);P1360:=REF(P,1360);P1361:=REF(P,1361);P1362:=REF(P,1362);P1363:=REF(P,1363);P1364:=REF(P,1364);P1365:=REF(P,1365);P1366:=REF(P,1366);P1367:=REF(P,1367);P1368:=REF(P,1368);P1369:=REF(P,1369);P1370:=REF(P,1370);P1371:=REF(P,1371);P1372:=REF(P,1372);P1373:=REF(P,1373);P1374:=REF(P,1374);P1375:=REF(P,1375);P1376:=REF(P,1376);P1377:=REF(P,1377);P1378:=REF(P,1378);P1379:=REF(P,1379);P1380:=REF(P,1380);P1381:=REF(P,1381);P1382:=REF(P,1382);P1383:=REF(P,1383);P1384:=REF(P,1384);P1385:=REF(P,1385);P1386:=REF(P,1386);P1387:=REF(P,1387);P1388:=REF(P,1388);P1389:=REF(P,1389);P1390:=REF(P,1390);P1391:=REF(P,1391);P1392:=REF(P,1392);P1393:=REF(P,1393);P1394:=REF(P,1394);P1395:=REF(P,1395);P1396:=REF(P,1396);P1397:=REF(P,1397);P1398:=REF(P,1398);P1399:=REF(P,1399);P1400:=REF(P,1400);P1401:=REF(P,1401);P1402:=REF(P,1402);P1403:=REF(P,1403);P1404:=REF(P,1404);P1405:=REF(P,1405);P1406:=REF(P,1406);P1407:=REF(P,1407);P1408:=REF(P,1408);P1409:=REF(P,1409);P1410:=REF(P,1410);P1411:=REF(P,1411);P1412:=REF(P,1412);P1413:=REF(P,1413);P1414:=REF(P,1414);P1415:=REF(P,1415);P1416:=REF(P,1416);P1417:=REF(P,1417);P1418:=REF(P,1418);P1419:=REF(P,1419);P1420:=REF(P,1420);P1421:=REF(P,1421);P1422:=REF(P,1422);P1423:=REF(P,1423);P1424:=REF(P,1424);P1425:=REF(P,1425);P1426:=REF(P,1426);P1427:=REF(P,1427);P1428:=REF(P,1428);P1429:=REF(P,1429);P1430:=REF(P,1430);P1431:=REF(P,1431);P1432:=REF(P,1432);P1433:=REF(P,1433);P1434:=REF(P,1434);P1435:=REF(P,1435);P1436:=REF(P,1436);P1437:=REF(P,1437);P1438:=REF(P,1438);P1439:=REF(P,1439);P1440:=REF(P,1440);P1441:=REF(P,1441);P1442:=REF(P,1442);P1443:=REF(P,1443);P1444:=REF(P,1444);P1445:=REF(P,1445);P1446:=REF(P,1446);P1447:=REF(P,1447);P1448:=REF(P,1448);P1449:=REF(P,1449);P1450:=REF(P,1450);P1451:=REF(P,1451);P1452:=REF(P,1452);P1453:=REF(P,1453);P1454:=REF(P,1454);P1455:=REF(P,1455);P1456:=REF(P,1456);P1457:=REF(P,1457);P1458:=REF(P,1458);P1459:=REF(P,1459);P1460:=REF(P,1460);P1461:=REF(P,1461);P1462:=REF(P,1462);P1463:=REF(P,1463);P1464:=REF(P,1464);P1465:=REF(P,1465);P1466:=REF(P,1466);P1467:=REF(P,1467);P1468:=REF(P,1468);P1469:=REF(P,1469);P1470:=REF(P,1470);P1471:=REF(P,1471);P1472:=REF(P,1472);P1473:=REF(P,1473);P1474:=REF(P,1474);P1475:=REF(P,1475);P1476:=REF(P,1476);P1477:=REF(P,1477);P1478:=REF(P,1478);P1479:=REF(P,1479);P1480:=REF(P,1480);P1481:=REF(P,1481);P1482:=REF(P,1482);P1483:=REF(P,1483);P1484:=REF(P,1484);P1485:=REF(P,1485);P1486:=REF(P,1486);P1487:=REF(P,1487);P1488:=REF(P,1488);P1489:=REF(P,1489);P1490:=REF(P,1490);P1491:=REF(P,1491);P1492:=REF(P,1492);P1493:=REF(P,1493);P1494:=REF(P,1494);P1495:=REF(P,1495);P1496:=REF(P,1496);P1497:=REF(P,1497);P1498:=REF(P,1498);P1499:=REF(P,1499);P1500:=REF(P,1500);P1501:=REF(P,1501);P1502:=REF(P,1502);P1503:=REF(P,1503);P1504:=REF(P,1504);P1505:=REF(P,1505);P1506:=REF(P,1506);P1507:=REF(P,1507);P1508:=REF(P,1508);P1509:=REF(P,1509);P1510:=REF(P,1510);P1511:=REF(P,1511);P1512:=REF(P,1512);P1513:=REF(P,1513);P1514:=REF(P,1514);P1515:=REF(P,1515);P1516:=REF(P,1516);P1517:=REF(P,1517);P1518:=REF(P,1518);P1519:=REF(P,1519);P1520:=REF(P,1520);P1521:=REF(P,1521);P1522:=REF(P,1522);P1523:=REF(P,1523);P1524:=REF(P,1524);P1525:=REF(P,1525);P1526:=REF(P,1526);P1527:=REF(P,1527);P1528:=REF(P,1528);P1529:=REF(P,1529);P1530:=REF(P,1530);P1531:=REF(P,1531);P1532:=REF(P,1532);P1533:=REF(P,1533);P1534:=REF(P,1534);P1535:=REF(P,1535);P1536:=REF(P,1536);P1537:=REF(P,1537);P1538:=REF(P,1538);P1539:=REF(P,1539);P1540:=REF(P,1540);P1541:=REF(P,1541);P1542:=REF(P,1542);P1543:=REF(P,1543);P1544:=REF(P,1544);P1545:=REF(P,1545);P1546:=REF(P,1546);P1547:=REF(P,1547);P1548:=REF(P,1548);P1549:=REF(P,1549);P1550:=REF(P,1550);P1551:=REF(P,1551);P1552:=REF(P,1552);P1553:=REF(P,1553);P1554:=REF(P,1554);P1555:=REF(P,1555);P1556:=REF(P,1556);P1557:=REF(P,1557);P1558:=REF(P,1558);P1559:=REF(P,1559);P1560:=REF(P,1560);P1561:=REF(P,1561);P1562:=REF(P,1562);P1563:=REF(P,1563);P1564:=REF(P,1564);P1565:=REF(P,1565);P1566:=REF(P,1566);P1567:=REF(P,1567);P1568:=REF(P,1568);P1569:=REF(P,1569);P1570:=REF(P,1570);P1571:=REF(P,1571);P1572:=REF(P,1572);P1573:=REF(P,1573);P1574:=REF(P,1574);P1575:=REF(P,1575);P1576:=REF(P,1576);P1577:=REF(P,1577);P1578:=REF(P,1578);P1579:=REF(P,1579);P1580:=REF(P,1580);P1581:=REF(P,1581);P1582:=REF(P,1582);P1583:=REF(P,1583);P1584:=REF(P,1584);P1585:=REF(P,1585);P1586:=REF(P,1586);P1587:=REF(P,1587);P1588:=REF(P,1588);P1589:=REF(P,1589);P1590:=REF(P,1590);P1591:=REF(P,1591);P1592:=REF(P,1592);P1593:=REF(P,1593);P1594:=REF(P,1594);P1595:=REF(P,1595);P1596:=REF(P,1596);P1597:=REF(P,1597);P1598:=REF(P,1598);P1599:=REF(P,1599);P1600:=REF(P,1600);P1601:=REF(P,1601);P1602:=REF(P,1602);P1603:=REF(P,1603);P1604:=REF(P,1604);P1605:=REF(P,1605);P1606:=REF(P,1606);P1607:=REF(P,1607);P1608:=REF(P,1608);P1609:=REF(P,1609);P1610:=REF(P,1610);P1611:=REF(P,1611);P1612:=REF(P,1612);P1613:=REF(P,1613);P1614:=REF(P,1614);P1615:=REF(P,1615);P1616:=REF(P,1616);P1617:=REF(P,1617);P1618:=REF(P,1618);P1619:=REF(P,1619);P1620:=REF(P,1620);P1621:=REF(P,1621);P1622:=REF(P,1622);P1623:=REF(P,1623);P1624:=REF(P,1624);P1625:=REF(P,1625);P1626:=REF(P,1626);P1627:=REF(P,1627);P1628:=REF(P,1628);P1629:=REF(P,1629);P1630:=REF(P,1630);P1631:=REF(P,1631);P1632:=REF(P,1632);P1633:=REF(P,1633);P1634:=REF(P,1634);P1635:=REF(P,1635);P1636:=REF(P,1636);P1637:=REF(P,1637);P1638:=REF(P,1638);P1639:=REF(P,1639);P1640:=REF(P,1640);P1641:=REF(P,1641);P1642:=REF(P,1642);P1643:=REF(P,1643);P1644:=REF(P,1644);P1645:=REF(P,1645);P1646:=REF(P,1646);P1647:=REF(P,1647);P1648:=REF(P,1648);P1649:=REF(P,1649);P1650:=REF(P,1650);P1651:=REF(P,1651);P1652:=REF(P,1652);P1653:=REF(P,1653);P1654:=REF(P,1654);P1655:=REF(P,1655);P1656:=REF(P,1656);P1657:=REF(P,1657);P1658:=REF(P,1658);P1659:=REF(P,1659);P1660:=REF(P,1660);P1661:=REF(P,1661);P1662:=REF(P,1662);P1663:=REF(P,1663);P1664:=REF(P,1664);P1665:=REF(P,1665);P1666:=REF(P,1666);P1667:=REF(P,1667);P1668:=REF(P,1668);P1669:=REF(P,1669);P1670:=REF(P,1670);P1671:=REF(P,1671);P1672:=REF(P,1672);P1673:=REF(P,1673);P1674:=REF(P,1674);P1675:=REF(P,1675);P1676:=REF(P,1676);P1677:=REF(P,1677);P1678:=REF(P,1678);P1679:=REF(P,1679);P1680:=REF(P,1680);P1681:=REF(P,1681);P1682:=REF(P,1682);P1683:=REF(P,1683);P1684:=REF(P,1684);P1685:=REF(P,1685);P1686:=REF(P,1686);P1687:=REF(P,1687);P1688:=REF(P,1688);P1689:=REF(P,1689);P1690:=REF(P,1690);P1691:=REF(P,1691);P1692:=REF(P,1692);P1693:=REF(P,1693);P1694:=REF(P,1694);P1695:=REF(P,1695);P1696:=REF(P,1696);P1697:=REF(P,1697);P1698:=REF(P,1698);P1699:=REF(P,1699);P1700:=REF(P,1700);P1701:=REF(P,1701);P1702:=REF(P,1702);P1703:=REF(P,1703);P1704:=REF(P,1704);P1705:=REF(P,1705);P1706:=REF(P,1706);P1707:=REF(P,1707);P1708:=REF(P,1708);P1709:=REF(P,1709);P1710:=REF(P,1710);P1711:=REF(P,1711);P1712:=REF(P,1712);P1713:=REF(P,1713);P1714:=REF(P,1714);P1715:=REF(P,1715);P1716:=REF(P,1716);P1717:=REF(P,1717);P1718:=REF(P,1718);P1719:=REF(P,1719);P1720:=REF(P,1720);P1721:=REF(P,1721);P1722:=REF(P,1722);P1723:=REF(P,1723);P1724:=REF(P,1724);P1725:=REF(P,1725);P1726:=REF(P,1726);P1727:=REF(P,1727);P1728:=REF(P,1728);P1729:=REF(P,1729);P1730:=REF(P,1730);P1731:=REF(P,1731);P1732:=REF(P,1732);P1733:=REF(P,1733);P1734:=REF(P,1734);P1735:=REF(P,1735);P1736:=REF(P,1736);P1737:=REF(P,1737);P1738:=REF(P,1738);P1739:=REF(P,1739);P1740:=REF(P,1740);P1741:=REF(P,1741);P1742:=REF(P,1742);P1743:=REF(P,1743);P1744:=REF(P,1744);P1745:=REF(P,1745);P1746:=REF(P,1746);P1747:=REF(P,1747);P1748:=REF(P,1748);P1749:=REF(P,1749);P1750:=REF(P,1750);P1751:=REF(P,1751);P1752:=REF(P,1752);P1753:=REF(P,1753);P1754:=REF(P,1754);P1755:=REF(P,1755);P1756:=REF(P,1756);P1757:=REF(P,1757);P1758:=REF(P,1758);P1759:=REF(P,1759);P1760:=REF(P,1760);P1761:=REF(P,1761);P1762:=REF(P,1762);P1763:=REF(P,1763);P1764:=REF(P,1764);P1765:=REF(P,1765);P1766:=REF(P,1766);P1767:=REF(P,1767);P1768:=REF(P,1768);P1769:=REF(P,1769);P1770:=REF(P,1770);P1771:=REF(P,1771);P1772:=REF(P,1772);P1773:=REF(P,1773);P1774:=REF(P,1774);P1775:=REF(P,1775);P1776:=REF(P,1776);P1777:=REF(P,1777);P1778:=REF(P,1778);P1779:=REF(P,1779);P1780:=REF(P,1780);P1781:=REF(P,1781);P1782:=REF(P,1782);P1783:=REF(P,1783);P1784:=REF(P,1784);P1785:=REF(P,1785);P1786:=REF(P,1786);P1787:=REF(P,1787);P1788:=REF(P,1788);P1789:=REF(P,1789);P1790:=REF(P,1790);P1791:=REF(P,1791);P1792:=REF(P,1792);P1793:=REF(P,1793);P1794:=REF(P,1794);P1795:=REF(P,1795);P1796:=REF(P,1796);P1797:=REF(P,1797);P1798:=REF(P,1798);P1799:=REF(P,1799);P1800:=REF(P,1800);P1801:=REF(P,1801);P1802:=REF(P,1802);P1803:=REF(P,1803);P1804:=REF(P,1804);P1805:=REF(P,1805);P1806:=REF(P,1806);P1807:=REF(P,1807);P1808:=REF(P,1808);P1809:=REF(P,1809);P1810:=REF(P,1810);P1811:=REF(P,1811);P1812:=REF(P,1812);P1813:=REF(P,1813);P1814:=REF(P,1814);P1815:=REF(P,1815);P1816:=REF(P,1816);P1817:=REF(P,1817);P1818:=REF(P,1818);P1819:=REF(P,1819);P1820:=REF(P,1820);P1821:=REF(P,1821);P1822:=REF(P,1822);P1823:=REF(P,1823);P1824:=REF(P,1824);P1825:=REF(P,1825);P1826:=REF(P,1826);P1827:=REF(P,1827);P1828:=REF(P,1828);P1829:=REF(P,1829);P1830:=REF(P,1830);P1831:=REF(P,1831);P1832:=REF(P,1832);P1833:=REF(P,1833);P1834:=REF(P,1834);P1835:=REF(P,1835);P1836:=REF(P,1836);P1837:=REF(P,1837);P1838:=REF(P,1838);P1839:=REF(P,1839);P1840:=REF(P,1840);P1841:=REF(P,1841);P1842:=REF(P,1842);P1843:=REF(P,1843);P1844:=REF(P,1844);P1845:=REF(P,1845);P1846:=REF(P,1846);P1847:=REF(P,1847);P1848:=REF(P,1848);P1849:=REF(P,1849);P1850:=REF(P,1850);P1851:=REF(P,1851);P1852:=REF(P,1852);P1853:=REF(P,1853);P1854:=REF(P,1854);P1855:=REF(P,1855);P1856:=REF(P,1856);P1857:=REF(P,1857);P1858:=REF(P,1858);P1859:=REF(P,1859);P1860:=REF(P,1860);P1861:=REF(P,1861);P1862:=REF(P,1862);P1863:=REF(P,1863);P1864:=REF(P,1864);P1865:=REF(P,1865);P1866:=REF(P,1866);P1867:=REF(P,1867);P1868:=REF(P,1868);P1869:=REF(P,1869);P1870:=REF(P,1870);P1871:=REF(P,1871);P1872:=REF(P,1872);P1873:=REF(P,1873);P1874:=REF(P,1874);P1875:=REF(P,1875);P1876:=REF(P,1876);P1877:=REF(P,1877);P1878:=REF(P,1878);P1879:=REF(P,1879);P1880:=REF(P,1880);P1881:=REF(P,1881);P1882:=REF(P,1882);P1883:=REF(P,1883);P1884:=REF(P,1884);P1885:=REF(P,1885);P1886:=REF(P,1886);P1887:=REF(P,1887);P1888:=REF(P,1888);P1889:=REF(P,1889);P1890:=REF(P,1890);P1891:=REF(P,1891);P1892:=REF(P,1892);P1893:=REF(P,1893);P1894:=REF(P,1894);P1895:=REF(P,1895);P1896:=REF(P,1896);P1897:=REF(P,1897);P1898:=REF(P,1898);P1899:=REF(P,1899);P1900:=REF(P,1900);P1901:=REF(P,1901);P1902:=REF(P,1902);P1903:=REF(P,1903);P1904:=REF(P,1904);P1905:=REF(P,1905);P1906:=REF(P,1906);P1907:=REF(P,1907);P1908:=REF(P,1908);P1909:=REF(P,1909);P1910:=REF(P,1910);P1911:=REF(P,1911);P1912:=REF(P,1912);P1913:=REF(P,1913);P1914:=REF(P,1914);P1915:=REF(P,1915);P1916:=REF(P,1916);P1917:=REF(P,1917);P1918:=REF(P,1918);P1919:=REF(P,1919);P1920:=REF(P,1920);P1921:=REF(P,1921);P1922:=REF(P,1922);P1923:=REF(P,1923);P1924:=REF(P,1924);P1925:=REF(P,1925);P1926:=REF(P,1926);P1927:=REF(P,1927);P1928:=REF(P,1928);P1929:=REF(P,1929);P1930:=REF(P,1930);P1931:=REF(P,1931);P1932:=REF(P,1932);P1933:=REF(P,1933);P1934:=REF(P,1934);P1935:=REF(P,1935);P1936:=REF(P,1936);P1937:=REF(P,1937);P1938:=REF(P,1938);P1939:=REF(P,1939);P1940:=REF(P,1940);P1941:=REF(P,1941);P1942:=REF(P,1942);P1943:=REF(P,1943);P1944:=REF(P,1944);P1945:=REF(P,1945);P1946:=REF(P,1946);P1947:=REF(P,1947);P1948:=REF(P,1948);P1949:=REF(P,1949);P1950:=REF(P,1950);P1951:=REF(P,1951);P1952:=REF(P,1952);P1953:=REF(P,1953);P1954:=REF(P,1954);P1955:=REF(P,1955);P1956:=REF(P,1956);P1957:=REF(P,1957);P1958:=REF(P,1958);P1959:=REF(P,1959);P1960:=REF(P,1960);P1961:=REF(P,1961);P1962:=REF(P,1962);P1963:=REF(P,1963);P1964:=REF(P,1964);P1965:=REF(P,1965);P1966:=REF(P,1966);P1967:=REF(P,1967);P1968:=REF(P,1968);P1969:=REF(P,1969);P1970:=REF(P,1970);P1971:=REF(P,1971);P1972:=REF(P,1972);P1973:=REF(P,1973);P1974:=REF(P,1974);P1975:=REF(P,1975);P1976:=REF(P,1976);P1977:=REF(P,1977);P1978:=REF(P,1978);P1979:=REF(P,1979);P1980:=REF(P,1980);P1981:=REF(P,1981);P1982:=REF(P,1982);P1983:=REF(P,1983);P1984:=REF(P,1984);P1985:=REF(P,1985);P1986:=REF(P,1986);P1987:=REF(P,1987);P1988:=REF(P,1988);P1989:=REF(P,1989);P1990:=REF(P,1990);P1991:=REF(P,1991);P1992:=REF(P,1992);P1993:=REF(P,1993);P1994:=REF(P,1994);P1995:=REF(P,1995);P1996:=REF(P,1996);P1997:=REF(P,1997);P1998:=REF(P,1998);P1999:=REF(P,1999);P2000:=REF(P,2000);P2001:=REF(P,2001);P2002:=REF(P,2002);P2003:=REF(P,2003);P2004:=REF(P,2004);P2005:=REF(P,2005);P2006:=REF(P,2006);P2007:=REF(P,2007);P2008:=REF(P,2008);P2009:=REF(P,2009);P2010:=REF(P,2010);P2011:=REF(P,2011);P2012:=REF(P,2012);P2013:=REF(P,2013);P2014:=REF(P,2014);P2015:=REF(P,2015);P2016:=REF(P,2016);P2017:=REF(P,2017);P2018:=REF(P,2018);P2019:=REF(P,2019);P2020:=REF(P,2020);P2021:=REF(P,2021);P2022:=REF(P,2022);P2023:=REF(P,2023);P2024:=REF(P,2024);P2025:=REF(P,2025);P2026:=REF(P,2026);P2027:=REF(P,2027);P2028:=REF(P,2028);P2029:=REF(P,2029);P2030:=REF(P,2030);P2031:=REF(P,2031);P2032:=REF(P,2032);P2033:=REF(P,2033);P2034:=REF(P,2034);P2035:=REF(P,2035);P2036:=REF(P,2036);P2037:=REF(P,2037);P2038:=REF(P,2038);P2039:=REF(P,2039);P2040:=REF(P,2040);P2041:=REF(P,2041);P2042:=REF(P,2042);P2043:=REF(P,2043);P2044:=REF(P,2044);P2045:=REF(P,2045);P2046:=REF(P,2046);P2047:=REF(P,2047);P2048:=REF(P,2048);P2049:=REF(P,2049);P2050:=REF(P,2050);P2051:=REF(P,2051);P2052:=REF(P,2052);P2053:=REF(P,2053);P2054:=REF(P,2054);P2055:=REF(P,2055);P2056:=REF(P,2056);P2057:=REF(P,2057);P2058:=REF(P,2058);P2059:=REF(P,2059);P2060:=REF(P,2060);P2061:=REF(P,2061);P2062:=REF(P,2062);P2063:=REF(P,2063);P2064:=REF(P,2064);P2065:=REF(P,2065);P2066:=REF(P,2066);P2067:=REF(P,2067);P2068:=REF(P,2068);P2069:=REF(P,2069);P2070:=REF(P,2070);P2071:=REF(P,2071);P2072:=REF(P,2072);P2073:=REF(P,2073);P2074:=REF(P,2074);P2075:=REF(P,2075);P2076:=REF(P,2076);P2077:=REF(P,2077);P2078:=REF(P,2078);P2079:=REF(P,2079);P2080:=REF(P,2080);P2081:=REF(P,2081);P2082:=REF(P,2082);P2083:=REF(P,2083);P2084:=REF(P,2084);P2085:=REF(P,2085);P2086:=REF(P,2086);P2087:=REF(P,2087);P2088:=REF(P,2088);P2089:=REF(P,2089);P2090:=REF(P,2090);P2091:=REF(P,2091);P2092:=REF(P,2092);P2093:=REF(P,2093);P2094:=REF(P,2094);P2095:=REF(P,2095);P2096:=REF(P,2096);P2097:=REF(P,2097);P2098:=REF(P,2098);P2099:=REF(P,2099);P2100:=REF(P,2100);P2101:=REF(P,2101);P2102:=REF(P,2102);P2103:=REF(P,2103);P2104:=REF(P,2104);P2105:=REF(P,2105);P2106:=REF(P,2106);P2107:=REF(P,2107);P2108:=REF(P,2108);P2109:=REF(P,2109);P2110:=REF(P,2110);P2111:=REF(P,2111);P2112:=REF(P,2112);P2113:=REF(P,2113);P2114:=REF(P,2114);P2115:=REF(P,2115);P2116:=REF(P,2116);P2117:=REF(P,2117);P2118:=REF(P,2118);P2119:=REF(P,2119);P2120:=REF(P,2120);P2121:=REF(P,2121);P2122:=REF(P,2122);P2123:=REF(P,2123);P2124:=REF(P,2124);P2125:=REF(P,2125);P2126:=REF(P,2126);P2127:=REF(P,2127);P2128:=REF(P,2128);P2129:=REF(P,2129);P2130:=REF(P,2130);P2131:=REF(P,2131);P2132:=REF(P,2132);P2133:=REF(P,2133);P2134:=REF(P,2134);P2135:=REF(P,2135);P2136:=REF(P,2136);P2137:=REF(P,2137);P2138:=REF(P,2138);P2139:=REF(P,2139);P2140:=REF(P,2140);P2141:=REF(P,2141);P2142:=REF(P,2142);P2143:=REF(P,2143);P2144:=REF(P,2144);P2145:=REF(P,2145);P2146:=REF(P,2146);P2147:=REF(P,2147);P2148:=REF(P,2148);P2149:=REF(P,2149);P2150:=REF(P,2150);P2151:=REF(P,2151);P2152:=REF(P,2152);P2153:=REF(P,2153);P2154:=REF(P,2154);P2155:=REF(P,2155);P2156:=REF(P,2156);P2157:=REF(P,2157);P2158:=REF(P,2158);P2159:=REF(P,2159);P2160:=REF(P,2160);P2161:=REF(P,2161);P2162:=REF(P,2162);P2163:=REF(P,2163);P2164:=REF(P,2164);P2165:=REF(P,2165);P2166:=REF(P,2166);P2167:=REF(P,2167);P2168:=REF(P,2168);P2169:=REF(P,2169);P2170:=REF(P,2170);P2171:=REF(P,2171);P2172:=REF(P,2172);P2173:=REF(P,2173);P2174:=REF(P,2174);P2175:=REF(P,2175);P2176:=REF(P,2176);P2177:=REF(P,2177);P2178:=REF(P,2178);P2179:=REF(P,2179);P2180:=REF(P,2180);P2181:=REF(P,2181);P2182:=REF(P,2182);P2183:=REF(P,2183);P2184:=REF(P,2184);P2185:=REF(P,2185);P2186:=REF(P,2186);P2187:=REF(P,2187);P2188:=REF(P,2188);P2189:=REF(P,2189);P2190:=REF(P,2190);P2191:=REF(P,2191);P2192:=REF(P,2192);P2193:=REF(P,2193);P2194:=REF(P,2194);P2195:=REF(P,2195);P2196:=REF(P,2196);P2197:=REF(P,2197);P2198:=REF(P,2198);P2199:=REF(P,2199);P2200:=REF(P,2200);P2201:=REF(P,2201);P2202:=REF(P,2202);P2203:=REF(P,2203);P2204:=REF(P,2204);P2205:=REF(P,2205);P2206:=REF(P,2206);P2207:=REF(P,2207);P2208:=REF(P,2208);P2209:=REF(P,2209);P2210:=REF(P,2210);P2211:=REF(P,2211);P2212:=REF(P,2212);P2213:=REF(P,2213);P2214:=REF(P,2214);P2215:=REF(P,2215);P2216:=REF(P,2216);P2217:=REF(P,2217);P2218:=REF(P,2218);P2219:=REF(P,2219);P2220:=REF(P,2220);P22