Getting ChemicalData to work?

Questions
, , ,
1

Hello!
I’m trying to make a table of “Polymers” and get the following Data: “Name”, “MolecularFormulaDisplay”, “Resistivity” “DielectricConstant”. I also plan to sort the table by DielectricConstant and filter Missing data.

I just started as a Research Assistant at school, so I’m pretty new here.

This is what I have so far, and I’m getting only Missing[NotAvailable].
I don’t know whether the filter isn’t working or DielectricConstant is inexistent for the class “Polymers”.

Short[DeleteCases[
  Table[ChemicalData[#, 
      prop], {prop, {"Name", "MolecularFormulaDisplay", 
       "Resistivity", "DielectricConstant"}}] & /@ 
   ChemicalData["Polymers"], {_, _, _, _Missing}], 4]
vals = Table[
     ChemicalData[#, 
      prop], {prop, {"Name", "MolecularFormulaDisplay", "Resistivity",
        "DielectricConstant"}}] & /@ ChemicalData["Polymers"];
Text[Grid[
  Prepend[vals[[1 ;; 10]], {"Name", "MolecularFormulaDisplay", 
    "Resistivity", "DielectricConstant"}], Frame -> All, 
  Background -> {None, {{{LightBlue, White}}, {1 -> LightYellow}}}, 
  Alignment -> Left]]
2

Sadly our coverage for these properties is minimal,

In[110]:= Length@DeleteMissing@ChemicalData[All, "DielectricConstant"]
          Length@DeleteMissing@ChemicalData[All, "Resistivity"]

Out[110]= 133

Out[111]= 71
3

It’s okay. Thank you Jason.

4

Dear Jason,
I’m new to the Wolfram Language, and would like to programmatically access alloy data like can be done manually on this page:

I have thus far failed at accessing any alloy data.

Thanks in advance!
Duane

5

@duanek - you can access Wolfram|Alpha from Mathematica with something like the following,

WolframAlpha["UNS S31600 resistivity"]

There you should find everything you find on the website. In particular the “Result” pod contains the data you want. Click the “+” icon in the upper right corner of the pod

ScreenShot2022-02-22at7.29.45AM.png
ScreenShot2022-02-22at7.29.45AM.png1428×144 10.1 KB

and select “Quantity data”. This should paste the following input in your notebook,

In[8]:= WolframAlpha["UNS S31600 resistivity", {{"Result", 1}, "QuantityData"}]

Out[8]= Quantity[0.000074, "Centimeters" "Ohms"]