Basket Trading Juntado em junho de 2010 Status: Membro 1.443 Posts Eu tenho negociado por alguns anos e pensei que vou compartilhar algumas das minhas idéias. (Todo o crédito ao comerciante 101) Eu sou um comerciante de cesta, o que significa que troco qualquer coisa até 14 pares por vez. Se 1 par se move, é inevelvel que pelo menos 10 pares também estão subindo. Leia T101 thread para mais informações. A cesta evoluiu para um gráfico off-line que significa que você pode olhar para os 14 pares em um único gráfico off-line. (A soma de) Ou 8 pares, como eu prefiro trocar. Estou tendo enorme sucesso com este método em 8 pares (Live) A maioria das pessoas diz que segue o GBPJPY, mas tudo o que eu sigo é o EURUSD com ótimos resultados. Você pode selecionar 2 pares, 3 pares ou o que faz com que você fique gostoso. LEIA A PÁGINA 2 PARA VER COMO EU ESTOU ACTUALMENTE TRADING ESTE SISTEMA. O INDICADOR DESLIGADO PODE SER ENCONTRADO 2 POSTA DOWN. Juntado em junho de 2010 Status: Membro 1,443 Posts Abrir 4 gráficos GBPJPY. M5, M15, M30 e H1. (Usamos o GBPJPY, pois são um dos pares de movimentos mais rápidos e, portanto, atualiza os gráficos Offline mais rapidamente) Coloque o T101Indi. Em todos os 4 gráficos. Você obterá um quot verde T101, M5-Runningquot no lado inferior direito da tela. Deixe as configurações como está. O quotbasketquot é configurado para 8 pares por padrão. Os pares representados são: GBPUSD, EURUSD, AUDUSD, NZDUSD, GBPJPY, EURJPY, AUDJPY amp NZDJPY. Selecione Arquivo gt Abrir Offline e abra o T101 M5, M15, M30 e H1. N. B. Se você desligar o seu PC e reiniciá-lo mais tarde, você terá algumas velas perdidas, não entre em pânico, apenas recarregue o T101Indi. E então ele atualizará o gráfico off-line. Carregue o StochCandlesDon Indi nos quatro gráficos Offline, amplie o SidusV3 Indi no gráfico H1. Também deixe as configurações nesses Indis como está. (Você pode colocar qualquer indicador nos gráficos off-line) Se o Trend Lines se cruzar no H1, verifique se o M5 está de acordo e que o EURUSD H1 também está se movendo na mesma direção. Anexei os Indicadores, bem como o TradeHedgeBuy-8Pair e o TradeHedgeSell8Pair, que são os scripts usados para abrir os negócios de 8 pares. Eu uso o script EmergencyClose All para fechar meus negócios. Por favor, pratique em Demo primeiro. Basket Trading Juntou-se a Mar 2012 Status: Membro 1,213 Posts oi gvc, obrigado por compartilhar seu trabalho árduo e desenvolver a técnica do trader101. Eu também estou aprendendo a formar formas de trader101 e agora também de vocês, inscreva-se no seu formulário. Eu achei que esses indicadores são bons, mas eu não sou um codificador, então, quando você estiver livre, adicione algumas funções nele. ------ solicitação para codificadores mql4. Por favor, adicione o alerta por e-mail BasketIndicator. mq4. Ative o alerta com o som .. quando a linha vermelha cruza a linha azul ou a linha azul atravessam a linha vermelha. BuySellBasketMomentum. mq4 BuySellBasketTotalv2.mq4 email alert .. pop up alert with sound .. quando todas as linhas vermelhas cruzam linhas azuis ou todas as linhas azuis cruzam linhas vermelhas. O comércio mais lucrativo aconteceu durante esta cruz (mas segue a tendência semanal ou diária) mais um pedido, atualize-o para o mql5. Breve ou mais tarde, todos nós precisamos disso ... graças a todas essas pessoas gentis que se ajudam uns aos outros e, juntos, o desenvolvem. ---- Inscrito em setembro de 2010 Status: Membro 82 Posts Prezado Master Gvc: eu tento modificar T101 Ortest 8Pairs mudar para 28 pares. Eu faço isso pode me deixar saber qual é o par de moedas Necessidade do mercado (esta é minha opinião, ainda não tente porque não é possível modificar o indicador de 8 pares para 28 pares. 14 pares Comprar 14 pares de Vendas), isso significa que quotStrong Buy quot e Jpy combinam todos Concentrado no topo A moeda Jpy é fraca. Eu modifico 2 dias arleady e minha cabeça vai explodir ainda não pode mudar para 28 pares. Espero que o Mestre Gvc e qualquer amigo possam ajudar ou me dizer como fazer, por favor. Soria meu Engilish quebrado. Eu anexo indicador arleady modifique 28 pares ------------------------------------------- -------------------------- Copyright 2008, Orest ForexFactory ------------------- -------------------------------------------------- Propriedade copyright quotCopyright 2008, Orest ForexFactoryquot propriedade link quotquot propriedade indicatorchartwindow define pair. count 28 external string Buycurrencypairs quot ----- Lista de Compra de pares de moedas ----- quot external string Buypair1 quotAUDJPYquot cadeia externa Buypair2 quotNZDJPYquot external string Buypair3 quotCADJPYquot extern String Buypair4 quotCHFJPYquot string externa Buypair5 quotUSDJPYquot cadeia externa Buypair6 quotGBPJPYquot string externa Buypair7 quotEURJPYquot cadeia externa Buypair8 quotAUDUSDquot cadeia externa Buypair9 quotNZDUSDquot cadeia externa Buypair10 quotGBPUSDquot cadeia externa Buypair11 quotEURUSDquot cadeia externa Buypair12 quotGBPCADquot cadeia externa Buypair13 quotGBPAUDquot cadeia externa Buypair14 quotGBPNZDquot extern stri Ng Sellcurrencypairs quot ----- Lista de Vender pares de moedas ----- quot external string Sellpair1 quotAUDCHFquot string externa Sellpair2 quotNZDCHFquot strings externos Sellpair3 quotCADCHFquot strings externos Sellpair4 quotGBPCHFquot string externa Sellpair5 quotEURCHFquot string externa Sellpair6 quotEURAUDquot strings externos Sellpair7 quotEURNZDquot external string Sellpair8 QuotEURCADquot string externa Sellpair9 quotEURGBPquot string externa Sellpair10 quotUSDCHFquot string externa Sellpair11 quotUSDCADquot string externa Sellpair12 quotAUDCADquot string externa Sellpair13 quotAUDNZDquot strone externo Sellpair14 quotNZDCADquot duplo AUDJPY, NZDJPY, CADJPY, CHFJPY, USDJPY, GBPJPY, EURJPY, AUDUSD, NZDUSD, GBPUSD, EURUSD, GBPCAD, GBPAUD, GBPNZD duplo AUDCHF, NZDCHF, CADCHF, GBPCHF, EURCHF, EURAUD, EURNZD, EURCAD, EURGBP, USDCHF, USDCAD, AUDCAD, AUDNZD, NZDCAD int azul, vermelho duplo AUDJPYnow, NZDJPYnow, CADJPYnow, CHFJPYnow, USDJPYnow, GBPJPYnow, EURJPYnow, AUDUSDnow, NZDUSDnow, GBPUSDnow, EURUSDno W, GBPCADnow, GBPAUDnow, GBPNZDnow double AUDCHFnow, NZDCHFnow, CADCHFnow, GBPCHFnow, EURCHFnow, EURAnow agora, EURNZNnow, EURCADnow, EURBnow, EURHNOW, USDCADnow, AUDCADnow, AUDNZDnow, NZDCADnow double AUDJPYpips, NZDJPYpips, CADJPYpips, CHFJPYpips, USDJPYpips, GBPJPYpips, EURJPYpips, AUDUSDpips, NZDUSDpips, GBPUSDpips, EURUSDpips, GBPCADpips, GBPAUDpips, GBPNZDpips AUDCHFpips duplos, NZDCHFpips, CADCHFpips, GBPCHFpips, EURCHFpips, EURAUDpips, EURNZDpips, EURCADpips, EURGBPpips, USDCHFpips, USDCADpips, AUDCADpips, AUDNZDpips, NZDCADpips corda abreviado corda PairsNames1pair. count corda wnd int PairsNames2pair. count string PairsNames3pair. count string PairsNames4pair. count string PairsNames5pair. count string PairsNames6pair. count string PairsNames7pair. count string PairsNames8pair. count string PairsNames9pair. count string PairsNames10pair. count string PairsNames11pair. count string PairsNames12pair. count string PairsNames13pair. count string PairsNames14pair. Cadeia de contagem PairsNames15pair. count string PairsNames16pair. count string PairsNames17pair. count string PairsNames18pair. count string PairsNames19pair. count string PairsNames20pair. count string PairsNames21pair. count string PairsNames22pair. count string PairsNames23pair. count string PairsNames24pair. count string PairsNames25pair. count string PairsNames26pair. count string PairsNames27pair. count string PairsNames28pair. Count int init () shortnamequotT101v.1.12OrestForexFactory quot IndicatorShortName (shortname) return (0) int deinit () deleteobjects (1) deleteobjects (2) deleteobjects (3) deleteobjects (4) deleteobjects (5) deleteobjects (6) deleteobjects (7) Deleteobjects (8) deleteobjects (9) deleteobjects (10) deleteobjects (11) deleteobjects (12) deleteobjects (13) deleteobjects (14) deleteobjects (15) deleteobjects (16) deleteobjects (17) deleteobjects (18) deleteobjects (19) deleteobjects ( 20) deleteobjects (21) deleteobjects (22) deleteobjects (23) deleteobjects (24) deleteobjects (25) deleteobjects (26) deleteobjects (27) deleteobjects (28) return (0) Int start () int contortedbars IndicatorCounted () if (contadobars lt 0) return (-1) ---- a última barra contada será contada se (contadosbars gt 0) contortedbars-- runstatisticslongs (1) runstatisticsshorts (1) drawobjects (1 PairsNames1) runstatisticslongs (2) runstatisticsshorts (2) drawobjects (2, PairsNames2) runstatisticslongs (3) runstatisticsshorts (3) drawobjects (3, PairsNames3) runstatisticslongs (4) runstatisticsshorts (4) drawobjects (4, PairsNames4) return (0) void runstatisticslongs (int weekback) boleano IAbra falso int tf0 int barsback 0 AUDJPY 0 NZDJPY0 CADJPY0 CHFJPY0 USDJPY0 GBPJPY0 EURJPY0 AUDUSD0 NZDUSD0 GBPUSD0 EURUSD0 GBPCAD0 GBPAUD0 GBPNZD0 AUDJPYnow 0 NZDJPYnow 0 CADJPYnow0 CHFJPYnow0 USDJPYnow0 GBPJPYnow0 EURJPYnow0 AUDUSDnow0 NZDUSDnow0 GBPUSDnow0 EURUSDnow0 GBPCADnow0 GBPAUDnow0 GBPNZDnow0 AUDJPYpips 0 NZDJPYpips0 CADJPYpips 0 CHFJPYpips0 USDJPYpips0 GBPJPYpips0 EURJPipips0 AUDUSDpips0 NZDUSDpips0 GBPUSDpips0 EURUSDpips0 GBPCADpips0 GBPAUDpips0 GBPNZDpips0 se (weekback1) this w Eek tf PERIODW1 barras de barras 0 iOpen true else if (weekback2) este dia tf PERIODD1 barras de trás 0 iOpen true else if (weekback3) há 4 horas tf PERIODM1 barsback 240 iOpen true else if (weekback4) horas atrás tf PERIODM1 barsback 60 iOpen true AUDJPY iOpen ( Buypair1, tf, barsback) AUDJPYnow MarketInfo (Buypair1, MODEASK) AUDJPYpips (AUDJPYnow-AUDJPY) dPoint (Buypair1) NZDJPY iOpen (Buypair2, tf, barsback) NZDJPYnow MarketInfo (Buypair2, MODEASK) NZDJPYpips (NZDJPYnow-NZDJPY) dPoint (Buypair2) CADJPY IOpen (Buypair3, tf, barsback) CADJPYnow MarketInfo (Buypair3, MODEASK) CADJPYpips (CADJPYnow-CADJPY) dPoint (Buypair3) CHFJPY iOpen (Buypair4, tf, barsback) CHFJPYnow MarketInfo (Buypair4, MODEASK) CHFJPYpips (CHFJPYnow-CHFJPY) dPoint (Buypair4 ) USDJPY iOpen (Buypair5, tf, barsback) USDJPYnow MarketInfo (Buypair5, MODEASK) USDJPYpips (USDJPYnow-USDJPY) dPoint (Buypair5) GBPJPY iOpen (Buypair6, tf, barsback) GBPJPYnow MarketInfo (Buypair6, MODEASK) GBPJPYpips (GBPJPYnow-GBPJPY) dPoint (Buypair6) EURJPY iOpen (Buypair7, tf, barsback) EURJPYnow MarketInfo (Buypair7, MODEASK) EURJPYpips (EURJPYnow-EURJPY) dPoint (Buypair7) AUDUSD iOpen (Buypair8, tf, barsback) AUDUSDnow MarketInfo (Buypair8, MODEASK) AUDUSDpips (AUDUSDnow-AUDUSD) dPoint ( Buypair8) NZDUSD iOpen (Buypair9, tf, barsback) NZDUSDnow MarketInfo (Buypair9, MODEASK) NZDUSDpips (NZDUSDnow-NZDUSD) dPoint (Buypair9) GBPUSD iOpen (Buypair10, tf, barsback) GBPUSDnow MarketInfo (Buypair10, MODEASK) GBPUSDpips (GBPUSDnow-GBPUSD) DPE (Buypair10) EURUSD iOpen (Buypair11, tf, barsback) EURUSDnow MarketInfo (Buypair11, MODEASK) EURUSDpips (EURUSDnow-EURUSD) dPoint (Buypair11) GBPCAD iOpen (Buypair12, tf, barsback) GBPCADnow MarketInfo (Buypair12, MODEASK) GBPCADipips (GBPCADnow - GBPCAD) dPoint (Buypair12) GBPAUD iOpen (Buypair13, tf, barsback) GBPAUDnow MarketInfo (Buypair13, MODEASK) GBPAUDpips (GBPAUDnow-GBPAUD) dPoint (Buypair13) GBPNZD iOpen (Buypair14, tf, barsback) GBPNZDnow MarketInfo (Buypair14, MODEASK) GBPNZDpips ( GBPNZDnow-GBPNZD) dP onto (Buypair14) retornar runstatisticsshorts void (int weekback) bool IAbra falsa int tf0 int barsback 0 AUDCHF0 NZDCHF0 CADCHF0 GBPCHF0 EURCHF0 EURAUD0 EURNZD0 EURCAD0 EURGBP0 USDCHF0 USDCAD0 AUDCAD0 AUDNZD0 NZDCAD0 AUDCHFnow0NZDCHFnow0CADCHFnow0GBPCHFnow0EURCHFnow0EURAUDnow0EURNZDnow0EURCADnow0EURGBPnow0USDCHFnow0USDCADnow0AUDCADnow0AUDNZDnow0NZDCADnow0 AUDCHFpips0 NZDCHFpips0 CADCHFpips0 GBPCHFpips0 EURCHFpips0 EURAUDpips0 EURNZDpips0 EURCADpips0 EURGBPpips0 USDCHFpips0 USDCADpips0 AUDCADpips0 AUDNZDpips0 NZDCADpips0 if ( Weekback1) esta semana tf PERIODW1 barsback 0 iOpen true else if (weekback2) neste dia tf PERIODD1 barsback 0 iOpen true else if (weekback3) há 4 horas tf PERIODM1 barsback 240 iOpen true else if (weekback4) hour ago tf PERIODM1 barsback 60 iOpen true AUDCHF iOpen (Sellpair1, tf, barsback) AUDCHFnow MarketInfo (Sellpair1, MODEBID) AUDCHFpips (AUDCHF-AUDCHFnow) dPoint (Sellpair1) NZDCHF iOpen (Sellpair2, tf, barsback) NZDCHFnow MarketInfo (Sellpair2, MODEBID) NZDCHFpips (NZDCHF-NZDCHFnow) dPoint (Sellpair2) CADCHF iOpen (Sellpair3, tf, barsback) CADCHFnow MarketInfo (Sellpair3, MODEBID) CADCHFpips (CADCHF-CADCHFnow) dPoint (Sellpair3) GBPCHF iOpen (Sellpair4, tf, barsback) GBPCHFnow MarketInfo ( Sellpair4, MODEBID) GBPCHFpips (GBPCHF-GBPCHFnow) dPoint (Sellpair4) EURCHF iOpen (Sellpair5, tf, barsback) EURCHFnow MarketInfo (Sellpair5, MODEBID) EURCHFpips (EURCHF-EURCHFnow) dPoint (Sellpair5) EURAUD iOpen (Sellpair6, tf, barsback) EURAUDnow MarketInfo (Sellpair6, MODEBID) EURAUDpips (EURAUD-EURAudnow) dPoint (Sellpair6) EURNZD iOpen (Sellpair7, tf, barsback) EURNZDnow MarketInfo (Sellpair7, MODEBID) EURNZDpips (EURNZD-EURNZDnow) dPoint (Sellpair7) EURCAD iOpen (Sellpair8, tf, barsback ) EURCADnow MarketInfo (Sellpair8, MODEBID) EURCADpips (EURCAD-EURCADnow) dPoint (Sellpair8) EURGBP iOpen (Sellpair9, tf, barsback) EURGBPnow MarketInfo (Sellpair9, MODEBID) EURGBPpips (EURGBP-EURGBPnow) dPoint (Sellpair9) USDCHF iOpen (Sellpair10, tf , Resgate) USDCHF Agora, o MarketInfo (Sellpair10, MODEBID) USDCHFpips (USDCHF-USDCHFnow) dPoint (Sellpair10) USDCAD iOpen (Sellpair11, tf, barsback) USDCADnow MarketInfo (Sellpair11, MODEBID) USDCADpips (USDCAD-USDCADnow) dPoint (Sellpair11) AUDCAD iOpen (Sellpair12, tf, Resgate de barras) AUDCADnow MarketInfo (Sellpair12, MODEBID) AUDCADpips (AUDCAD-AUDCADnow) dPoint (Sellpair12) AUDNZD iOpen (Sellpair13, tf, barsback) AUDNZDnow MarketInfo (Sellpair13, MODEBID) AUDNZDpips (AUDNZD-AUDNZDnow) dPoint (Sellpair13) NZDCAD iOpen (Sellpair14, Tf, barras de barras) NZDCADnow MarketInfo (Sellpair14, MODEBID) NZDCADpips (NZDCAD-NZDCADnow) dPoint (Sellpair14) return void drawobjects (int weekback, stringamp PairsNames) int xcoord string locdate cor PairsColorpair. count double PLArraypair. count bool ShowDirectionspair. count if (StringLen (PairsNames0) gt0) para (int m0mltpair. countm) PairsSearchm PairsNamesm PLArray0AUDJPYpips PLArray1NZDJPYpips PLArray2CADJPYpips PLArray3CHFJPYpips PLArray4USDJPYpips PLArray5GBPJPYpips PLArray6EURJPYpips P LArray7AUDUSDpips PLArray8NZDUSDpips PLArray9GBPUSDpips PLArray10EURUSDpips PLArray11GBPCADpips PLArray12GBPAUDpips PLArray13GBPNZDpips PLArray14AUDCHFpips PLArray15NZDCHFpips PLArray16CADCHFpips PLArray17GBPCHFpips PLArray18EURCHFpips PLArray19EURAUDpips PLArray20EURNZDpips PLArray21EURCADpips PLArray22EURGBPpips PLArray23USDCHFpips PLArray24USDCADpips PLArray25AUDCADpips PLArray26AUDNZDpips PLArray27NZDCADpips PairsNames0Buypair1 PairsNames1Buypair2 PairsNames2Buypair3 PairsNames3Buypair4 PairsNames4Buypair5 PairsNames5Buypair6 PairsNames6Buypair7 PairsNames7Buypair8 PairsNames8Buypair9 PairsNames9Buypair10 PairsNames10Buypair11 PairsNames11Buypair12 PairsNames12Buypair13 PairsNames13Buypair14 PairsNames14Sellpair1 PairsNames15Sellpair2 PairsNames16Sellpair3 PairsNames17Sellpair4 PairsNames18Sellpair5 PairsNames19Sellpair6 PairsNames20Sellpair7 PairsNames21Sellpair8 PairsNames22Sellpair9 PairsNames23Sellpair10 PairsNames24Sellpair11 PairsNames25Sellpair12 PairsNames26Sellpair13 Pairs Names27Sellpair14 PairsColor0 Lime PairsColor1 Lime PairsColor2 Lime PairsColor3 Lime PairsColor4 Lime PairsColor5 Lime PairsColor6 Lime PairsColor7 Lime PairsColor8 Lime PairsColor9 Lime PairsColor10 Lime PairsColor11 Lime PairsColor12 Lime PairsColor13 Lime PairsColor14 Red PairsColor15 Red PairsColor16 Red PairsColor17 Red PairsColor18 Red PairsColor19 Red PairsColor20 Red PairsColor21 Red PairsColor22 Red PairsColor23 Red PairsColor24 Red PairsColor25 Red PairsColor26 Red PairsColor27 Red ArraySort (PLArray, WHOLEARRAY, 0, MODEDESCEND) - não funciona aqui função de classificação personalizada int plarrsize ArraySize (PLArray) string tempvar duplo temporaltr cor tempcolor boc tempdirection para (int i0i lt plarrsizei) Segure o primeiro elemento para (Int ji1jltplarrsizej) Segure o próximo elemento do primeiro elemento se (PLArray lt PLArrayj) comparando primeiro e próximo elemento tempvar PLArrayj PLArrayj PLArray PLArray tempvar tempstr PairsNamesj PairsNamesj PairsNames PairsNam Es tempstr tempcolor PairsColorj PairsColorj PairsColor PairsColor tempcolor para (i0iltpair. counti) se (PairsColor Lime) PairsDisplay quotquotPairsNames Comprar azul azul PLArray se (PairsColor Red) PairsDisplay quotquotPairsNames Vender vermelho vermelho PLArray Print (PairsDisplay, quot. Quot, i, quot, PairsColor) Imprimir (vermelho, quot. Quot, azul) se (ObjectFind (weekbackquotsigtitquot) -1) ObjectCreate (weekbackquotsigtitquot, OBJLABEL, companheiro, 0, 0) ObjectSet (weekbackquotsigtitquot, OBJPROPCOLOR, Magenta) ObjectSet (weekbackquotsigtitquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotsigtitquot, OBJPROPYDISTANCE, 15) ObjectSetText (weekbackquotsigtitquot, locdate, 10, quotCourier Newquot, Branco) int ycoord 40 se (StringLen (PairsDisplay0) gt0) StringLen (StringTrimLeft (StringSubstr (PairsDisplay0,4) )) GT0 se (ObjectFind (quotWquotweekbackquot00quot) -1) ObjectCreate (quotWquotweekbackquot00quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot00quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot00quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot00quot, OBJPROPYDISTANCE, ycoord) ObjectSetText ( QuotWquotweekbackquot00quot, PairsDisplay0quot quotDoubleToStr (PLArray0,0), 9, QuoLucida Console Boldquot, PairsColor0) ycoord ycoord 20 se (StringLen (PairsDisplay1) GT0) se (ObjectFind (quotWquotweekbackquot01quot) -1) ObjectCreate (quotWquotweekbackquot01quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot01quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot01quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot01quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot01quot, PairsDisplay1quot quotDoubleToStr (PLArray1,0), 9, QuoLucida Console Boldquot, PairsColor1) ycoord ycoord 20 se (StringLen (PairsDisplay2) gt0) se (ObjectFind (quotWquotweekbackquot02quot) -1) ObjectCreate (quotWquotweekbackquot02quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot02quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot02quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot02quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot02quot, PairsDisplay2quot quotDoubleToStr (PLArray2,0), 9, quotLucida Console Boldquot, PairsColor2) ycoord ycoord 20 se (StringLen (PairsDispla y3) GT0) se (ObjectFind (quotWquotweekbackquot03quot) -1) ObjectCreate (quotWquotweekbackquot03quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot03quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot03quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot03quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (QuotWquotweekbackot03quot, PairsDisplay3quot quotDoubleToStr (PLArray3,0), 9, QuoLucida Console Boldquot, PairsColor3) ycoord ycoord 20 se (ObjectFind (weekbackquotlinmedquot) -1) ObjectCreate (weekbackquotlinmedquot, OBJLABEL, companheiro, 0, 0) ObjectSet (weekbackquotlinmedquot, OBJPROPCOLOR, Branco ) ObjectSet (weekbackquotlinmedquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotlinmedquot, OBJPROPYDISTANCE, ycoord-10) ObjectSetText (weekbackquotlinmedquot, quot -------------- quot, 10, QuotCourier Newquot, Amarelo) se (StringLen (PairsDisplay4) gt0) se (ObjectFind (quotWquotweekbackquot04quot) -1) ObjectCreate (quotWquotweekbackquot04quot, OBJLABEL, companheiro, 0, 0) Obj ectSet (quotWquotweekbackquot04quot, OBJPROPCOLOR, Vermelho) ObjectSet (quotWquotweekbackquot04quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot04quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot04quot, PairsDisplay4quot quotDoubleToStr (PLArray4,0), 9, quotLucida Console Boldquot, PairsColor4) if (ShowDirections7) drawrating ( 7, weekback, PairsSearch, PairsDisplay7, xcoord, ycoord, companheiro) ycoord ycoord 20 se (StringLen (PairsDisplay5) gt0) se (ObjectFind (quotWquotweekbackquot05quot) -1) ObjectCreate (quotWquotweekbackquot05quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot05quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot05quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot05quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot05quot, PairsDisplay5quot quotDoubleToStr (PLArray5,0), 9, quotLucida Console Boldquot, PairsColor5) ycoord ycoord 20 se GT0 (StringLen (PairsDisplay6) ) If (ObjectFind (quotWeekbackbackquot 06quot) -1) ObjectCreate (quotWquotweekbackquot06quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot06quot, OBJPROPCOLOR, vermelho) ObjectSet (quotWquotweekbackquot06quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot06quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot06quot, PairsDisplay6quot quotDoubleToStr (PLArray6, 0), 9, quotLucida Console Boldquot, PairsColor6) ycoord ycoord 20 se (StringLen (PairsDisplay7) gt0) se (ObjectFind (quotWquotweekback4) -1) ObjectCreate (quotWquotweekbackquot7quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot7quot, OBJPROPCOLOR, Vermelho ) ObjectSet (quotWquotweekbackquot7quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot7quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot7quot, PairsDisplay7quot quotDoubleToStr (PLArray7,0), 9, quotLucida consola Boldquot, PairsColor7) ycoord ycoord 20 se (StringLen (PairsDisplay8) GT0) se ( ObjectFind (quotWquotweekbackot08quot) -1) Obje ctCreate (quotWquotweekbackquot08quot, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackquot08quot, OBJPROPCOLOR, Vermelho) ObjectSet (quotWquotweekbackquot08quot, OBJPROPXDISTANCE, xCoord) ObjectSet (quotWquotweekbackquot08quot, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWquotweekbackquot08quot, PairsDisplay8quot quotDoubleToStr (PLArray8,0), 9, (ObjectSet (OBJPROPCOLOR, branco) ObjectSet (weekbackquotlinquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotlinquot, ObjectCetate), ObjectSet (Weekbackquotlinquot, OBJPROPCOLOR, White) ObjectSet (weekbackquotlinquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotlinquot) -1) ObjectCreate (weekbackquotlinquot, OBJLABEL, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotlinquot, quot -------------- quot, 10, quotCourier Newquot, Branco) ycoord ycoord20 se (ObjectFind (weekbackquotbtotquot) -1) ObjectCreate (weekbackquotbtotquot, OBJLABEL, companheiro , 0, 0) ObjectSet (weekbackquotbtotquot, OBJPROPCOLOR, Lime) ObjectSet (weekbackquotbtotquot, OBJPROPXDISTANCE, xcoord) ObjectSet (ObjectSetText da semana, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotbtotquot, DoubleToStr (azul, 0), 9, QuotCourier Newquot, SpringGreen) se (ObjectFind (weekbackquotstotquot) -1) ObjectCreate (weekbackquotstotquot, OBJLABEL, companheiro, 0, 0) ObjectSet (weekbackquotstotquot OBJPROPCOLOR, OrangeRed) ObjectSet (weekbackquotstotquot, OBJPROPXDISTANCE, xcoord 45) ObjectSet (weekbackquotstotquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquotstotchot, DoubleToStr (vermelho, 0), 9, quotCourier Newquot, OrangeRed) se (ObjectFind (weekbackquottotquot) -1) ObjectCreate (Weekbackquottotquot, OBJLABEL, companheiro, 0, 0) ObjectSet (weekbackquottotquot, OBJPROPCOLOR, Amarelo) ObjectSet (weekbackquottotquot, OBJPROPXDISTANCE, xcoord 80) ObjectSet (weekbackquottotquot, OBJPROPYDISTANCE, ycoord) ObjectSetText (weekbackquottotquot, quotT: quotDoubleToStr (redblue, 0), 9 , QuotCourier Newquot, Amarelo) ycoord ycoord 20 se (ObjectFind (weekbackquotsigquot) -1) ObjectCreate (weekbackquotsigquot, OBJLABEL, compan Iso, 0, 0) ObjectSet (weekbackquotsigquot, OBJPROPCOLOR, vermelho) ObjectSet (weekbackquotsigquot, OBJPROPXDISTANCE, xcoord) ObjectSet (weekbackquotsigquot, OBJPROPYDISTANCE, ycoord) string tendência quotNONEquot colour col White ObjectSetText (weekbackquotsigquot, trend, 12, QuoLucida Console Boldquot, col) WindowRedraw () void deleteobjects (int weekback) para (int m0mltpair. countm) if (ObjectFind (quotWAquotweekbackPairsNames1m) gt -1) ObjectDelete (quotWAquotweekbackPairsNames1m) if (ObjectFind (quotWquotweekbackPairsNames1m) gt -1) ObjectDelete (quotWquotweekbackPairsNames1m) if (ObjectFind (weekbackquotbtotquot) Gt -1) ObjectDelete (weekbackquotbtotquot) if (ObjectFind (weekbackquottotquot) gt -1) ObjectDelete (weekbackquottotquot) se (ObjectFind (weekbackquotstotquot) gt -1) ObjectDelete (weekbackquotstotquot) if (ObjectFind (weekbackquotlinquot) gt -1) ObjectDelete (weekbackquotlinquot) Se (ObjectFind (weekbackquotlinmedquot) gt -1) ObjectDelete (weekbackquotlinmedquot) if (ObjectFind (weekback) QuotWquotweekbackquot00quot) se (ObjectFind (quotWquotweekbackquot01quot) gt -1) ObjectDelete (quotWquotweekbackquot01quot) se (ObjectFind (quotWquotweekbackquot02quot) gt -1) ObjectDelete (quotWquotweekbackquot02quot) gt -1) ObjectDelete (quotWquotweekbackquot02quot) gt -1) ObjectDelete (quotWquotweekbackquot00quot) gt -1) ObjectDelete (quotWquotweekbackquot00quot) quotWquotweekbackquot02quot) se (ObjectFind (quotWquotweekbackquot03quot) gt -1) ObjectDelete (quotWquotweekbackquot03quot) se (ObjectFind (quotWquotweekbackquot04quot) gt -1) ObjectDelete (quotWquotweekbackquot04quot) se (ObjectFind (quotWquotweekbackquot05quot) gt -1) ObjectDelete (quotWquotweekbackquot05quot) se (ObjectFind (quotWquotweekbackquot06quot) Gt -1) ObjectDelete (quotWquotweekbackquot06quot) if (ObjectFind (quotWquotweekbackquot07quot) gt -1) ObjectDelete (quotWquotweekbackquot07quot) if (ObjectFind (quotWquotweekbackquot08quot) gt -1) ObjectDelete (quotWquotweekbackquot08quot) if (ObjectFind (quotWquotweekbackquot09quot) gt -1) ObjectDelete (quotWquotweekbackq uot09quot) se (ObjectFind (quotWquotweekbackquot10quot) gt -1) ObjectDelete (quotWquotweekbackquot10quot) se (ObjectFind (quotWquotweekbackquot11quot) gt -1) ObjectDelete (quotWquotweekbackquot11quot) se (ObjectFind (quotWquotweekbackquot12quot) gt -1) ObjectDelete (quotWquotweekbackquot12quot) se (ObjectFind (quotWquotweekbackquot13quot) Gt -1) ObjectDelete (quotWquotweekbackquot13quot) if (ObjectFind (quotWquotweekbackquot14quot) gt -1) ObjectDelete (quotWquotweekbackquot14quot) if (ObjectFind (quotWquotweekbackquot15quot) gt -1) ObjectDelete (quotWquotweekbackquot15quot) if (ObjectFind (quotWquotweekbackquot16quot) gt -1) ObjectDelete (quotWquotweekbackquot16quot) Se (ObjectFind (quotWquotweekbackquot17quot) gt -1) ObjectDelete (quotWquotweekbackquot17quot) if (ObjectFind (quotWquotweekbackquot18quot) gt -1) ObjectDelete (quotWquotweekbackquot18quot) if (ObjectFind (quotWquotweekbackquot19quot) gt -1) ObjectDelete (quotWquotweekbackquot19quot) if (ObjectFind (quotWquotweekbackquot2 0quot) gt -1) ObjectDelete (quotWquotweekbackquot20quot) if (ObjectFind (quotWquotweekbackquot20quot) gt -1) ObjectDelete (quotWquotweekbackquot21quot) if (ObjectFind (quotWquotweekbackquot22quot) gt -1) ObjectDelete (quotWquotweekbackquot22quot) if (ObjectFind (quotWquotweekbackquot23quot) gt -1) ObjectDelete ( quotWquotweekbackquot23quot) se (ObjectFind (quotWquotweekbackquot24quot) gt -1) ObjectDelete (quotWquotweekbackquot24quot) se (ObjectFind (quotWquotweekbackquot25quot) gt -1) ObjectDelete (quotWquotweekbackquot25quot) se (ObjectFind (quotWquotweekbackquot26quot) gt -1) ObjectDelete (quotWquotweekbackquot26quot) se (ObjectFind (quotWquotweekbackquot27quot) Gt -1) ObjectDelete (quotWquotweekbackquot27quot) se (ObjectFind (weekbackquotsigquot) gt -1) ObjectDelete (weekbackquotsigquot) double dPoint (string sym) double Point MarketInfo (sym, MODEPOINT) se (StringFind (sym, quotJPYquot) gt0) Ponto0.01 se (Ponto0) Ponto0.0001 retorno (Ponto) int ArraySearch (stringamp m, string e) para (Int i0 iltArraySize (m) i) if (me) return (i) return (-1) void drawrating (int iindex, int backback, stringamp PairsSearch, string pairdisplay, int xcoord, int ycoord, int companion) int resultado ArraySearch ( PairsSearch, pairdisplay) Imprimir (resultado) se (resultado-1 ampamp resulttiindex) se (ObjectFind (quotWeekbackpairdisplay) -1) ObjectDelete (quotWquotweekbackagerirdisplay) if (ObjectFind (quotWAquotweekbackagerirdplay) -1) ObjectDelete (quotWAquotweekbackpairdisplay) ObjectCreate (quotWquotweekbackpairdisplay, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWquotweekbackagerird, OBJPROPCOLOR, branco) ObjectSet (quotWeekbackpairdisplay, OBJPROPXDISTANCE, xcoord 95) 75 ObjectSet (quotWquotweekbackpairdisplay, OBJPROPYDISTANCE, ycoord) ObjectSetText (quotWeekbackpairdisplay, DoubleToStr (result1,0), 9, QuotCourier Newquot, Branco) ObjectCreate ( QuotWAquotweekbackagerirdisplay, OBJLABEL, companheiro, 0, 0) ObjectSet (quotWAquotweekbackpairdisplay, OBJPROPXDISTANCE, xcoord 110) 110 ObjectSet (qu OtWAquotweekbackscreen, OBJPROPYDISTANCE, ycoord) se (resultado gt iindex) subiu ObjectSetText (quotWAquotweekbackpairdisplay, CharToStr (241), 10, quotWingdingsquot, Lime) se if (result lt iindex) desceu ObjectSetText (quotWAquotweekbackagerirdplay, CharToStr (242), 10, quotWingdingsquot, Vermelho)
Comments
Post a Comment