Community RSS Feed
http://community.wolfram.com
RSS Feed for Wolfram Community showing any discussions in tag Wolfram Cloud sorted by activeIs a list of 40000 english words too big for Wolfram Dev. Plat. Free Plan?
http://community.wolfram.com/groups/-/m/t/1189919
I just started learn Wolfram Language on Wolfram Development Platform Free Plan.
I tried to count number of syllables in English words.
Fortunately WordList[] gives 40127 common english words.
What I want to do in one line is
Counts[Map[ WordData[#, "Hyphenation" ]&, WordList[] ] //Flatten ]//WordCloud
It didn't work.
Same task written in step by step is
WordData["syllabicate", "Hyphenation"]
words = WordList[]
syllables = Map[ WordData[#, "Hyphenation" ]&, words ]//Flatten
counts = Counts[syllables] //Sort//Reverse
WordCloud[counts]
Map function (3rd line) didn't return any result. I don't think 40000 words is too big for Wolfram Language.
Are there something wrong on my code? Or free plan isn't enough to do this?Roman SUZUKI2017-09-22T06:09:32ZGoodbye to the CDF plugin for web browsers?
http://community.wolfram.com/groups/-/m/t/1052516
Embedded cdf documents doesn't work. Nor private ones nor the included in the Demonstrations Project Page.
There is no any information or message. After a little search I have found a note in Wolfram Support:
> Quick Answer Which browsers support the CDF plugin?
>
> Email Print
>
> Depending on the browser you use, you may notice that the CDF plugin
> is not available. This is because web browsers are reducing support
> for plugins in favor of HTML-based technologies.
>
> The CDF plugin is currently compatible with 32-bit Internet Explorer
> and Opera. The plugin is not compatible with the latest versions of
> Chrome, Firefox or Safari. Firefox provides an Extended Support
> Release, which is expected to support the CDF plugin through early
> 2018.
>
> As web browsers continue to reduce plugin support, we recommend the
> Wolfram Cloud for deploying CDFs on the web.
But Wolfram Cloud is not a good solution because the most attractive characteristic of CDF –you can see things change in a continuous form in response a controls– disappears.
And downloading documents to use Mathematica o Wolfram Player is not the same.
We can expect some solution or is a lost characteristic (and lost work in some projects)?Javier Puertolas2017-04-04T09:55:51Z[WSC17] Creating A Regular Polyhedron Classifier
http://community.wolfram.com/groups/-/m/t/1189734
[![enter image description here][5]][4]
# Introduction
The aim of this project is to train a neural network to classify and identify different types of polyhedra. The neural network trained on MNIST handwriting data to identify handwritten numbers was retrained on new data to identify polyhedra. The user can upload any regular polyhedron, preferably one from Mathematica, and the classifier will identify the regular polyhedron, and display the probability of the polyhedron being one of the other regular polyhedra.
## Creating the Data Set
I made the dataset by using the graph function of Mathematica. A function was created to graph the polyhedron given the name, and rotate it about all three axes randomly.
rotate[{rx_, ry_, rz_}, {x_, y_, z_}] :=
{x Cos[ry] Cos[rz] + z Sin[ry] -
y Cos[ry] Sin[rz], -z Cos[ry] Sin[rx] +
x (Cos[rz] Sin[rx] Sin[ry] + Cos[rx] Sin[rz]) +
y (Cos[rx] Cos[rz] - Sin[rx] Sin[ry] Sin[rz]),
z Cos[rx] Cos[ry] + x (-Cos[rx] Cos[rz] Sin[ry] + Sin[rx] Sin[rz]) +
y (Cos[rz] Sin[rx] + Cos[rx] Sin[ry] Sin[rz])}
This function defines the rotate function that rotates the graphed poylehdron.
randomPoly[name_] :=
ImageCrop[
ImageResize[
Image[With[{graphics = PolyhedronData[name, "Graphics3D"],
rotation = RandomReal[{-Pi, Pi}, 3]},
Graphics3D[
GraphicsComplex[rotate[rotation, #] & /@ graphics[[1, 1]],
graphics[[1, 2]]], Boxed -> False]
]], 75], {75, 75}];
randomPoly[] :=
randomPoly@
RandomChoice@{"Cube", "Dodecahedron", "Icosahedron", "Octahedron",
"Tetrahedron"};
This function graphs the poyhedra and randomly rotates it about all three axes. This is an example of the polyhedron graphed.
![enter image description here][1]
createExample[name_] := randomPoly[name] -> name;
trainingData =
Table[createExample@
RandomChoice@{"Cube", "Dodecahedron", "Icosahedron", "Octahedron",
"Tetrahedron"}, 1000];
This function was then used to create the rules for the training set. As shown in the code, 1000 of each polyhedron was actually generated to create the training data. This is what the rule looked like.
![enter image description here][2]
## Training the Neural Network
The polyhedron classifier used the MNIST neural network and retrained the neural network using the training set generated previously.
![enter image description here][3]
## Creating the Microsite
After the training of the neural network was finished, the final step was to create a microsite. The microsite allowed users to input an image of a polyhedron, and the program would identify the polyhedra.
Export["net.wlnet", trained]
CopyFile["net.wlnet", CloudObject["net.wlnet"]]
form = FormPage[{"image" -> "Image"},
"<h2 style='margin-bottom:40px' class='section form-title'>" <>
ToString[Import["net.wlnet"][#image]] <> "</h2>" <>
ExportString[
Grid[{Keys[
Normal[Import["net.wlnet"][#image, "Probabilities"]]],
Values[Normal[
Import["net.wlnet"][#image, "Probabilities"]]]}],
"HTMLFragment"] &,
AppearanceRules -> <|"Title" -> "<b>Polyhedron</b> Classifier",
"Description" ->
"<style>.wolfram-branding>.wolfram-branding-cloud:after{\
background-image: url(http://i.imgur.com/hFuh1YT.png)}</style>Upload \
a regular polyhedra to have it classified",
"SubmitLabel" -> "Classify"|>
, PageTheme -> "Red"];
CloudDeploy[form, "test",
Permissions -> "Public"
]
This is the link to the microsite you can see at the top:
https://www.wolframcloud.com/objects/user-6de45e75-4ef4-4882-960c-ddb2c07bd5b5/test
## Conclusion
Although the classifier is currently very accurate in correctly identifying the polyhedra generated by Wolfram and Mathematica, its success rate when using Google images or outside images is a lot lower. I hope to keep training the neural network in order to allow for higher accuracy with outside images as well.
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshotrandompoly.PNG&userId=1139975
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshotcreateexample.PNG&userId=1139975
[3]: http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShotNeuralNetworkTraining.PNG&userId=1139975
[4]: https://www.wolframcloud.com/objects/user-6de45e75-4ef4-4882-960c-ddb2c07bd5b5/test
[5]: http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2017-09-22at3.59.28AM.png&userId=11733Andre Wang2017-09-22T05:43:01Z