%% === Unidades de medida dos  campos de elementos

unmed(""  ,""      ,""                            ).
unmed(pm   ,"pm"    ,"picometro(s)"                ).
unmed(ang  ,"A"     ,"amngstrom(ns)"               ).
unmed(ma   ,"mol"   ,"MOL"                         ).
unmed(ev   ,"eV"    ,"eletrovolts por mol"         ).
unmed(kj   ,"kJ"    ,"kilojoule(s)"                ).
unmed(kjmol,"kJ/Mol","kilojoules por mol"          ).
unmed(gc   ,"ºC"    ,"kelvin"                      ).
unmed(k    ,"K"     ,"graus celsius"               ).
unmed(gcm3 ,"g/cm3" ,"gramas por centimetro cúbico").

unidade_medida(na,"").
unidade_medida(ra,"pm").
unidade_medida(ma,"mol").
unidade_medida(ve,"L/mol").
unidade_medida(pei,"j/mol").
unidade_medida(pe,"ºC").
unidade_medida(pf,"ºC").
unidade_medida(d,"???").
unidade_medida(ppiv,"eV").
unidade_medida(ppiv,"eV").
unidade_medida(ppiv,"eV").
unidade_medida(ppij,"kJ/MOL").
unidade_medida(ppij,"kJ/MOL").
unidade_medida(ppij,"kJ/MOL").

um(A,B) :- unidade_medida(A,B).

% As unidades de medida são utilizadas com os fatos e regras de resultados numéricos de propriedades de átomos, moléculas, ións, etc.

dado_el(sn   ,"simbolo notação"                      ,"símbolo"                               ,"").
dado_el(na   ,"número atômico"                       ,"número atômico"                        ,"").
dado_el(nm   ,"nome minúsculo"                       ,"minúsculo"                             ,"").
dado_el(n    ,"nome em português"                    ,"português"                             ,"").
dado_el(nin  ,"nome em inglês"                       ,"inglês"                                ,"").
dado_el(nal  ,"nome em alemão"                       ,"alemão"                                ,"").
dado_el(nfr  ,"nome em francês"                      ,"francês"                               ,"").
dado_el(nes  ,"nome em espanhol"                     ,"espanhol"                              ,"").
dado_el(nit  ,"nome em italiano"                     ,"italiano"                              ,"").
dado_el(nf   ,"nome formatado"                       ,"formatado"                             ,"").
dado_el(na   ,"número atômico"                       ,"número atômico"                        ,"").
dado_el(p    ,"período"                              ,"período"                               ,"").
dado_el(g    ,"grupo"                                ,"grupo"                                 ,"").
dado_el(es   ,"estado"                               ,"estado"                                ,"").
dado_el(eb   ,"estabilidade"                         ,"estabilidade"                          ,"").
dado_el(tr   ,"transição"                            ,"transição"                             ,"").
dado_el(cat  ,"categoria"                            ,"categoria"                             ,"").
dado_el(ra   ,"raio atômico"                         ,"raio atômico"                          ,pm).
dado_el(ri2me,"raio iônico - 2"                      ,"-2"                                    ,pm).
dado_el(ri1me,"raio iônico - 1"                      ,"-1"                                    ,pm).
dado_el(ri1ma,"raio iônico + 1"                      ,"+1"                                    ,pm).
dado_el(ri2ma,"raio iônico + 2"                      ,"+2"                                    ,pm).
dado_el(ri3ma,"raio iônico + 3"                      ,"+3"                                    ,pm).
dado_el(raa  ,"raio atômico"                         ,""                                      ,ang).
dado_el(ma   ,"massa atômica"                        ,"massa atômica"                         ,mol).
dado_el(d    ,"densidade"                            ,"densidade"                             ,"").
dado_el(cd   ,"comentário densidade"                 ,"comentário densidade"                  ,"").
dado_el(eta  ,"estado em temperatura ambiente"       ,"estado em temperatura ambiente"        ,"").
dado_el(pf   ,"ponto de fusão"                       ,"ponto de fusão"                        ,gc).
dado_el(pfk  ,"ponto de fusão"                       ,"ponto de fusão"                        ,k).
dado_el(pe   ,"ponto de ebulição"                    ,"ponto de ebulição"                     ,gc).
dado_el(pek  ,"ponto de ebulição"                    ,"ponto de ebulição"                     ,k).
dado_el(ve   ,"volume específico"                    ,"volume específico"                     ,gcm3).
dado_el(ce   ,"calor específico"                     ,"calor específico"                      ,gc).
dado_el(cf   ,"calor fusão"                          ,"calor fusão"                           ,gc).
dado_el(ccf  ,"comentário calor fusão"               ,"comentário calor fusão"                ,"").
dado_el(ceb  ,"calor ebulição"                       ,"calor ebulição"                        ,gc).
dado_el(cceb ,"comentário calor ebulição"            ,"comentário calor ebulição"             ,"").
dado_el(cev  ,"calor evaporação"                     ,"calor evaporação"                      ,gc).
dado_el(ccev ,"comentário calor evaporação"          ,"comentário calor evaporação"           ,"").
dado_el(ct   ,"condutividade térmica"                ,"condutividade térmica"                 ,"").
dado_el(cct  ,"comentário condutividade térmica"     ,"comentário condutividade térmica"      ,"").
dado_el(enp  ,"eletro negatividade pauling"          ,"eletro negatividade pauling"           ,"").
dado_el(eav  ,"eletroafinidade"                      ,"eletroafinidade"                       ,ev).
dado_el(eaj  ,"eletroafinidade"                      ,"eletroafinidade"                       ,kj).
dado_el(pei  ,"primeira energia ionização"           ,"1ª"                                    ,"").
dado_el(cpei ,"comentário primeira energia ionização","Comentário 1ª"                         ,"").
dado_el(ppiv ,"primeiro potencial ionização"         ,"1º"                                    ,ev).
dado_el(spiv ,"segundo potencial ionização"          ,"2º"                                    ,ev).
dado_el(tpiv ,"terceiro potencial ionização"         ,"3º"                                    ,ev).
dado_el(ppij ,"primeiro potencial ionização"         ,"1º"                                    ,kj).
dado_el(spij ,"segundo potencial ionização"          ,"2º"                                    ,kj).
dado_el(tpij ,"terceiro potencial ionização"         ,"3º"                                    ,kj).
dado_el(cel  ,"configuração eletrônica"              ,"configuração eletrônica"               ,"").
dado_el(eo   ,"estados de oxidação"                  ,"estados de oxidação"                   ,"").
dado_el(lat  ,"lattice"                              ,"lattice"                               ,"").
dado_el(clat ,"comentários lattice"                  ,"comentários"                           ,"").
dado_el(crm  ,"crosta terrestre"                     ,"crosta terrestre"                      ,mgk).

sn(h   , "H"   ).
sn(he  , "He"  ).
sn(li  , "Li"  ).
sn(be  , "Be"  ).
sn(b   , "B"   ).
sn(c   , "C"   ).
sn(n   , "N"   ).
sn(o   , "O"   ).
sn(f   , "F"   ).
sn(ne  , "Ne"  ).
sn(na  , "Na"  ).
sn(mg  , "Mg"  ).
sn(al  , "Al"  ).
sn(si  , "Si"  ).
sn(p   , "P"   ).
sn(s   , "S"   ).
sn(cl  , "Cl"  ).
sn(ar  , "Ar"  ).
sn(k   , "K"   ).
sn(ca  , "Ca"  ).
sn(sc  , "Sc"  ).
sn(ti  , "Ti"  ).
sn(v   , "V"   ).
sn(cr  , "Cr"  ).
sn(mn  , "Mn"  ).
sn(fe  , "Fe"  ).
sn(co  , "Co"  ).
sn(ni  , "Ni"  ).
sn(cu  , "Cu"  ).
sn(zn  , "Zn"  ).
sn(ga  , "Ga"  ).
sn(ge  , "Ge"  ).
sn(as  , "As"  ).
sn(se  , "Se"  ).
sn(br  , "Br"  ).
sn(kr  , "Kr"  ).
sn(rb  , "Rb"  ).
sn(sr  , "Sr"  ).
sn(y   , "Y"   ).
sn(zr  , "Zr"  ).
sn(nb  , "Nb"  ).
sn(mo  , "Mo"  ).
sn(tc  , "Tc"  ).
sn(ru  , "Ru"  ).
sn(rh  , "Rh"  ).
sn(pd  , "Pd"  ).
sn(ag  , "Ag"  ).
sn(cd  , "Cd"  ).
sn(in  , "In"  ).
sn(sn  , "Sn"  ).
sn(sb  , "Sb"  ).
sn(te  , "Te"  ).
sn(i   , "I"   ).
sn(xe  , "Xe"  ).
sn(cs  , "Cs"  ).
sn(ba  , "Ba"  ).
sn(la  , "La"  ).
sn(ce  , "Ce"  ).
sn(pr  , "Pr"  ).
sn(nd  , "Nd"  ).
sn(pm  , "Pm"  ).
sn(sm  , "Sm"  ).
sn(eu  , "Eu"  ).
sn(gd  , "Gd"  ).
sn(tb  , "Tb"  ).
sn(dy  , "Dy"  ).
sn(ho  , "Ho"  ).
sn(er  , "Er"  ).
sn(tm  , "Tm"  ).
sn(yb  , "Yb"  ).
sn(lu  , "Lu"  ).
sn(hf  , "Hf"  ).
sn(ta  , "Ta"  ).
sn(w   , "W"   ).
sn(re  , "Re"  ).
sn(os  , "Os"  ).
sn(ir  , "Ir"  ).
sn(pt  , "Pt"  ).
sn(au  , "Au"  ).
sn(hg  , "Hg"  ).
sn(tl  , "Tl"  ).
sn(pb  , "Pb"  ).
sn(bi  , "Bi"  ).
sn(po  , "Po"  ).
sn(at  , "At"  ).
sn(rn  , "Rn"  ).
sn(fr  , "Fr"  ).
sn(ra  , "Ra"  ).
sn(ac  , "Ac"  ).
sn(th  , "Th"  ).
sn(pa  , "Pa"  ).
sn(u   , "U"   ).
sn(np  , "Np"  ).
sn(pu  , "Pu"  ).
sn(am  , "Am"  ).
sn(cm  , "Cm"  ).
sn(bk  , "Bk"  ).
sn(cf  , "Cf"  ).
sn(es  , "Es"  ).
sn(fm  , "Fm"  ).
sn(d   , "Md"  ).
sn(no  , "No"  ).
sn(lr  , "Lr"  ).
sn(rf  , "Rf"  ).
sn(db  , "Db"  ).
sn(sg  , "Sg"  ).
sn(eh  , "Bh"  ).
sn(hs  , "Hs"  ).
sn(mt  , "Mt"  ).
sn(uun , "Uun" ).
sn(uuu , "Uuu" ).
sn(uub , "Uub" ).
sn(uut , "Uut" ).
sn(uuq , "Uuq" ).
sn(uup , "Uup" ).
sn(uuh , "Uuh" ).
sn(uus , "Uus" ).
sn(uuo , "Uuo" ).

s(h).
s(he).
s(li).
s(be).
s(b).
s(c).
s(n).
s(o).
s(f).
s(ne).
s(na).
s(mg).
s(al).
s(si).
s(p).
s(s).
s(cl).
s(ar).
s(k).
s(ca).
s(sc).
s(ti).
s(v).
s(cr).
s(mn).
s(fe).
s(co).
s(ni).
s(cu).
s(zn).
s(ga).
s(ge).
s(as).
s(se).
s(br).
s(kr).
s(rb).
s(sr).
s(y).
s(zr).
s(nb).
s(mo).
s(tc).
s(ru).
s(rh).
s(pd).
s(ag).
s(cd).
s(in).
s(s).
s(sb).
s(te).
s(i).
s(xe).
s(cs).
s(ba).
s(la).
s(ce).
s(pr).
s(nd).
s(pm).
s(sm).
s(eu).
s(gd).
s(tb).
s(dy).
s(ho).
s(er).
s(tm).
s(yb).
s(lu).
s(hf).
s(ta).
s(w).
s(re).
s(os).
s(ir).
s(pt).
s(au).
s(hg).
s(tl).
s(pb).
s(bi).
s(po).
s(at).
s(rn).
s(fr).
s(ra).
s(ac).
s(th).
s(pa).
s(u).
s(np).
s(pu).
s(am).
s(cm).
s(bk).
s(cf).
s(es).
s(fm).
s(d).
s(no).
s(lr).
s(rf).
s(db).
s(sg).
s(eh).
s(hs).
s(mt).
s(uun).
s(uuu).
s(uub).
s(uut).
s(uuq).
s(uup).
s(uuh).
s(uus).
s(uuo).

nm(h    , hidrogênio    ).
nm(he   , hélio         ).
nm(li   , litio         ).
nm(be   , berílio       ).
nm(b    , boro          ).
nm(c    , carbono       ).
nm(n    , nitrogênio    ).
nm(o    , oxigênio      ).
nm(f    , fluor         ).
nm(ne   , neon          ).
nm(na   , sódio         ).
nm(mg   , magnésio      ).
nm(al   , alumínio      ).
nm(si   , silício       ).
nm(p   ,  fósforo       ).
nm(s   ,  enxofre       ).
nm(cl   , cloro         ).
nm(ar   , argônio       ).
nm(k   ,  potássio      ).
nm(ca   , cálcio        ).
nm(sc   , escândio      ).
nm(ti   , titânio       ).
nm(v    , vanádio       ).
nm(cr   , cromo         ).
nm(mn   , manganês      ).
nm(fe   , ferro         ).
nm(co   , cobalto       ).
nm(ni   , níquel        ).
nm(cu   , cobre         ).
nm(zn   , zinco         ).
nm(ga   , gálio         ).
nm(ge   , germânio      ).
nm(as   , arsênio       ).
nm(se   , selênio       ).
nm(br   , bromo         ).
nm(kr   , criptônio     ).
nm(rb   , rubídio       ).
nm(sr   , estrôncio     ).
nm(y    , ítrio         ).
nm(zr   , zircônio      ).
nm(nb   , nióbio        ).
nm(mo   , molibdênio    ).
nm(tc   , tecnécio      ).
nm(ru   , rutênio       ).
nm(rh   , ródio         ).
nm(pd   , paládio       ).
nm(ag   , prata         ).
nm(cd   , cádmio        ).
nm(in   , índio         ).
nm(sn   , estanho       ).
nm(sb   , antimônio     ).
nm(te   , telúrio       ).
nm(i    , iôdo          ).
nm(xe   , xenônio       ).
nm(cs   , césio         ).
nm(ba   , bário         ).
nm(la   , lantânio      ).
nm(ce   , cério         ).
nm(pr   , praseodímio   ).
nm(nd   , neodimio      ).
nm(pm   , promécio      ).
nm(sm   , samário       ).
nm(eu   , európio       ).
nm(gd   , gadolíneo     ).
nm(tb   , térbio        ).
nm(dy   , disprósio     ).
nm(ho   , hólmio        ).
nm(er   , érbio         ).
nm(tm   , túlio         ).
nm(yb   , itérbio       ).
nm(lu   , lutécio       ).
nm(hf   , háfnio        ).
nm(ta   , tântalo       ).
nm(w    , tungstênio    ).
nm(re   , rênio         ).
nm(os   , osmio         ).
nm(ir   , irídio        ).
nm(pt   , platina       ).
nm(au   , ouro          ).
nm(hg   , mercúrio      ).
nm(tl   , tálio         ).
nm(pb   , chumbo        ).
nm(bi   , bismuto       ).
nm(po   , polônio       ).
nm(at   , astato        ).
nm(rn   , radônio       ).
nm(fr   , frâncio       ).
nm(ra   , rádio         ).
nm(ac   , actínio       ).
nm(th   , tório         ).
nm(pa   , protactínio   ).
nm(u    , urânio        ).
nm(np   , netúnio       ).
nm(pu   , plutônio      ).
nm(am   , amerício      ).
nm(cm   , cúrio         ).
nm(bk   , berquélio     ).
nm(cf   , califórnio    ).
nm(es   , einstênio     ).
nm(fm   , férmio        ).
nm(d    , mendelévio    ).
nm(no   , nobélio       ).
nm(lr   , laurêncio     ).
nm(rf   , rutherfôrnio  ).
nm(db   , dúbnio        ).
nm(sg   , seabórguio    ).
nm(eh   , bóhrio        ).
nm(hs   , hássio        ).
nm(mt   , meitnério     ).
nm(uun  , darmistárdio  ).
nm(uuu  , roentgênio    ).
nm(uub  , copernício    ).
nm(uut  , unúntrio      ).
nm(uuq  , flerovio      ).
nm(uup  , ununpêntio    ).
nm(uuh  , ununhêxio     ).
nm(uus  , livermorio    ).
nm(uuo  , ununóctio     ).