@@ -2122,7 +2122,7 @@ export perplex_query_system
21222122
21232123 function perplex_common_name (name)
21242124 abbreviations = ("acm", "ak", "ab", "alm", "ames", "anl", "and", "andr", "any", "ank", "ann", "an", "anth", "fanth", "atg", "arag", "azr", "bdy", "mnbi", "bn", "apv", "cpv", "fpv", "mpv", "npv", "br", "cc", "fcar", "mcar", "cel", "fcel", "ccp", "afchl", "mnchl", "fctd", "mctd", "mnctd", "chr", "clin", "chum", "cz", "coe", "crd", "hcrd", "fcrd", "mncrd", "cor", "cv", "crst", "cumm", "daph", "deer", "diam", "dsp", "di", "dol", "east", "en", "ep", "fep", "esk", "fa", "ftr", "fper", "fs", "fo", "nagt", "ged", "geh", "geik", "gl", "fgl", "gth", "gph", "gr", "grun", "hlt", "hed", "hem", "herc", "heu", "abh", "ilm", "oilm", "iron", "jd", "kals", "kls", "kao", "ky", "larn", "lrn", "lmt", "law", "lc", "lime", "mft", "mag", "mt", "maj", "mal", "mang", "ma", "me", "merw", "mic", "mil", "mont", "mu", "cg", "cgh", "ne", "Ni", "bunsn", "osm1", "osm2", "fosm", "pa", "parg", "per", "phA", "phl", "naph", "ppv", "pre", "pswo", "pump", "pyr", "py", "pnt", "prl", "pxmn", "q", "rnk", "rhc", "rhod", "rieb", "frw", "mrw", "ru", "san", "spr4", "spr7", "fspr", "sid", "sill", "spss", "sph", "sp", "spu", "fst", "mst", "mnst", "stlb", "stv", "sud", "fsud", "syv", "ta", "fta", "teph", "ty", "tpz", "tr", "trd", "tro", "tats", "ts", "cats", "mgts", "usp", "vsv", "fwd", "mwd", "wrk", "wo", "wu", "Wu", "zrc", "zo", "CO2", "CO", "H2", "CH4", "O2", "H2O", "abL", "anL", "diL", "enL", "faL", "fliq", "foL", "h2oL", "hliq", "kspL", "mliq", "qL", "silL", "H+", "Cl-", "OH-", "Na+", "K+", "Ca++", "Mg++", "Fe++", "Al+++", "CO3", "AlOH3", "AlOH4-", "KOH", "HCL", "KCL", "NaCl", "CaCl2", "CaCl+", "MgCl2", "MgCl", "FeCl2", "aqSi", "Kf", "San", "San(TH)", "Bi(HGP)", "Bi(W)", "Bio(HP)", "Bio(TCC)", "Bio(WPH)", "Mpv(H)", "Pv", "Pv(fab)", "Pv(stx7)", "B", "C2/c(stx)", "Carb(M)", "Cc(AE)", "dis(EF)", "Do(AE)", "Do(HP)", "DoDo", "M(HP)", "oCcM(EF)", "oCcM(HP)", "Carp", "Carp(M)", "Carp(SGH)", "Chl(HP)", "Chl(LWV)", "Chl(W)", "Ctd(HP)", "Ctd(SGH)", "Ctd(W)", "Act(M)", "Amph(DHP)", "Amph(DPW)", "Ca-Amph(D)", "cAmph_I(DP)", "cAmph_I(G)", "cAmph(DP)", "cAmph(G)", "Cumm", "Gl", "GlTrTsMr", "GlTrTsPg", "Na-Amph(D)", "Tr", "Chum", "TiCh(PL)", "TiChdr(B)", "Augite(G)", "Cps(HGP)", "Cpx_I(HGP)", "Cpx(h)", "Cpx(HGP)", "Cpx(HP)", "Cpx(JH)", "Cpx(l)", "Cpx(m)", "Cpx(stx)", "Cpx(stx7)", "Cpx(stx8)", "Cpx(TH)", "Hpx(H)", "Omph(GHP)", "Omph(HP)", "Crd(HGP)", "Crd(W)", "hCrd", "Cor(H)", "Cpv(H)", "Ep(HP)", "Ep(HP11)", "CF(stx8)", "Cfer(H)", "Fper(H)", "Aq_solven0", "Aqfl(HGP)", "C-H-Fluid", "COH-Fluid", "COH-Fluid", "COH-Fluid+", "COHF", "F", "F(salt)", "GCOHF", "HO-Fluid", "HOS-Fluid", "Si-Fluid", "WADDAH", "CrGt", "Grt(JH)", "Gt(B)", "Gt(EWHP)", "Gt(GCT)", "Gt(HGP)", "Gt(HP)", "Gt(MPF)", "Gt(stx)", "Gt(stx8)", "Gt(TH)", "Gt(W)", "Gt(WPH)", "Gt(WPPH)", "Ygt(SP)", "ZrGt(KP)", "ZrGt(KP)", "CCO-vapor", "ideal_gas", "Si-vapor", "Aki", "Aki(fab)", "Aki(H)", "Aki(stx7)", "Aki(stx8)", "Eskol(C)", "IlGkPy", "IlHm(A)", "Ilm(DS6)", "Ilm(WPH)", "Ilm(WPH0)", "Gt(H)", "Maj", "casmelt", "FeCr(liq)", "FeS_liq", "FeSiC_liq", "LIQ(EF)", "LIQ(NK)", "Melt(A)", "Melt(B)", "melt(G)", "melt(HGP)", "melt(HGPH)", "melt(HP)", "Melt(JH)", "melt(SP)", "melt(TH)", "melt(W)", "MELTS(GS)", "mMELTS(G)", "pMELTS(G)", "Mnz(SP)", "Neph(FB)", "NAl(H)", "O(HGP)", "O(HKP)", "O(HP)", "O(HPK)", "O(JH)", "O(SG)", "O(stx)", "O(stx7)", "O(stx8)", "Ol(m)", "A", "Anth", "o-Amph", "oAmph(DP)", "CrOpx(HP)", "Opx(HGP)", "Opx(HP)", "Opx(JH)", "Opx(stx)", "Opx(stx8)", "Opx(TH)", "Opx(W)", "Osm(HP)", "Osm(HP11)", "Pl(h)", "Pl(JH)", "Pl(stx8)", "Ppv(og)", "Ppv(stx8)", "Pu", "Pu(M)", "Po(HP)", "Po(SE)", "hRg", "Ring", "Ring(H)", "Ring(stx)", "Ring(stx7)", "Ring(stx8)", "ZrRu", "Sa(WP)", "Sapp(HP)", "Sapp(KWP)", "Sapp(TP)", "Scap", "Atg(LE)", "Atg(PN)", "Liz(LE)", "CrSp", "GaHcSp", "MF", "Mt(W)", "MtUl(A)", "Sp_II(WPC)", "Sp(GS)", "Sp(HGP)", "Sp(HP)", "Sp(JH)", "Sp(JR)", "Sp(stx)", "Sp(stx7)", "Sp(stx8)", "Sp(TH)", "Sp(WPC)", "St(HP)", "St(W)", "Stlp", "Stlp(M)", "Sud", "Sud(Livi)", "Sud(M)", "T", "feldspar", "feldspar_B", "Fsp(C1)", "Fsp(HGP)", "lAb(HGP)", "Pl(I1,HP)", "Tour(V)", "hWd", "Wad", "Wad(H)", "Wad(stx)", "Wad(stx7)", "Wad(stx8)", "MaPa", "Mica(CF)", "Mica(CHA)", "Mica(CHA1)", "Mica(M)", "Mica(SGH)", "Mica(W)", "Mica+(CHA)", "Pheng(HP)", "Wus", "Wus(fab)", "Wus(stx7)",)
2125- common_names = ("acmite", "akermanite", "albite", "almandine", "amesite", "analcite", "andalusite", "andradite", "anhydrite", "ankerite", "annite", "anorthite", "anthophyllite", "anthophyllite-(Fe)", "antigorite", "aragonite", "azurite", "baddeleyite", "biotite-(Mn)", "bornite", "bridgmanite-(Al)", "bridgmanite-(Ca)", "bridgmanite-(Fe)", "bridgmanite", "bridgmanite-(Na)", "brucite", "calcite", "carpholite-(Fe)", "carpholite-(Mg)", "celadonite", "celadonite-(Fe)", "chalcopyrite", "chlorite-(Al-free)", "chlorite-(Mn)", "chloritoid-(Fe)", "chloritoid-(Mg)", "chloritoid-(Mn)", "chrysotile", "clinochlore", "clinohumite", "clinozoisite", "coesite", "cordierite", "cordierite-(OH)", "cordierite-(Fe)", "cordierite-(Mn)", "corundum", "covellite", "cristobalite", "cummingtonite", "daphnite", "deerite", "diamond", "diaspore", "diopside", "dolomite", "eastonite", "enstatite", "epidote", "epidote-(Fe)", "eskolaite", "fayalite", "ferroactinolite", "ferropericlase", "ferrosilite", "forsterite", "garnet-(Na)", "gedrite", "gehlenite", "geikielite", "glaucophane", "glaucophane-(Fe)", "goethite", "graphite", "grossular", "grunerite", "halite", "hedenbergite", "hematite", "hercynite", "heulandite", "highalbite", "ilmenite", "ilmenite", "iron", "jadeite", "kalsilite", "kalsilite", "kaolinite", "kyanite", "larnite", "larnite", "laumontite", "lawsonite", "leucite", "lime", "magnesioferrite", "magnesite", "magnetite", "majorite", "malachite", "manganosite", "margarite", "meionite", "merwinite", "microcline", "millerite", "monticellite", "muscovite", "nepheline", "nepheline", "nepheline", "nickel", "nickel oxide", "osumilite", "osumilite", "osumilite-(Fe)", "paragonite", "pargasite", "periclase", "phase A", "phlogopite", "phlogopite-(Na)", "post-perovskite", "prehnite", "pseudowollastonite", "pumpellyite", "pyrite", "pyrope", "pyrophanite", "pyrophyllite", "pyroxmangite", "quartz", "rankinite", "rhodochrosite", "rhodonite", "riebeckite", "ringwoodite-(Fe)", "ringwoodite-(Mg)", "rutile", "sanidine", "sapphirine", "sapphirine", "sapphirine-(Fe)", "siderite", "sillimanite", "spessartine", "sphene", "spinel", "spurrite", "staurolite-(Fe)", "staurolite-(Mg)", "staurolite-(Mn)", "stilbite", "stishovite", "sudoite", "sudoite-(Fe)", "sylvite", "talc", "talc-(Fe)", "tephroite", "tilleyite", "topaz", "tremolite", "tridymite", "troilite", "tschermak-talc", "tschermakite", "tschermakite-(Ca)", "tschermakite-(Mg)", "ulvospinel", "vesuvianite", "wadsleyite-(Fe)", "wadsleyite-(Mg)", "wairakite", "wollastonite", "wustite", "wustite", "zircon", "zoisite", "carbon dioxide", "carbon monoxide", "hydrogen", "methane", "oxygen", "water", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "H+(aq)", "Cl(aq)", "OH(aq)", "Na+(aq)", "K+(aq)", "Ca2+(aq)", "Mg2+(aq)", "Fe2+(aq)", "Al3+(aq)", "CO3--(aq)", "Al(OH)3(aq)", "Al(OH)4----(aq)", "KOH(aq)", "HCl(aq)", "KCl(aq)", "NaCl(aq)", "CaCl(aq)", "CaCl+(aq)", "MgCl2(aq)", "MgCl+(aq)", "FeCl(aq)", "Si(aq)", "alkali feldspar", "alkali feldspar", "alkali feldspar", "biotite", "biotite", "biotite", "biotite", "biotite", "bridgmanite", "bridgmanite", "bridgmanite", "bridgmanite", "brucite", "C2/c-pyroxene", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carpholite", "carpholite", "carpholite", "chlorite", "chlorite", "chlorite", "chloritoid", "chloritoid", "chloritoid", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinoamphibole", "clinohumite", "clinohumite", "clinohumite", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "cordierite", "cordierite", "cordierite", "corundum", "davemaoite", "epidote", "epidote", "ferrite-(Ca)", "ferrite-(Ca)", "ferropericlase", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "gas", "gas", "gas", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "majorite", "majorite", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "monazite", "nepheline", "new aluminous phase", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "orthoamphibole", "orthoamphibole", "orthoamphibole", "orthoamphibole", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "osumilite", "osumilite", "plagioclase", "plagioclase", "plagioclase", "post-perovskite", "post-perovskite", "pumpellyite", "pumpellyite", "pyrrhotite", "pyrrhotite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "rutile", "sapphirine", "sapphirine", "sapphirine", "sapphirine", "scapolite", "serpentine", "serpentine", "serpentine", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "staurolite", "staurolite", "stilpnomelane", "stilpnomelane", "sudoite", "sudoite", "sudoite", "talc", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "tourmaline", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "wustite", "wustite", "wustite",)
2125+ common_names = ("acmite", "akermanite", "albite", "almandine", "amesite", "analcite", "andalusite", "andradite", "anhydrite", "ankerite", "annite", "anorthite", "anthophyllite", "anthophyllite-(Fe)", "antigorite", "aragonite", "azurite", "baddeleyite", "biotite-(Mn)", "bornite", "bridgmanite-(Al)", "bridgmanite-(Ca)", "bridgmanite-(Fe)", "bridgmanite", "bridgmanite-(Na)", "brucite", "calcite", "carpholite-(Fe)", "carpholite-(Mg)", "celadonite", "celadonite-(Fe)", "chalcopyrite", "chlorite-(Al-free)", "chlorite-(Mn)", "chloritoid-(Fe)", "chloritoid-(Mg)", "chloritoid-(Mn)", "chrysotile", "clinochlore", "clinohumite", "clinozoisite", "coesite", "cordierite", "cordierite", "cordierite-(Fe)", "cordierite-(Mn)", "corundum", "covellite", "cristobalite", "cummingtonite", "daphnite", "deerite", "diamond", "diaspore", "diopside", "dolomite", "eastonite", "enstatite", "epidote", "epidote-(Fe)", "eskolaite", "fayalite", "ferroactinolite", "ferropericlase", "ferrosilite", "forsterite", "garnet-(Na)", "gedrite", "gehlenite", "geikielite", "glaucophane", "glaucophane-(Fe)", "goethite", "graphite", "grossular", "grunerite", "halite", "hedenbergite", "hematite", "hercynite", "heulandite", "highalbite", "ilmenite", "ilmenite", "iron", "jadeite", "kalsilite", "kalsilite", "kaolinite", "kyanite", "larnite", "larnite", "laumontite", "lawsonite", "leucite", "lime", "magnesioferrite", "magnesite", "magnetite", "majorite", "malachite", "manganosite", "margarite", "meionite", "merwinite", "microcline", "millerite", "monticellite", "muscovite", "nepheline", "nepheline", "nepheline", "nickel", "nickel oxide", "osumilite", "osumilite", "osumilite-(Fe)", "paragonite", "pargasite", "periclase", "phase A", "phlogopite", "phlogopite-(Na)", "post-perovskite", "prehnite", "pseudowollastonite", "pumpellyite", "pyrite", "pyrope", "pyrophanite", "pyrophyllite", "pyroxmangite", "quartz", "rankinite", "rhodochrosite", "rhodonite", "riebeckite", "ringwoodite-(Fe)", "ringwoodite", "rutile", "sanidine", "sapphirine", "sapphirine", "sapphirine-(Fe)", "siderite", "sillimanite", "spessartine", "sphene", "spinel", "spurrite", "staurolite-(Fe)", "staurolite-(Mg)", "staurolite-(Mn)", "stilbite", "stishovite", "sudoite", "sudoite-(Fe)", "sylvite", "talc", "talc-(Fe)", "tephroite", "tilleyite", "topaz", "tremolite", "tridymite", "troilite", "tschermak-talc", "tschermakite", "tschermakite-(Ca)", "tschermakite-(Mg)", "ulvospinel", "vesuvianite", "wadsleyite-(Fe)", "wadsleyite-(Mg)", "wairakite", "wollastonite", "wustite", "wustite", "zircon", "zoisite", "carbon dioxide", "carbon monoxide", "hydrogen", "methane", "oxygen", "water", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "H+(aq)", "Cl(aq)", "OH(aq)", "Na+(aq)", "K+(aq)", "Ca2+(aq)", "Mg2+(aq)", "Fe2+(aq)", "Al3+(aq)", "CO3--(aq)", "Al(OH)3(aq)", "Al(OH)4----(aq)", "KOH(aq)", "HCl(aq)", "KCl(aq)", "NaCl(aq)", "CaCl(aq)", "CaCl+(aq)", "MgCl2(aq)", "MgCl+(aq)", "FeCl(aq)", "Si(aq)", "alkali feldspar", "alkali feldspar", "alkali feldspar", "biotite", "biotite", "biotite", "biotite", "biotite", "bridgmanite", "bridgmanite", "bridgmanite", "bridgmanite", "brucite", "C2/c-pyroxene", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carbonate", "carpholite", "carpholite", "carpholite", "chlorite", "chlorite", "chlorite", "chloritoid", "chloritoid", "chloritoid", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "amphibole", "clinohumite", "clinohumite", "clinohumite", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "clinopyroxene", "cordierite", "cordierite", "cordierite", "corundum", "davemaoite", "epidote", "epidote", "ferrite-(Ca)", "ferrite-(Ca)", "ferropericlase", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "fluid", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "garnet", "gas", "gas", "gas", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "ilmenite", "majorite", "majorite", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "melt", "monazite", "nepheline", "new aluminous phase", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "olivine", "orthoamphibole", "orthoamphibole", "orthoamphibole", "orthoamphibole", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "orthopyroxene", "osumilite", "osumilite", "plagioclase", "plagioclase", "plagioclase", "post-perovskite", "post-perovskite", "pumpellyite", "pumpellyite", "pyrrhotite", "pyrrhotite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "ringwoodite", "rutile", "sapphirine", "sapphirine", "sapphirine", "sapphirine", "scapolite", "serpentine", "serpentine", "serpentine", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "spinel", "staurolite", "staurolite", "stilpnomelane", "stilpnomelane", "sudoite", "sudoite", "sudoite", "talc", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "ternary feldspar", "tourmaline", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "wadsleyite", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "white mica", "wustite", "wustite", "wustite",)
21262126 if name ∈ abbreviations
21272127 common_names[findfirst (isequal (name), abbreviations)]
21282128 elseif contains (name," anorthite"
0 commit comments