New computer program TecD for tectonomagmatic discrimination from discriminant function diagrams for basic and ultrabasic magmas and its application to ancient rocks

espanolDebido a falta de software adecuado, se ha creado un nuevo programa informatico TecD (Discriminacion Tectonomagmatica) en Visual Basic para usar cuatro conjuntos de nuevos diagramas basados en funciones discriminantes que han sido publicados entre 2004 y 2011. Este programa bilingue (en ingles y espanol) evalua los datos geoquimicos de rocas igneas en 20 diagramas multidimensionales diferentes (4 conjuntos de 5 diagramas cada uno), cuenta automaticamente el numero de muestras graficadas en diferentes campos tectonicos, calcula las tasas de exito (%) para un area dada o para un conjunto de muestras de rocas, proporciona diagramas vectoriales escalables que pueden ser abiertos y modificados en muchos paquetes comerciales y presenta una sintesis de esta aplicacion en un reporte final. Se presentan tres ejemplos para ilustrar el uso de TecD. Se infiere el ambiente de islas oceanicas para rocas basicas de las Islas Faroe con la edad de ~56 Ma, de dorsal o cresta mid-oceanica para el cinturon arcaico de Abitibi (Canada) de ~2700 Ma y un ambiente de arco para la cuenca de Mallina (Australia) de ~2950 Ma. Tambien se discuten brevemente algunos criterios adicionales para la interpretacion de estos diagramas. EnglishDue to the unavailability of suitable software, a new computer program TecD (Tectonomagmatic Discrimination) was written in Visual Basic for using four sets of new discriminant function based diagrams published during 2004-2011. This bilingual (both in English and Spanish) program evaluates igneous rock geochemistry data in 20 different multi-dimensional diagrams (4 sets of 5 diagrams each), automatically counts the number of samples plotting in different tectonic fields, computes success rates (%) for a given area or set of rock samples, provides scalable vector diagrams that can be opened and modified in different commercial software, and presents a synthesis of this application in a final report. Three examples are presented to highlight the use of TecD. Ocean island setting is inferred for ~56 Ma basic rocks from Faroe Islands (Atlantic Ocean), mid-ocean ridge for ~2700 Ma Archean Abitibi greenstone belt (Canada), and arc setting for ~2950 Ma Mallina basin (Australia). Additional criteria for the interpretation of these diagrams are also briefly discussed.