Wolfram Knowledgebase | Ejemplos a probar

Edite y ejecute cualquier pieza de código haciendo clic dentro del código y presionando
+
.
Acceso instantáneo a datos del mundo real. Calcule y visualice una creciente colección de datos cuidadosamente curados de entre cientos de dominios esenciales, fluidamente integrados con todo Wolfram Language.

Calcule con datos geográficos

Cree un mapa con datos geográficos (esto puede tardar más en evaluarse):
Ejecutar
In[]:=
GeoRegionValuePlot
Europe
COUNTRIES
->"GreenhouseGasEmissions",MissingStyle->Blue
Out[]=
Recupere una colección de datos para cada país:
Ejecutar
In[]:=
rawdata=EntityValueEntityClass["Country","Countries"],
poverty fraction
,
GDP
nominal|per capita
,
population
,
continent
;
Elimine datos faltantes y agrúpelos por continente:
Ejecutar
In[]:=
cleandata=GroupBy[DeleteMissing[rawdata,1,1],Last,MapApply[Function[{pov,gdp,pop},{pov,QuantityMagnitude[gdp],pop}]]];
Represente los datos depurados:
Ejecutar
In[]:=
BubbleChartcleandata,


Calcule con cantidades físicas

Recupere longitudes de onda para una clase de líneas espectrales:
Ejecutar
In[]:=
wavelengths=EntityValue
helium I
4000
Å
to
7500
Å
SPECTRAL LINES
,
observed wavelength
;
Represente estas líneas en el espectro visible:
Ejecutar
In[]:=
Graphics​​Map[​​{ColorData["VisibleSpectrum"][#],Line[{{#,0},{#,1}}]}&,​​QuantityMagnitude[wavelengths,"Nanometers"]​​],
​​
Recupere datos termodinámicos para sustancias:
Ejecutar
In[]:=
substances={"Water","Methanol","Octane"};​​temps=Quantity[Range[1,130],"DegreesCelsius"];​​densitydata=Table[​​{temps,ThermodynamicData[substance,"Density",{"Temperature"->temps}]}//Transpose,​​{substance,substances}];
Visualice los datos recuperados:
Ejecutar
In[]:=
ListLinePlot[densitydata,AxesLabel->Automatic,PlotLegends->substances]
Compare las abruptas disminuciones de densidad en la representación con puntos de ebullición conocidos:
Ejecutar
In[]:=
EntityValue[Interpreter["Chemical"][substances],"BoilingPoint","Association"]

Calcule con datos biológicos y ecológicos

Represente la ubicación de estructuras anatómicas en 3D:
Ejecutar
In[]:=
AnatomyPlot3D
heart
ANATOMICAL STRUCTURE
,
lung
ANATOMICAL STRUCTURE

Compare entidades anatómicas:
Ejecutar
In[]:=
organs=
heart
ANATOMICAL STRUCTURE
,
liver
ANATOMICAL STRUCTURE
,
brain
ANATOMICAL STRUCTURE
;​​properties={"Mass","CellCount"};​​ListPlot[EntityValue[organs,properties,"Association"],AxesLabel->properties]
Defina biosecuencias y explore sus propiedades estructurales:
Ejecutar
In[]:=
insulin=
BioSequence[
]
;​​MoleculePlot[Molecule[insulin]]
Defina una clase de entidades para recuperación de datos:
Ejecutar
In[]:=
endangeredMammal=EntityClass"TaxonomicSpecies",
phyletic groups
->
mammal
SPECIES PHYLETIC GROUP
,
conservation status
->
Endangered
SPECIES CONSERVATION STATUS
;​​
Visualice la cantidad de mamíferos en peligro de extinción presentes por país:
Ejecutar
In[]:=
GeoRegionValuePlot[EntityValue[endangeredMammal,"ObservationCountries"]//Flatten//Tally]
Out[]=

Analice datos financieros

Recupere datos financieros y preséntelos en un formato estándar:
Ejecutar
In[]:=
TradingChart["GE",{"Volume","SimpleMovingAverage","BollingerBands"}]
Interprete entidades financieras a partir de texto:
Ejecutar
In[]:=
stocks=Interpreter["Financial"][{"GOOGL","MSFT","AAPL"}]
Compare propiedades de entidades a lo largo del tiempo:
Ejecutar
In[]:=
property=
cumulative fractional change
;​​DateListPlot​​EntityValuestocks,Datedproperty,Interval
Wed 1 Jan 2020
,Yesterday,PlotLegendsCommonName[stocks]

Calcule on datos socioculturales

Visualice las preferencias de género de un artista:
Ejecutar
In[]:=
genres=EntityValueEntityClass"Artwork","Artist"->
Rembrandt
PERSON
,"ArtGenre"//Flatten;​​PieChart[Counts[genres],ChartLabels->Automatic]
Recuperte fechas de inicio de construcción a partir de una clase de castillos definida implícitamente:
Ejecutar
In[]:=
castleAndYear=EntityValueEntityClass"Castle",
country
->
United Kingdom
COUNTRY
,"ConstructionStartDate","NonMissingEntityAssociation";
Busque tendencias en el tiempo:
Ejecutar
In[]:=
DateHistogram[castleAndYear,{{900},{1300},"Decade"}]
Organice los datos de un período particularmente activo:
Ejecutar
In[]:=
castlesOfInterest=SelectcastleAndYear,
Year: 1060
≤#≤
Year: 1110
&;​​castlesByDecade=GroupBy[castlesOfInterest//Normal,DateObject[#[[2]],"Decade"]&,Map[First]]//KeySort