Wolfram Computational Notebook:
Things to Try
Wolfram Computational Notebook:
Things to Try
Things to Try
This document is a live "notebook" that mixes text and code.
Run any piece of code by clicking inside the code, then pressing +.
Run any piece of code by clicking inside the code, then pressing +.
Let's start with something very easy:
(just click in the code below and press +)
↓
(just click in the code below and press +)
↓
2+2
Here's another computation:
1000!
Make a graphic:
(and try rotating it around)
(and try rotating it around)
Graphics3D[{Sphere[{0,0,0}],Sphere[{1,1,1}]}]
Here's another:
(recognize this one?)
(recognize this one?)
PolyhedronData["RhombicHexecontahedron"]
Create a random network:
RandomGraph[{100,200}]
Do an analysis:
(% stands for the previous output)
(% stands for the previous output)
CommunityGraphPlot[%]
Where does the cloud think you are?
(this is usually based on your IP address)
(this is usually based on your IP address)
Here
Generate a map with a 5-mile-radius disk around there:
GeoGraphics[GeoDisk[Here,Quantity[5,"Miles"]]]
List the 5 nearest cities:
near=GeoNearest["City",Here,5]
Find their populations:
EntityValue[near,"Population"]
Make a pie chart:
PieChart[%,ChartLabelsnear]
Generate a list of planets:
planets=PlanetData[]
Show an image for each planet:
images=EntityValue[planets,"Image"]
Detect edges in each image using image processing:
Map[EdgeDetect,images]
Create a web form where you can enter the name of any country:
(click the link to see the deployed version; it's a "Smart Field" that lets you use natural language)
(click the link to see the deployed version; it's a "Smart Field" that lets you use natural language)
CloudDeploy[FormFunction[{"country""Country"},Show[#country["Flag"],ImageSize600]&,"SVG"]]
Make a 3D plot of the terrain in a 5-mile radius around Mount Everest:
ListPlot3D[GeoElevationData[GeoBoundingBox[GeoDisk[Entity["Mountain","MountEverest"],Quantity[5,"Miles"]]],GeoZoomLevel8],MeshFunctions{#3&},FillingBottom,ColorFunction"Rainbow"]
Now create a function for doing this for any mountain, with any color scheme:
mountain[m_] :=Manipulate[ListPlot3D[
GeoElevationData[GeoBoundingBox[GeoDisk[m, Quantity[5,"Miles"]]],GeoZoomLevel->8],
MeshFunctions -> {#3 &}, Filling -> Bottom,ColorFunction -> ColorData[colors],
ImageSize->600,BoxRatios->{1,1,scaling}], {colors, ColorData["Gradients"]},{{scaling,0.4},0.1,2}]
GeoElevationData[GeoBoundingBox[GeoDisk[m, Quantity[5,"Miles"]]],GeoZoomLevel->8],
MeshFunctions -> {#3 &}, Filling -> Bottom,ColorFunction -> ColorData[colors],
ImageSize->600,BoxRatios->{1,1,scaling}], {colors, ColorData["Gradients"]},{{scaling,0.4},0.1,2}]
Now deploy a form to run this from the web:
CloudDeploy[FormFunction[{"mountain""Mountain"},mountain[#mountain]&,"CloudCDF"],Permissions"Public"]