Community RSS Feed
http://community.wolfram.com
RSS Feed for Wolfram Community showing any discussions in tag Wolfram Sciencearchive/topic/1127-1.html sorted by activeDocument Problem
http://community.wolfram.com/groups/-/m/t/1305862
When I opened my last document. It came up showing code like the stuff below instead of my equations. How do I make it look normal again?
%!PS-Adobe-3.0
%%Creator: Wolfram Mathematica 11.2.0.0 for Microsoft Windows (64-bit) (September 10, 2017) Student Edition - Personal Use Only
%%CreationDate: Thu Mar 15 08:27:13 2018
%%Pages: 2
%%DocumentData: Clean7Bit
%%LanguageLevel: 3
%%DocumentMedia: Letter 612 792 0 () ()
%%BoundingBox: 54 32 554 761
%%EndComments
%%BeginProlog
/languagelevel where
{ pop languagelevel } { 1 } ifeHava M2018-03-21T01:12:00ZCreating a table / an array with conditions
http://community.wolfram.com/groups/-/m/t/1305658
Hello everyone,
I'm trying (and failing) to create an array with dimensions {i1,j1,k1,i2,j2,k2}, conditioned to: {i1 + j1 + k1 = n} & {i2 + j2 + k2 = n}, where n is a fixed (given) integer number.
In attachment is what I've done so far.
Thank you very much!Daniel Grun2018-03-21T01:00:31ZHow can I import data from a TSV without degrees?
http://community.wolfram.com/groups/-/m/t/1305811
I'm a hobbyist and dabble in a few things. This is my first post.
I have a .TSV that I exported from DataDrop that has a timestamp and a temperature in Degrees Fahrenheit. I'm able to get it to import using a variety of methods. However, the result of hwtemp is showing as # \[Degree]F.
How can I just get the number?
hwd = Import[ "hw.tsv", {"Data", All, 1}];
hwtemp = Import["hw.tsv", {"Data", All, 2}];
date = DateObject[Rest[hwd]];
temperature = Rest[hwtemp] // Short
Any help or feedback is welcome.
Thanks, MikeMichael Madsen2018-03-20T21:49:10Zhow to write a code to eliminate the variable X# on all the equations
http://community.wolfram.com/groups/-/m/t/1305642
i want to eliminate all the x variables in all the systems but every time i try is not working: this is my code
equation1 = -318.1 x1 - 309.9 x2 + 993.1 x3 + 395.3 x4 - 599.2 x5 -
419.4 x6 + 676. x7 + 650.9 x8 + 512.9 x9 + 114.3 x10 - 491.7 x11 -
402.1 x12 + 111.4 x13 + 182.4 x14 - 593.9 x15 - 814.3 x16 +
91.7 x17 + 248.3 x18 - 421.3 x19 + 199.1 x20 - 711.4 x21 -
752.7 x22 == 249.7
equation2 = -281.9 x1 - 568.7 x2 + 206.9 x3 - 303.1 x4 + 674.3 x5 -
226.5 x6 + 507.4 x7 + 196.9 x8 + 764.6 x9 - 214.5 x10 -
587.5 x11 - 105.8 x12 - 869.8 x13 - 110.2 x14 + 431.9 x15 -
299.8 x16 + 979.4 x17 - 881.1 x18 - 16.6 x19 - 221.8 x20 -
33.5 x21 + 134.7 x22 == 637.8
equation3 = -577. x1 - 268.5 x2 - 692.2 x3 + 462.6 x4 + 81.4 x5 -
303.1 x6 + 736.6 x7 + 780.9 x8 + 560.8 x9 + 627.6 x10 +
698.8 x11 - 81.6 x12 + 436.9 x13 + 591.3 x14 + 651.7 x15 -
203.9 x16 + 449.1 x17 - 13.5 x18 + 964.6 x19 - 134.3 x20 +
692.6 x21 + 751.5 x22 == -462.
equation4 = -633.2 x1 - 500.6 x2 - 890.7 x3 + 10.4 x4 - 588. x5 +
144.1 x6 - 664.9 x7 + 777.8 x8 + 372. x9 + 684.1 x10 + 804.9 x11 -
215. x12 + 333.5 x13 - 860.5 x14 - 45.2 x15 - 10.3 x16 -
794.8 x17 + 992.3 x18 - 67.2 x19 - 200.6 x20 + 169.7 x21 +
70.6 x22 == 136.8
equation5 = -495.8 x1 + 823.8 x2 + 118.7 x3 - 219. x4 - 764. x5 +
785.8 x6 - 708.5 x7 + 224.4 x8 + 380.5 x9 - 517.9 x10 -
590.5 x11 - 967.3 x12 - 759. x13 - 981.3 x14 - 185.6 x15 -
703. x16 + 462.2 x17 + 793.8 x18 + 501.2 x19 + 11.8 x20 +
218.1 x21 - 727.9 x22 == -598.3
equation6 =
952.6 x1 - 555.6 x2 + 78.9 x3 + 601.1 x4 + 215.8 x5 - 255.1 x6 -
648.4 x7 + 576.4 x8 - 374.7 x9 - 253.8 x10 - 964.9 x11 +
576.1 x12 - 175.2 x13 - 71.6 x14 + 792. x15 + 118.1 x16 +
680.2 x17 - 632.4 x18 + 520.4 x19 - 789.7 x20 + 461.7 x21 -
141.9 x22 == 3.2
equation7 =
-717.9 x1 - 333.2 x2 - 977.4 x3 - 270.4 x4 + 610.1 x5 - 736.9 x6 -
5.5 x7 + 955.7 x8 - 530.1 x9 + 416.5 x10 - 427.6 x11 - 424.8 x12 -
423.5 x13 - 670.7 x14 - 364.6 x15 - 422.1 x16 + 277.3 x17 +
118.1 x18 - 203.6 x19 - 793.4 x20 - 520.7 x21 + 828. x22 == 229.4
equation8 = -570.9 x1 - 209.9 x2 + 946.4 x3 + 906.4 x4 - 927.9 x5 +
779.3 x6 + 105.1 x7 + 438.7 x8 - 512. x9 - 788.2 x10 - 820.1 x11 -
951.3 x12 - 144.4 x13 - 219.8 x14 - 976. x15 + 955.4 x16 +
808.8 x17 + 375.8 x18 - 94.8 x19 + 111.2 x20 + 447.2 x21 -
102.6 x22 == 184.7
equation9 =
765.3 x1 - 780.6 x2 - 695.2 x3 - 656.6 x4 + 35.1 x5 - 853.9 x6 +
62.6 x7 - 194.2 x8 - 928.4 x9 - 939.1 x10 + 963.2 x11 -
460.8 x12 - 185.4 x13 + 223.1 x14 - 310.2 x15 - 61.4 x16 -
150.7 x17 - 232. x18 - 4.3 x19 + 497.3 x20 - 60.7 x21 + 684.8 x22 ==
404.2
equation10 = -613.9 x1 + 606.2 x2 - 633.5 x3 + 578.5 x4 + 155.8 x5 +
397.8 x6 + 95.6 x7 - 327.6 x8 + 783.9 x9 - 677.1 x10 - 866.4 x11 +
839.8 x12 - 276.5 x13 + 457.1 x14 - 12.6 x15 + 765. x16 +
402.2 x17 - 539.8 x18 - 951.4 x19 + 741. x20 + 10.1 x21 -
21.3 x22 == 677.
equation11 = -974.4 x1 - 666.2 x2 + 706.6 x3 + 354.7 x4 - 416.6 x5 -
636.4 x6 - 443.9 x7 + 694.5 x8 + 450.9 x9 - 819.8 x10 -
891.7 x11 - 362.5 x12 + 874.9 x13 + 730.4 x14 + 516.2 x15 -
50.5 x16 + 559.3 x17 + 627.8 x18 + 8.9 x19 + 315.5 x20 +
70.5 x21 - 912.4 x22 == 617.1
equation12 = -908.1 x1 - 672. x2 + 731.1 x3 - 909.8 x4 - 413.6 x5 +
222.3 x6 + 272.4 x7 + 84.3 x8 + 137. x9 + 402.2 x10 + 812.6 x11 +
760.3 x12 + 785.5 x13 + 988.2 x14 + 31.1 x15 + 999. x16 -
544.8 x17 + 554.8 x18 + 647.5 x19 + 101.1 x20 - 969.4 x21 -
472.2 x22 == -106.5
equation13 =
395.5 x1 - 419.4 x2 - 278.8 x3 - 535.4 x4 + 211.9 x5 + 456.2 x6 -
637.8 x7 + 36.3 x8 - 542.7 x9 - 348.8 x10 + 113.8 x11 +
510.4 x12 - 701.2 x13 - 739.3 x14 + 192.8 x15 - 159.8 x16 +
452.8 x17 - 251.6 x18 + 945.3 x19 - 50.3 x20 + 339.5 x21 -
954.5 x22 == -459.5
equation14 = -233.4 x1 - 274.4 x2 + 784.3 x3 - 426.9 x4 + 441.4 x5 -
27. x6 - 552.6 x7 + 699.7 x8 + 869.7 x9 + 331.2 x10 - 646.9 x11 +
670.4 x12 + 993.3 x13 - 378.1 x14 - 648.3 x15 + 76. x16 -
364.8 x17 + 235.1 x18 - 337.3 x19 - 245.9 x20 - 21.4 x21 -
224.2 x22 == -448.5
equation15 =
608.8 x1 + 810.4 x2 + 943.2 x3 + 70.3 x4 + 113. x5 - 599. x6 -
726.2 x7 + 163.7 x8 - 303.6 x9 - 614.9 x10 + 459.5 x11 - 7.1 x12 +
131.3 x13 + 820.5 x14 + 556.5 x15 - 115.2 x16 - 404.8 x17 +
437.2 x18 - 34.1 x19 - 715.4 x20 - 187. x21 - 172. x22 == -222.6
equation16 =
601. x1 + 411.7 x2 - 606.8 x3 + 253.2 x4 - 463.5 x5 + 91.8 x6 +
294.6 x7 + 543.1 x8 - 466.2 x9 + 479.1 x10 + 428.4 x11 +
597.6 x12 - 631.5 x13 + 321.7 x14 - 868.7 x15 + 35.4 x16 +
727.9 x17 + 757.9 x18 + 300.3 x19 - 699.7 x20 + 381.2 x21 +
815.3 x22 == 38.4
equation17 =
463.2 x1 + 294. x2 - 28.1 x3 - 725.8 x4 - 735.1 x5 + 715.3 x6 -
80.1 x7 + 996.4 x8 - 814.8 x9 + 918.2 x10 + 703.6 x11 -
594.5 x12 - 892. x13 + 878.3 x14 + 373.9 x15 - 164.3 x16 -
598. x17 - 200.9 x18 - 527.9 x19 - 991.7 x20 + 762. x21 -
615.8 x22 == 986.9
equation18 =
753.2 x1 - 415.7 x2 - 327.8 x3 - 781.3 x4 - 391.6 x5 - 734.7 x6 +
473.1 x7 - 450.2 x8 + 343.4 x9 + 974.6 x10 + 92. x11 - 143.3 x12 +
272.2 x13 - 389.4 x14 + 189.6 x15 - 979.1 x16 + 196.3 x17 -
153.8 x18 + 913.7 x19 + 571.7 x20 - 420.1 x21 + 941.9 x22 == 189.5
equation19 =
84. x1 + 998.8 x2 + 96.7 x3 + 468.2 x4 - 711. x5 + 357.3 x6 -
501.4 x7 - 110.4 x8 - 478. x9 + 114.4 x10 + 69.3 x11 + 356.3 x12 +
9.5 x13 + 970.2 x14 + 425.5 x15 - 544.5 x16 - 844.8 x17 +
874.2 x18 - 102.2 x19 + 183.1 x20 + 588. x21 - 25.6 x22 == 936.1
equation20 = -675.2 x1 - 269.7 x2 - 829.9 x3 + 107.8 x4 - 908.1 x5 -
810.8 x6 - 664. x7 + 721.2 x8 - 173.7 x9 + 434.3 x10 + 518.8 x11 +
322.5 x12 + 719.3 x13 - 701.7 x14 + 29. x15 + 90.8 x16 -
47.7 x17 - 534.2 x18 + 419.6 x19 - 416.8 x20 + 303.3 x21 -
389.9 x22 == 378.8
equation21 = -351.7 x1 + 817.8 x2 - 373.1 x3 + 100.8 x4 - 605. x5 -
725.4 x6 - 162.2 x7 - 174.9 x8 - 191.2 x9 - 16. x10 - 796.3 x11 +
264.6 x12 + 839. x13 - 327.9 x14 + 130. x15 + 429.6 x16 +
108.2 x17 - 344.2 x18 + 374.3 x19 + 408.3 x20 - 268. x21 +
900.4 x22 == -444.8
equation22 =
345. x1 + 521.9 x2 + 746.8 x3 + 176.4 x4 + 960.2 x5 - 919.6 x6 -
311.7 x7 + 409.5 x8 - 809.9 x9 + 719.8 x10 - 55. x11 + 237.8 x12 -
168.2 x13 - 442.7 x14 - 677.7 x15 - 227.3 x16 - 296.4 x17 +
672.9 x18 + 574.1 x19 - 370.5 x20 + 413.9 x21 + 799. x22 == 352.
system = {equation1, equation2, equation3, equation4, equation5,
equation6, equation7, equation8, equation9, equation10, equation11,
equation11, equation12, equation13, equation14, equation15,
equation16, equation17, equation18, equation19, equation20,
equation21, equation22};
TableForm[system];
m = 22;
n = 22;
mX = Array[StringJoin["x", ToString[#]] &, {n}]
TableForm@mSystem
MatrixForm@mB
Solve[system]jose caballero2018-03-20T20:45:08ZOrder of the variables in a polynomial?
http://community.wolfram.com/groups/-/m/t/1304537
Hello! I have this code
K[Q_, n_Integer] :=
Module[{z, x},
SymmetricReduction[
SeriesCoefficient[
Product[ComposeSeries[Series[Q[z], {z, 0, n}],
Series[x[i] z, {z, 0, n}]], {i, 1, n}], n],
Table[x[i], {i, 1, n}], Table[Subscript[c, i], {i, 1, n}]][[1]]]
primeFactorForm[n_] :=
If[Length@# == 1, First@#, CenterDot @@ #] &[
Superscript @@@ FactorInteger[n]];
string = StringJoin[
Riffle[Table[poly = K[Sqrt[#]/Tanh[Sqrt[#]] &, i] /. c -> p;
gcd = GCD @@ List @@ poly /. Rational[n_, d_]*c_ :> d;
ToString[
Inactive[Set][Subscript[L, i],
1/primeFactorForm[gcd]*Plus @@ List @@ Distribute[gcd*poly] /.
Times[Rational[n_, d_], e__] :>
RowBox[{primeFactorForm[n]/primeFactorForm[d], e}] /.
x_ :> TraditionalForm@
DisplayForm@
RowBox[{1/Denominator[x], "(", Numerator[x], ")"}]],
TeXForm], {i, 3, 7}], "\\\\"]]
CopyToClipboard[string]
which gives an output like this:
$L_3=\frac{1}{3^3\cdot 5^1\cdot 7^1}(2 p_1^3-13 p_2 p_1+62 p_3)\\L_4=\frac{1}{3^3\cdot 5^2\cdot 7^1}(-p_1^4+\frac{-1^1\cdot 19^1}{3^1}p_2^2+\frac{-1^1\cdot 71^1}{3^1}p_1p_3+\frac{2^1\cdot 11^1}{3^1}p_1^2p_2+127 p_4)\\L_5=\frac{1}{3^4\cdot 5^1\cdot 11^1}(\frac{2^1}{3^1\cdot 7^1}p_1^5+\frac{2^1\cdot 73^1}{3^1}p_5+\frac{-1^1\cdot 83^1}{3^1\cdot 5^1\cdot 7^1}p_1^3p_2+\frac{-1^1\cdot 919^1}{3^1\cdot 5^1\cdot 7^1}p_1p_4+\frac{-1^1\cdot 2^4}{5^1}p_2p_3+\frac{79^1}{5^1\cdot 7^1}p_1^2p_3+\frac{127^1}{3^1\cdot 5^1\cdot 7^1}p_1p_2^2)\\L_6=\frac{1}{3^5\cdot 5^2\cdot 7^2\cdot 11^1\cdot 13^1}(\frac{-1^1\cdot 2^1\cdot 691^1}{3^1\cdot 5^1}p_1^6+\frac{-1^1\cdot 167^1\cdot 241^1}{3^1\cdot 5^1}p_3^2+\frac{2^1\cdot 23^1\cdot 89^1\cdot 691^1}{3^1\cdot 5^1}p_6+\frac{2^1\cdot 1453^1}{5^1}p_2^3+\frac{-1^1\cdot 33863^1}{3^1\cdot 5^1}p_1^3p_3+\frac{-1^1\cdot 159287^1}{3^1\cdot 5^1}p_2p_4+\frac{2^1\cdot 6421^1}{3^1\cdot 5^1}p_1^4p_2+\frac{-1^1\cdot 5527^1}{3^1}p_1^2p_2^2+\frac{-1^1\cdot 2^5\cdot 29^1\cdot 181^1}{5^1}p_1p_5+\frac{40841^1}{5^1}p_1^2p_4+\frac{83^1\cdot 349^1}{5^1}p_1p_2p_3)\\L_7=\frac{1}{3^2\cdot 5^1\cdot 7^1\cdot 13^1}(\frac{2^2\cdot 8191^1}{3^4\cdot 5^1\cdot 11^1}p_7+\frac{2^2}{3^4\cdot 5^1\cdot 11^1}p_1^7+\frac{-1^1\cdot 2^1\cdot 23^2}{3^5\cdot 11^1}p_2p_5+\frac{-1^1\cdot 2^1\cdot 113^1}{3^4\cdot 5^1\cdot 7^1}p_1^3p_4+\frac{2^4\cdot 277^1}{3^4\cdot 5^2\cdot 7^1}p_1^2p_5+\frac{-1^1\cdot 2^1\cdot 97^1\cdot 107^1}{3^4\cdot 5^2\cdot 7^1\cdot 11^1}p_3p_4+\frac{2^3\cdot 2087^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_2^2p_3+\frac{-1^1\cdot 2^1\cdot 2161^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_1^5p_2+\frac{-1^1\cdot 2^1\cdot 3989^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_1p_2^3+\frac{-1^1\cdot 2^1\cdot 305633^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_1p_6+\frac{2^2}{5^2\cdot 7^1}p_1^4p_3+\frac{2^3}{3^2\cdot 5^1\cdot 7^1}p_1^3p_2^2+\frac{22027^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_1p_3^2+\frac{-1^1\cdot 39341^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}p_1^2p_2p_3+\frac{1399^1}{3^3\cdot 5^2\cdot 11^1}p_1p_2p_4)$ $
Is there a way to organize the variables in a more intuitive way? For example in the $L_7$ the term $p_7$ comes before $p_1$ and stuff like this happens more often the more terms I have. In general the order is not consistent. I tried some basic grouping/factorizing commands, but they don't seem to work (or I don't place them in the right place). Can someone help me with this? Thank you!Silviu Udrescu2018-03-19T11:23:37ZManipulate Function
http://community.wolfram.com/groups/-/m/t/1305632
Hi,
I need to manipulate the function: x^2 + y^2 + cx^2y^2=1 to show how the graph changes as c ranges from 0 to 10.
Do I use the manipulate function or contour plot? I'm really lost and really new to mathematica.
I also need to implicity differentiate the function to find y'.
Thank you!Kelly Regan2018-03-20T19:11:43ZImprove neural network performance with Mathematica 11.3 ?
http://community.wolfram.com/groups/-/m/t/1298554
I look at the blog post with the 11.3 word cloud with 'Blockchain' as the BIG center and ask how important is that? As I run the exact same data science GPU code on identical hardware software configuration except for the change from Mathematica 11.2 to Mathematica 11.3 and see my neural network performance go from 295 seconds on 11.2 to 2038 seconds on 11.3. Again NO change other than Mathematica version. And then I see that Mathematica 11.3 still does not support current XCode LLVM/GCC compiler or NVIDIA for CUDA tools (watch it move back to old paclet for Mathematica 10.5 after you upgrade your XCode command line tools to current version, am I expected to pay money to figure this out?) .
This is my experience as I explore the value of Mathematica since release 10 to today for data science and at the same time see the massive improvements and quality of Python, Jupyter, NVIDIA, iOS CoreML, Vulkan, Tensorflow and core GPU computing on MacOS, iOS and Linux.
Really questioning the value proposition of Wolfram for data science going forward. Sad.David Proffer2018-03-10T04:14:59ZProblems with accuracy and confusionmatrix plot of classifier measurements?
http://community.wolfram.com/groups/-/m/t/1305462
Greetings,
I have come across yet another problem. I am trying to create VGGNet and with some help have overcome obstacles till training. I am facing problem with finding out the accuracy of my network and also plotting the confusionmatrix.
I had referred the documentation as well as the community discussions and found that my goals can be achieved by two methods:
1)
c = Classify@trainedNet;
ClassifierMeasurements[c, testingData, "Accuracy"]
ClassifierMeasurements[c, testingData, "F1Score"]
ClassifierMeasurements[c, testingData, "ConfusionMatrixPlot"]
c /@ {"Accuracy", "FScore", "ConfusionMatrixPlot"} // TableForm
when I use the above code, I get the following error:
`ClassifierMeasurements::mlincfttp: Incompatible variable type (Image) and variable value (File[C:\Users\cnn\Desktop\images\test\car\00301.jpg])`.
2)
I believe another method is
cm = ClassifierMeasurements[trainedNet, testingData]
cm["Accuracy"]
cm["ConfusionMatrixPlot"]
But when I use the above code I get the following error:
ClassifierMeasurements::mlincfttp: Incompatible variable type (Image) and variable value (File[C:\Users\cnn\Desktop\images\test\car\00301.jpg]).
Initial part of my code is:
dir = SetDirectory["C:\\Users\\cnn\\Desktop\\images"];
loadFiles[dir_] :=
Map[File[#] -> FileNameTake[#, {-2}] &,
FileNames["*.jpg", dir, Infinity]];
trainingData =
loadFiles[FileNameJoin[{dir, "train"}]];
testingData =
loadFiles[FileNameJoin[{dir, "test"}]];
files = FileNames["*.JPG" | "*.JPEG",
"C:\\Users\\cnn\\Desktop\\images\\test", Infinity]
testData = Import[#, ImageSize -> {224, 224}] & /@ files;
No matter whether I use testData or testingData for classifiermeasurements, I am still getting errors and am unable to get the accuracy as well as plot the confusionmatrix.
Any help would be highly appreciated.
Thank you
AshishAshish Sharma2018-03-20T18:57:16ZPDE solving - which solver is best?
http://community.wolfram.com/groups/-/m/t/1305268
![enter image description here][1]
Hello, I am trying to find the best solver for this problem described above. The equation is given in Mathematica commands:
K1 = i;
V = Tan[x];
P = r^2/(Cos[y])^5
eq = K1*r^3*D[u[r, y], {r, 3}] + r^2*D[u[r, y], {r, 2}] + r*K1*D[V^2*u[r, y], {r, 1}] + V*r*K1*D[u[r, y], {r, 1}] + V*r*K1*D[V*u[r,y], {r,1}]+ V^2*r*K1*D[u[r, y], {r, 1}] +
V^3*K1*D[u[r, y], {r, 1}] == 2*u[r,y]*P
and the I.C.s are set to:
u(r,0)=1
u(0,y)=1
u'(0,y)=0
u''(0,y)=10
Which solver and method and form of input is best?
Thanks
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=8519Untitled.jpg&userId=967554Ser Man2018-03-20T14:09:30ZBasketball Boids
http://community.wolfram.com/groups/-/m/t/1305281
Since it is basketball season (right now we are in the middle of March madness) I thought it'd be fun to make a basketball simulation. Basketball Boids is motivated by the boids model of bird flocks, with a term for separation from teammates, a term for cover/separation from the other team (sign depends on offense or defense), an attraction towards the basket. You can try your own parameters, and you can try other models. Ideally, there would be so-called emergent properties like team work and creativity as in the bird flocks.
![basketball boids][1]
Blue is offense and red is defense.
m = Through[{m1, m2, m3, m4, m5}[t]];(*{m1[t],m2[t],m3[t],m4[t],m5[t]}*)
p = Through[{p1, p2, p3, p4, p5}[t]];(*{p1[t],p2[t],p3[t],p4[t],p5[t]}*)
Those are the variables and this solves the differential equation, with the boid parameters in the code. The separation and cover terms are inverse square forces, but the hoop term is just radial.
dm[n_] := separation* Sum[(m[[n]] - m[[i]])/((m[[n]] - m[[i]]).(m[[n]] - m[[i]]))^(3/2), {i, 5}] + cover*Sum[(m[[n]] -
p[[i]])/((m[[n]] - p[[i]]).(m[[n]] - p[[i]]))^(3/2), {i, 5}] + hoop*(-m[[n]]/(m[[n]].m[[n]])^(1/2))
dp[n_] := separation*Sum[(p[[n]] - p[[i]])/((p[[n]] - p[[i]]).(p[[n]] - p[[i]]))^(3/2), {i, 5}] - cover*Sum[(p[[n]] -
m[[i]])/((p[[n]] - m[[i]]).(p[[n]] - m[[i]]))^(3/2), {i, 5}] + hoop*(-p[[n]]/(p[[n]].p[[n]])^(1/2))
params={separation -> 1, cover -> 10, hoop -> 100};
sol = Quiet[NDSolve[Evaluate[N@Flatten[Table[{D[m[[i]], t, t] == dm[i],
D[p[[i]], t, t] == dp[i], (D[m[[i]], t] /. t -> 0) == {0, 0}, (D[p[[i]], t] /. t -> 0) == {0, 0}, (m[[i]] /. t -> 0) == RandomReal[1, 2], (p[[i]] /. t -> 0) == RandomReal[1, 2]}, {i, 5}]]/. params],Join[m, p], {t, 0, 1}][[1]]];
ParametricPlot[Evaluate[Join[m, p] /. sol], {t, 0, 1}, PlotStyle -> Join[Table[Blue, 5], Table[Red, 5]]]
![parametric plot of a solution][2]
The animation above was made with
Animate[ListPlot[Join[Style[#, Blue] & /@ m, Style[#, Red] & /@ p] /. sol /. t -> s,
Axes -> False, Prolog -> {Brown, Disk[{0, 0}, .2]}, AspectRatio -> 1, PlotRange -> 4 {{-1, 1}, {-1, 1}}], {s, 0, 1, .01}]
(I remember talking several years ago to a student at the [Wolfram High School Summer Program][3] about Boids, which is why I was thinking about them.)
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=basketball-boids.gif&userId=23275
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=basketball-boids.png&userId=23275
[3]: https://education.wolfram.com/summer/camp/Todd Rowland2018-03-20T14:23:53ZWrong data type from MatrixExp?
http://community.wolfram.com/groups/-/m/t/1305503
Good morning,
I am using MatrixExp[] inside a Compiled function and, at a certain point, I assign to a square matrix the output of MatrixExp. I am getting an error complaining that MatrixExp is of type {_Real,0} and cannot be assigned to a variable of type {_Real,2}. The code is quite straightforward... The problem occurs with the instruction "M=M.Mexp". If I change that instruction to "M = M + Mexp" the problem goes away. Is M.Mexp not of type {Real,2}?? Any thoughts?
par = {5.7, 1.038, 1.016, 1.018, 1.015, 0.186, 0.003, 0.009, 0.004,
0.0003, 0.00004, 0.071};
dim = 69;
P = Compile[{{par, _Real, 1}},
Module[{i, L1, L2, L3, L4, L, q1, q2, q3, q4, gama, alfa, beta,
A},
L1 = par[[1]]; L2 = par[[2]]; L3 = par[[3]]; L4 = par[[4]];
L = par[[5]];
q1 = par[[6]]; q2 = par[[7]]; q3 = par[[8]]; q4 = par[[9]];
gama = par[[10]];
alfa = par[[11]]; beta = par[[12]];
A = ConstantArray[0.0, {dim, dim}];
A[[1, 1]] = -(L1 + q1); A[[2, 2]] = -(L2 + q2);
A[[3, 3]] = -(L3 + q3); A[[4, 4]] = -(L4 + q4);
A[[1, 2]] = L1; A[[2, 3]] = L2; A[[3, 4]] = L3; A[[4, 5]] = L4;
For[i = 5, i <= dim - 1, i++, A[[i, i + 1]] = L];
For[i = 5, i <= dim - 1, i++,
A[[i, i]] = -(L + gama + alfa*Exp[beta*i])];
A[[dim, dim]] = -(gama + alfa*Exp[beta*dim]);
Return[A]
]
];
OBJ2 = Compile[{{par, _Real, 1}},
Module[{M, Mexp, s, i},
Mexp = MatrixExp[P[par]];
M = ConstantArray[0., {dim, dim}];
For[i = 1, i <= dim, i++, M[[i, i]] = 1.;];
vec = ConstantArray[0., {dim + 1}];
For[i = 1, i <= dim, i++,
M = M.Mexp; vec[[i]] = Total[M[[1, All]]]];
Return[
Total[Table[((Q[[i]] - (1 - vec[[i + 1]]/vec[[i]]))^2)*
S[[i]]^2, {i, 1, dim}]]]
]
];João Janela2018-03-20T14:19:50Zresize large number of images to required size?
http://community.wolfram.com/groups/-/m/t/1305226
Greetings,
I am trying to implement the VGG19 neural network. I have downloaded the imagenet dataset and am testing a few classes.
I have figured out that NetEncoder can be used to resize images for training but am struck with resizing the images for testing.
I am using the following line of code to import the images into testData variable.
testData = Import["C:\\Users\\cnn\\Desktop\\images\\test", "*.jpg"];
Now my problem is that the images in the folder are of various sizes and i want to resize all of them to 224 x 224 so that i can use it to test my network.
I have tried using
testData2=ImageResize[testData,{224,224}];
but it has resulted in error.
> **EDIT :** **Forgot to mention that there are two sub folders in the path. Problem has been resolved, Thank you.**Ashish Sharma2018-03-20T11:50:56Z[✓] Use NDSolve for a third-order differential PDE?
http://community.wolfram.com/groups/-/m/t/1305242
Hi, I have prepared the given NDSolve script for a third-order differential PDE:
K1 = i;
V = Tan[x];
P = r^2/(Cos[y])^5
eq = K1*r^3*D[u[r, y], {r, 3}] + r^2*D[u[r, y], {r, 2}] + r*K1*D[V^2*u[r, y], {r, 1}] + V*r*K1*D[u[r, y], {r, 1}] + V*r*K1*D[V*u[r,y], {r,1}]+ V^2*r*K1*D[u[r, y], {r, 1}] +
V^3*K1*D[u[r, y], {r, 1}] == 2*u[r,y]*P
sol = u[r, y] /.
NDSolve[{eq,
u[0, y] == 1,
Derivative[1, 0][u][0, y] == 0,
Derivative[2, 0][u][0, y] == 10,
u[r, 0] == Cos[x],
Derivative[0, 1][u][r, 0] == 0},
u, {r, 0, 3}, {y, 0, 3},
MaxSteps -> Infinity, PrecisionGoal -> 1,
AccuracyGoal -> 1,
Method -> {"MethodOfLines",
"SpatialDiscretization" -> {"TensorProductGrid",
"MinPoints" -> 32, "MaxPoints" -> 32, "DifferenceOrder" -> 2},
Method -> {"Adams", "MaxDifferenceOrder" -> 1}}] // Quiet
Plot3D[sol, {r, 0, 3}, {y, 0, 3}, AxesLabel -> Automatic]
However, I get the error:
> NDSolve::dsvar: 0.00021449999999999998` cannot be used as a variable.
>
> ReplaceAll::reps: {NDSolve[{0.0002145 i Tan[x]
> (u^(1,0))[0.0002145,0.0002145]+0.0006435 i Tan[<<1>>]^2
> (u^(1,0))[0.0002145,0.0002145]+i Tan[<<1>>]^3
> (u^(1,0))[0.0002145,0.0002145]+4.60102*10^-8
> (u^(2,0))[0.0002145,0.0002145]+9.8692*10^-12 i
> (u^(3,0))[0.0002145,0.0002145]==9.20205*10^-8
> u[0.0002145,0.0002145],<<4>>,(u^(0,1))[0.0002145,0]==0},u,<<4>>,AccuracyGoal->1,Method->{<<1>>}]} is neither a list of replacement rules nor a valid dispatch table, and
> so cannot be used for replacing.
What is the error really?
Thanks!Ser Man2018-03-20T12:24:20ZSetup Workbench with Eclipse Neon3, current Java IDE, distribution?
http://community.wolfram.com/groups/-/m/t/1105418
Hi,
I am trying to setup Workbench with Eclipse Neon3, current Java IDE, distribution. It runs into the cerfificate (as expected), but after clicking OK does not finish the setup - at least after restart there is no sign of it.
![enter image description here][1]
![enter image description here][2]
any ideas anyone?
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Unbenannt.JPG&userId=196304
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=9228Unbenannt.JPG&userId=196304Erik Itter2017-05-24T10:29:12Z[✓] Get a clean matrix using this code?
http://community.wolfram.com/groups/-/m/t/1304776
i got a question about wolfram mathematica i want to make this 22 equations given to me and transform them into a 22x22 matrix.
this is my code.
equation1 = -318.1 x1 - 309.9 x2 + 993.1 x3 + 395.3 x4 - 599.2 x5 -
419.4 x6 + 676. x7 + 650.9 x8 + 512.9 x9 + 114.3 x10 - 491.7 x11 -
402.1 x12 + 111.4 x13 + 182.4 x14 - 593.9 x15 - 814.3 x16 +
91.7 x17 + 248.3 x18 - 421.3 x19 + 199.1 x20 - 711.4 x21 -
752.7 x22 == 249.7
equation2 = -281.9 x1 - 568.7 x2 + 206.9 x3 - 303.1 x4 + 674.3 x5 -
226.5 x6 + 507.4 x7 + 196.9 x8 + 764.6 x9 - 214.5 x10 -
587.5 x11 - 105.8 x12 - 869.8 x13 - 110.2 x14 + 431.9 x15 -
299.8 x16 + 979.4 x17 - 881.1 x18 - 16.6 x19 - 221.8 x20 -
33.5 x21 + 134.7 x22 == 637.8
equation3 = -577. x1 - 268.5 x2 - 692.2 x3 + 462.6 x4 + 81.4 x5 -
303.1 x6 + 736.6 x7 + 780.9 x8 + 560.8 x9 + 627.6 x10 +
698.8 x11 - 81.6 x12 + 436.9 x13 + 591.3 x14 + 651.7 x15 -
203.9 x16 + 449.1 x17 - 13.5 x18 + 964.6 x19 - 134.3 x20 +
692.6 x21 + 751.5 x22 == -462.
equation4 = -633.2 x1 - 500.6 x2 - 890.7 x3 + 10.4 x4 - 588. x5 +
144.1 x6 - 664.9 x7 + 777.8 x8 + 372. x9 + 684.1 x10 + 804.9 x11 -
215. x12 + 333.5 x13 - 860.5 x14 - 45.2 x15 - 10.3 x16 -
794.8 x17 + 992.3 x18 - 67.2 x19 - 200.6 x20 + 169.7 x21 +
70.6 x22 == 136.8
equation5 = -495.8 x1 + 823.8 x2 + 118.7 x3 - 219. x4 - 764. x5 +
785.8 x6 - 708.5 x7 + 224.4 x8 + 380.5 x9 - 517.9 x10 -
590.5 x11 - 967.3 x12 - 759. x13 - 981.3 x14 - 185.6 x15 -
703. x16 + 462.2 x17 + 793.8 x18 + 501.2 x19 + 11.8 x20 +
218.1 x21 - 727.9 x22 == -598.3
equation6 =
952.6 x1 - 555.6 x2 + 78.9 x3 + 601.1 x4 + 215.8 x5 - 255.1 x6 -
648.4 x7 + 576.4 x8 - 374.7 x9 - 253.8 x10 - 964.9 x11 +
576.1 x12 - 175.2 x13 - 71.6 x14 + 792. x15 + 118.1 x16 +
680.2 x17 - 632.4 x18 + 520.4 x19 - 789.7 x20 + 461.7 x21 -
141.9 x22 == 3.2
equation7 =
-717.9 x1 - 333.2 x2 - 977.4 x3 - 270.4 x4 + 610.1 x5 - 736.9 x6 -
5.5 x7 + 955.7 x8 - 530.1 x9 + 416.5 x10 - 427.6 x11 - 424.8 x12 -
423.5 x13 - 670.7 x14 - 364.6 x15 - 422.1 x16 + 277.3 x17 +
118.1 x18 - 203.6 x19 - 793.4 x20 - 520.7 x21 + 828. x22 == 229.4
equation8 = -570.9 x1 - 209.9 x2 + 946.4 x3 + 906.4 x4 - 927.9 x5 +
779.3 x6 + 105.1 x7 + 438.7 x8 - 512. x9 - 788.2 x10 - 820.1 x11 -
951.3 x12 - 144.4 x13 - 219.8 x14 - 976. x15 + 955.4 x16 +
808.8 x17 + 375.8 x18 - 94.8 x19 + 111.2 x20 + 447.2 x21 -
102.6 x22 == 184.7
equation9 =765.3 x1 - 780.6 x2 - 695.2 x3 - 656.6 x4 + 35.1 x5 - 853.9 x6 +
62.6 x7 - 194.2 x8 - 928.4 x9 - 939.1 x10 + 963.2 x11 -
460.8 x12 - 185.4 x13 + 223.1 x14 - 310.2 x15 - 61.4 x16 -
150.7 x17 - 232. x18 - 4.3 x19 + 497.3 x20 - 60.7 x21 + 684.8 x22 ==
404.2
equation10 = -613.9 x1 + 606.2 x2 - 633.5 x3 + 578.5 x4 + 155.8 x5 +
397.8 x6 + 95.6 x7 - 327.6 x8 + 783.9 x9 - 677.1 x10 - 866.4 x11 +
839.8 x12 - 276.5 x13 + 457.1 x14 - 12.6 x15 + 765. x16 +
402.2 x17 - 539.8 x18 - 951.4 x19 + 741. x20 + 10.1 x21 -
21.3 x22 == 677.
equation11 = -974.4 x1 - 666.2 x2 + 706.6 x3 + 354.7 x4 - 416.6 x5 -
636.4 x6 - 443.9 x7 + 694.5 x8 + 450.9 x9 - 819.8 x10 -
891.7 x11 - 362.5 x12 + 874.9 x13 + 730.4 x14 + 516.2 x15 -
50.5 x16 + 559.3 x17 + 627.8 x18 + 8.9 x19 + 315.5 x20 +
70.5 x21 - 912.4 x22 == 617.1
equation12 = -908.1 x1 - 672. x2 + 731.1 x3 - 909.8 x4 - 413.6 x5 +
222.3 x6 + 272.4 x7 + 84.3 x8 + 137. x9 + 402.2 x10 + 812.6 x11 +
760.3 x12 + 785.5 x13 + 988.2 x14 + 31.1 x15 + 999. x16 -
544.8 x17 + 554.8 x18 + 647.5 x19 + 101.1 x20 - 969.4 x21 -
472.2 x22 == -106.5
equation13 =
395.5 x1 - 419.4 x2 - 278.8 x3 - 535.4 x4 + 211.9 x5 + 456.2 x6 -
637.8 x7 + 36.3 x8 - 542.7 x9 - 348.8 x10 + 113.8 x11 +
510.4 x12 - 701.2 x13 - 739.3 x14 + 192.8 x15 - 159.8 x16 +
452.8 x17 - 251.6 x18 + 945.3 x19 - 50.3 x20 + 339.5 x21 -
954.5 x22 == -459.5
equation14 = -233.4 x1 - 274.4 x2 + 784.3 x3 - 426.9 x4 + 441.4 x5 -
27. x6 - 552.6 x7 + 699.7 x8 + 869.7 x9 + 331.2 x10 - 646.9 x11 +
670.4 x12 + 993.3 x13 - 378.1 x14 - 648.3 x15 + 76. x16 -
364.8 x17 + 235.1 x18 - 337.3 x19 - 245.9 x20 - 21.4 x21 -
224.2 x22 == -448.5
equation15 =
608.8 x1 + 810.4 x2 + 943.2 x3 + 70.3 x4 + 113. x5 - 599. x6 -
726.2 x7 + 163.7 x8 - 303.6 x9 - 614.9 x10 + 459.5 x11 - 7.1 x12 +
131.3 x13 + 820.5 x14 + 556.5 x15 - 115.2 x16 - 404.8 x17 +
437.2 x18 - 34.1 x19 - 715.4 x20 - 187. x21 - 172. x22 == -222.6
equation16 =
601. x1 + 411.7 x2 - 606.8 x3 + 253.2 x4 - 463.5 x5 + 91.8 x6 +
294.6 x7 + 543.1 x8 - 466.2 x9 + 479.1 x10 + 428.4 x11 +
597.6 x12 - 631.5 x13 + 321.7 x14 - 868.7 x15 + 35.4 x16 +
727.9 x17 + 757.9 x18 + 300.3 x19 - 699.7 x20 + 381.2 x21 +
815.3 x22 == 38.4
equation17 =
463.2 x1 + 294. x2 - 28.1 x3 - 725.8 x4 - 735.1 x5 + 715.3 x6 -
80.1 x7 + 996.4 x8 - 814.8 x9 + 918.2 x10 + 703.6 x11 -
594.5 x12 - 892. x13 + 878.3 x14 + 373.9 x15 - 164.3 x16 -
598. x17 - 200.9 x18 - 527.9 x19 - 991.7 x20 + 762. x21 -
615.8 x22 == 986.9
equation18 =
753.2 x1 - 415.7 x2 - 327.8 x3 - 781.3 x4 - 391.6 x5 - 734.7 x6 +
473.1 x7 - 450.2 x8 + 343.4 x9 + 974.6 x10 + 92. x11 - 143.3 x12 +
272.2 x13 - 389.4 x14 + 189.6 x15 - 979.1 x16 + 196.3 x17 -
153.8 x18 + 913.7 x19 + 571.7 x20 - 420.1 x21 + 941.9 x22 == 189.5
equation19 =
84. x1 + 998.8 x2 + 96.7 x3 + 468.2 x4 - 711. x5 + 357.3 x6 -
501.4 x7 - 110.4 x8 - 478. x9 + 114.4 x10 + 69.3 x11 + 356.3 x12 +
9.5 x13 + 970.2 x14 + 425.5 x15 - 544.5 x16 - 844.8 x17 +
874.2 x18 - 102.2 x19 + 183.1 x20 + 588. x21 - 25.6 x22 == 936.1
equation20 = -675.2 x1 - 269.7 x2 - 829.9 x3 + 107.8 x4 - 908.1 x5 -
810.8 x6 - 664. x7 + 721.2 x8 - 173.7 x9 + 434.3 x10 + 518.8 x11 +
322.5 x12 + 719.3 x13 - 701.7 x14 + 29. x15 + 90.8 x16 -
47.7 x17 - 534.2 x18 + 419.6 x19 - 416.8 x20 + 303.3 x21 -
389.9 x22 == 378.8
equation21 = -351.7 x1 + 817.8 x2 - 373.1 x3 + 100.8 x4 - 605. x5 -
725.4 x6 - 162.2 x7 - 174.9 x8 - 191.2 x9 - 16. x10 - 796.3 x11 +
264.6 x12 + 839. x13 - 327.9 x14 + 130. x15 + 429.6 x16 +
108.2 x17 - 344.2 x18 + 374.3 x19 + 408.3 x20 - 268. x21 +
900.4 x22 == -444.8
equation22 =
345. x1 + 521.9 x2 + 746.8 x3 + 176.4 x4 + 960.2 x5 - 919.6 x6 -
311.7 x7 + 409.5 x8 - 809.9 x9 + 719.8 x10 - 55. x11 + 237.8 x12 -
168.2 x13 - 442.7 x14 - 677.7 x15 - 227.3 x16 - 296.4 x17 +
672.9 x18 + 574.1 x19 - 370.5 x20 + 413.9 x21 + 799. x22 == 352.
system = {equation1, equation2, equation3, equation4, equation5,
equation6, equation7, equation8, equation9, equation10, equation11,
equation11, equation12, equation13, equation14, equation15,
equation16, equation17, equation18, equation19, equation20,
equation21, equation22}
MatrixForm[system]
when i run the program i dont get a clean matrix format i dont know why, please can somebody help my with this.jose caballero2018-03-19T20:42:01ZWrite a complex PDE with proper format for NDSolve?
http://community.wolfram.com/groups/-/m/t/1304995
Hello, I would like to write the given PDE for NDSolve,
![enter image description here][1]
with the given initial conditions:
psi(r,0)=1
psi(0,phi)=0
psi'(r,0)=0
psi'(0,phi)=0
psi''(r,0)=10
psi''(0,phi)=10
How do I write that in NDSolve form?
I tried the following test:
uval = NDSolveValue[{i*r^3*D[u[r,y],r,r,r]+r^2*D[Tan[y]*u[r,y],r,r]+r*D[Tan[y],r]*r*i*D[u[r,y],r]+r*i*D[(Tan[y])^2*u[r,y],r]+Tan[y]*r*i*D[u[r,y],r]+Tan[y]*r*i*D[Tan[y]*u[r,y],r]+(Tan[y])^2*r*i*D[u[r,y],r]+(Tan[y])^3*i*u[r,y]==2*u[r,y]*r^2/(Cos[y])^5, u[r, -3] == u[r, 3] == u[-3, y] == u[3, y] == 0}, u, {r, -3, 3}, {y, -3, 3}]
However it says:
> "NDSolveValue::femcmsd: The spatial derivative order of the PDE may
> not exceed two."
Thanks!
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=5037Untitled.jpg&userId=967554Ser Man2018-03-20T09:50:21ZMathematica download manager do not start on windows 7, home edition
http://community.wolfram.com/groups/-/m/t/1299166
I've had this problem before, and never got any help. I am not able to install any Wolfram products. I download the download manager .exe OK. But when I run it (by double clicking on it), it hangs. I see it on the task manger. Eventually it times out.
According to instructions, it is supposed to open "immediately". Yet., this has never happened to me. This window never opens. So I have no idea why it says "immediately"
![enter image description here][1]
I made sure also the desktop is clear, just in case it is hiding behind some window.
I had this problem before when I tried to install the Wolfram player. Same thing happens. I download the DM.exe OK. But it never runs. [Here is a link][2]
Today, I wanted to install 11.3 on windows 7. I downloaded `Mathematica_11.3.0_WIN_DM.exe` OK. But again, it does not start.
![enter image description here][3]
I also tried running it as administrator. No help. it still hangs.
I do not use Windows firewall. I use ESET security/anti-virus software. Been using it for many years with no problems from any software. But I also disabled this software now to see if it has any effect, then tried running the Mathematica download manager. It still hanged.
I also booted the PC in safe mode (but with network enabled). Then Tried running DM manager. Again, it hangs. Even in safe mode.
If I leave it running, after about 40 minutes of so, it times out.
![enter image description here][4]
If I try to run it a second time while waiting for the first one, which is still running, I get error that only one instance is allowed to run
![enter image description here][5]
This whole process of installing Mathematica is broke. Before, I would just download the .exe itself. I do not care if it was 10 GB. Now, I can't install any Wolfram product using this download manager thing.
Is it possible to download the actual installer.exe or the product file itself without having to download this small download manager (as used to be the case before?) It does not matter if it too large. I see that on Linux, there is no download manager. But only for windows and Mac. It will be better to also give the choice to customer to either use the download manager or to download the file directly itself, and let **customers decide what to do**.
I have no idea why it does not start. I can't see any errors. I see it sitting there in the task manager and nothing happens.
My PC is home edition, running windows 7, 64 bit. Latest version. Any ideas what to do?
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Untitled2.jpg&userId=89105
[2]: https://mathematica.stackexchange.com/questions/160718/how-to-download-cdf-player-11-2?rq=1
[3]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Untitled.jpg&userId=89105
[4]: http://community.wolfram.com//c/portal/getImageAttachment?filename=time_out.jpg&userId=89105
[5]: http://community.wolfram.com//c/portal/getImageAttachment?filename=second_instance.png&userId=89105Nasser M. Abbasi2018-03-10T05:33:17ZModify the theme in the Presenter Notebooks introduced in 11.2 ?
http://community.wolfram.com/groups/-/m/t/1303048
I'm giving my first talk with the new Presenter Notebooks feature in 11.3.
I've used Slideshow in the past.
I'm being asked to add the logo of the conference onto my slides (e.g., a footer).
Is this possible? If so how?
I suppose I could use a DockedCell, but I am guessing there is a better solution.W. Craig Carter2018-03-16T21:35:26ZExpose DocuTools outside of Workbench
http://community.wolfram.com/groups/-/m/t/1305124
If you use Workbench you know you can use it to build documentation via a system called DocuTools. This is basically just a paclet that gets mirrored down into Eclipse with Workbench along with a bunch of other junk.
The system's a little bit overkill for casual users like myself, but I use the [Transmogrify and DocumentationBuild paclets](https://mathematica.stackexchange.com/q/148596/38205) after extracting them from Workbench.
In general, I find Workbench clunky and not as natural to my Workflow as just customizing Mathematica, so it'd be wonderful if they could be exposed on Wolfram's paclet server. I look forward to the day when ``PacletFindRemote["Transmogrify"]`` finally works.
This is also like a 2-second update to push.
If for reasons unknown they can't be pushed to the paclet server, hopefully they'll end up on the Paclet Repository that was promised at this years WTC and which can literally not come soon enough.b3m2a1 2018-03-20T04:32:54ZWhat is the substitute for MatrixNorm?
http://community.wolfram.com/groups/-/m/t/1304942
When I type these,
B={{1,2},{3,4}}
Norm[N[B]]
the output is,
> {{1, 2}, {3, 4}}
>
> 5.46499
But in old textbook, the command
MatrixNorm[N[B]]
is 7.(This command is not used anymore now but I cannot find the substitute for this :( )
How can I get this result?
Nice day!Jihun Park2018-03-20T01:26:14ZPage 117-Mathematica Beyond Mathematics - Par. value in graph label and { }
http://community.wolfram.com/groups/-/m/t/1304845
On page 117, in Mathematica Beyond Mathematics it states "You can also include a drop -
down button.This will automatically be added when a parameter \
contains five or more choices as shown in the next example.In this \
case we have the possibility to choose several filling alternatives \
for displaying a graph.We use the Plot option :
Filling.We also use PlotLabel to show the parameter value when \
labeling the graph.Notice that the combination of Plot options with \
Manipulate greatly increases the number of possible combinations for \
dynamic interactions.Manipulate[
Plot[Sin[nx], {x, 0, 2 \[CapitalPi]},
I do not get PlotLabel changing the parameter in labeling the graph. In addition, I receive a list of 2 elements where the second element is the null set.
See attachment.
Why does the parameter not change in labeling the graph? Also why do I get a list that includes {Null}?
Filling \[RightArrow] choice, PlotRange \[RightArrow] 2,
PlotLabel \[RightArrow]
Style[StringForm["Sin(nt ) representation for n= `1`",
PaddedForm[n, {4, 2}]], 10]], {n, 1,
20}, {{choice, None, "Choice"}, {None, Axis, Top, Bottom,
Automatic, 1, 0.5, 0, -0.5, -1}},
ContentSize \[RightArrow] {200, 150}]"
However, when I type the following:
Manipulate[
Plot[Sin[n x], {x, 0, 2 \[Pi]}, Filling -> choice, PlotRange -> 2,
PlotLabel -> Style[StringForm["Sin(n t) representation for n='1'",
PaddedForm[n, {4, 2}]], 10]],
{n, 1, 20},
{{choice, None, "Choice"},
{None, Axis, Top, Bottom, Automatic, 1, 0.5, 0, -0.5, -1}},
ContentSize -> {200, 150}]
, I do not getSamuel Kohn2018-03-20T02:25:04ZFormat certain numbers inside a RandomSample command?
http://community.wolfram.com/groups/-/m/t/1304982
Hi! A simple question here. So I want to use RandomSample to get a permutation of a set of integers. Easy enough. But I want a certain range of numbers (say 1-15 out of 50) to appear red so I can pick them out immediately. This second part I'm having some trouble with. Would anyone know how to write this?
Thanks so much!Nuliajuk Akesuk2018-03-20T01:40:53ZMathematica books for economists?
http://community.wolfram.com/groups/-/m/t/1302120
Mathematica for microeconomics by John Robert Stinespring, is a good one but its latest version is from 2002.
Can you give any recommendation for mathematica reference for economics with recent publication?
Nice day :)Jihun Park2018-03-14T02:24:25ZUse LSTM to predict points on a sine curve?
http://community.wolfram.com/groups/-/m/t/1304916
Hello, I am a bit of a newbie to the Wolfram language so sorry if this is an easy question. I have been given the task of "generating a sine curve, with ~1000 y points of intervals across a few periods of the sine curve. Then use LSTM time series prediction to train on the points and try to predict the next 10 points" and I am unsure how to even begin to do this. If anyone can help, that'd be great. Thank you for your timeaat872018-03-20T01:08:49ZConfigure a custom domain/subdomain to a Wolfram Cloud base url?
http://community.wolfram.com/groups/-/m/t/1304233
Is it possible to configure a custom domain/subdomain to our Wolfram Cloud base url?
Let's say I have a domain xyz.com, and I want to configure it to point to the wolframcloud.com/objects/username url?
That's so my Cloud objects can be served from xyz.com/my-object-name.
Ideally, you'd be able to specify a subdir, such as xyz.com/my-object-name/sub-dir, so that it is possible to host more than one domain under the same Wolfram account.
Please see GitHub Pages as an example:
https://help.github.com/articles/custom-domain-redirects-for-github-pages-sites/Quenio Santos2018-03-18T15:32:47ZClarify the internal structure of FittedModel?
http://community.wolfram.com/groups/-/m/t/1304832
I am trying to write a fitting routine, similar to LinearModelFit and NonlinearModelFit. I would like to generate a similar type of output, that is a FittedModel structure. It could look like this, if you apply FullForm to the result to a LinearModelFit calculation:
FittedModel[List["Linear",List[0.18644067796610153`,0.6949152542372882`],List[List[x],List[1,x]],List[0,0]],List[List[1.`,1.`,1.`,1.`]],List[List[0,1],List[1,0],List[3,2],List[5,4]],List[List[1.`,0.`],List[1.`,1.`],List[1.`,3.`],List[1.`,5.`]],Function[Null,Internal`LocalizedBlock[List[x],Slot[1]],List[HoldAll]]]
Some parts of this structure is easy to interpret, but has anyone the full interpretation?Ingolf Dahl2018-03-19T21:08:59ZPut WolframAudio to the right folder?
http://community.wolfram.com/groups/-/m/t/1304751
I think the WolframAudio folder for recordings and junk is in objectively the wrong folder. Currently it's at:
FileNameJoin@{$UserDocumentsDirectory, "WolframAudio"}
Since WRI is already forcing me to pollute my `$UserDocumentsDirectory` with a `Wolfram Mathematica` folder (sidenote: why can't this just be `"Mathematica"` or, much less desirably, `"Wolfram"`? I'd imagine a tech company would want to avoid whitespace in file paths...) I'd wish it could at least keep that pollution contained and put the audio in:
FileNameJoin@{$UserDocumentsDirectory, "Wolfram Mathematica", "WolframAudio"}
That's what the new chat-system is already kind enough to do.b3m2a1 2018-03-19T18:37:24Z[✓] Apply IndeterminateThreshold to a neural net classifier?
http://community.wolfram.com/groups/-/m/t/1303324
I hope to apply IndeterminateThreshold to my neural net classifier like this:
myClassifier = Import[“myNet.wlnet"]];
class = myClassifier[myDataItem ,IndeterminateThreshold -> 0.8]
Unfortunately, IndeterminateThreshold is not a valid option in this case.
It seems that this should be allowed since this `ClassifierMeasurements[ myClassifier, testSet,
IndeterminateThreshold -> 0]` is a valid statement.
How can I change the IndeterminateThreshold without retraining?Jeff Burns2018-03-16T20:31:58ZUse NIntegrate with Boole and IntervalMemberQ?
http://community.wolfram.com/groups/-/m/t/1296215
Hi,
I am illustrating my problem in this toy example below. I would like to integrate (say the value 1 in this toy example) over a sub-domain {0,1} of the full domain {0,2}. So I try this:
NIntegrate[ Boole[ IntervalMemberQ[ Interval[{0, 1}], x]], {x, 0, 2}]
Mathematica gives me 0 as the answer, while I expect 1.
Am I doing something wrong?
I am using Mathematica 11.0.1.0 on Linux x86 (64-bit).
Thanks.Shrihari Gopalakrishna2018-03-05T08:04:37Z[✓] Distinguish two equal variables?
http://community.wolfram.com/groups/-/m/t/1304418
Hey, everybody.
I have this expression
expr = (A (n1 - n1^2 + n2 + 2 n1 n2 - n2^2) +
c ((-1 + n1) n1 - (1 + 2 n1) n2 + n2^2) +
n1 (1 - n1 + n2) \[Gamma]1 + (1 + n1 - n2) n2 \[Gamma]2)/(B (1 + n1 +
n2))
I wish to simplify it, with the assumption n1=n2 and n1 + n2 = N. However, I want to keep the distinction between the two variables.
I should find
(N (A - c + (n2 \[Gamma]2 * n1 \[Gamma]1) / N)/(B (1 + N))
However I don't know how to enter the assumptions, because n1 = n2 replaces the variable.
Thanks in advance if you have an answerAlexandre Ruiz2018-03-18T22:07:21Z[✓] Export ListContourPlot graphics partly rasterized?
http://community.wolfram.com/groups/-/m/t/1273106
It is always painful to export nice vector plots in raster format in order to get acceptable size of file. Thin lines, arrows etc. never look very fine (except may be 3000 dpi). For example this
Export["g.pdf",ListContourPlot[Table[RandomReal[],{30},{30}],
InterpolationOrder->2,PlotLegends->Automatic,FrameLabel->{"x","y"}]]
will give about 3Mb file but with option `ContourShading→False` it will be only 300Kb. Is it possible to replace vector objects for shades by raster? I want to keep vector form for all lines (contours, frame, labels, legend) in output PDF file.Rodion Stepanov2018-01-26T19:29:53Z[✓] Why is Notebook-level evaluation sometimes done in the wrong order?
http://community.wolfram.com/groups/-/m/t/1304162
Here is a very simple notebook containing three cells. When it is evaluated (via menu Evaluation/Evaluate Notebook) the first time the result of the third cell is incorrect. But if it is evaluated again, then the result is correct. See the two screenshots attached (done on Raspberry Pi 3 running Wolfram Mathematica 11.2.0):
![enter image description here][1]
![enter image description here][2]
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=pi-math1.png&userId=225956
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=pi-math2.png&userId=225956Tigran Aivazian2018-03-18T15:58:16ZRead SEGY data in Mathematica?
http://community.wolfram.com/groups/-/m/t/1272436
Please I need code/software to read SEGY data in order to input to MathematicaOluseun Sanuade2018-01-25T17:35:21Z[✓] How restricted pattern works?
http://community.wolfram.com/groups/-/m/t/1304338
As as far as I know, I can create patterns with conditions attached to them, like <br>
```f[x_Integer] := x``` <br>
With this function I would expect something like this<br>
```In:= {f[2], f[1.5]}
Out:={2, 1.5}
```
Did Mathematica use any type-inference system? or just evaluated the condition and then apply his rules, if that's the case, there are any difference between ```f[x_Integer] := x``` and ```f[x_ ? IntegerQ] := x```
Thanks.Santiago Hincapie2018-03-19T02:29:53ZCalculate distance between two points?
http://community.wolfram.com/groups/-/m/t/1304507
Hi there,
I wrote a code and used the function possibility in order to make the code more lean, however it seems that the function functionality makes the thing not work.
![Mathematica code and output][1]
I computed the same equation in Excel and get the same answer as the final result of the Mathematica code
![enter image description here][2]
Help would be much appreciated. Not sure what I do wrong within the programming now. I somewhat assume the use of Degree inside the function might cause some trouble, but help is appreciated as mentioned before. Ah and just realised, the screenshot doesn't include the definition of rroller and wgap in Mathematica, but they are as such:
wgap = 0.0005 ;(*gap width in meters*)
rroller = 0.1; (*roller radius in meters*)
Cheers,
Eric
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Capture.PNG&userId=1304293
[2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Capture2.PNG&userId=1304293Eric Hoefgen2018-03-19T01:32:17ZWolfram users as a cyber community.
http://community.wolfram.com/groups/-/m/t/1304068
Hello everyone,
I think that in the long term, Wolfram users community, like many others, will evolve in to a kind of cyber nation, sharing much more than using a common software. An education system, a crypto currency, a constitution or even a piece of land of their own.
Sounds like fiction at first, but such a rapid change in computer science will eventually have reflections in social and political life. This way or another...
regardsOZGUN CAN2018-03-18T20:18:03Z[✓] Plot the following function?
http://community.wolfram.com/groups/-/m/t/1304256
Consider the following code:
f[b_] = ProbabilityDistribution[ b Exp[-bx] , {x, 0.01, \[Infinity]}, Assumptions -> b > 0];
Plot[PDF[f[1.5], x], {x, 0, 2}, PlotRange -> All]jawad hussain2018-03-18T17:20:09ZCompare/contrast Wolfram|One, Development Platform, Mathematica Online, etc
http://community.wolfram.com/groups/-/m/t/1096129
Can somebody give a succinct comparison of the features of the various products: Mathematica, Mathematica Online, Wolfram|One, Wolfram Development Platform, Wolfram Cloud, Wolfram Data Drop.
I find differentiating so many similar products &mdash; especially those manifestly cloud-based &mdash; rather confusing.Murray Eisenberg2017-05-16T18:35:44ZWrap GalleryView in Other Views/Elements?
http://community.wolfram.com/groups/-/m/t/1304224
Is it possible to put the GalleyView inside other UI elements, and publish it to the Cloud?
When I deploy the following:
CloudDeploy[
Column[{TextCell["Some Title"], GalleryView[....]}],
"some/url"
]
I see a blank notepad.
Instead, I'd like to see the gallery view with the title above.
P.S.: I'm aware that the GalleryView has a title option. The above is just a simple example of more sophisticated layouts I'd like to create.Quenio Santos2018-03-18T15:05:10ZCreate a circular spline for a repeating function?
http://community.wolfram.com/groups/-/m/t/1303454
I need to develop a spline for a repeating function. Here are the requirements:
1. spline must is for a repeating function, repeating every 2 PI.
2. The spline must be continuous for position and first derivative, including the repeating point 0, 2 PI.
3. A segment of the spline must be perfectly linear. The segments before and after must begin/end with the same derivative.
Any help would be appreciated.Thomas Dobroth2018-03-17T20:01:11ZFormat polynomials the way I want?
http://community.wolfram.com/groups/-/m/t/1303669
Hello! I would really appreciate any help with this as I have tried looking for an answer for more than 2 weeks. So this is my code
K[Q_, n_Integer] :=
Module[{z, x},
SymmetricReduction[
SeriesCoefficient[
Product[ComposeSeries[Series[Q[z], {z, 0, n}],
Series[x[i] z, {z, 0, n}]], {i, 1, n}], n],
Table[x[i], {i, 1, n}], Table[Subscript[c, i], {i, 1, n}]][[1]]]
primeFactorForm[n_] :=
If[Length@# == 1, First@#, CenterDot @@ #] &[
Superscript @@@ FactorInteger[n]];
string = StringJoin[
Riffle[Table[poly = K[Sqrt[#]/Tanh[Sqrt[#]] &, i] /. c -> p;
gcd = GCD @@ List @@ poly /. Rational[n_, d_]*c_ :> d;
ToString[
Inactive[Set][Subscript[L, i],
1/primeFactorForm[gcd]*Plus @@ List @@ Distribute[gcd*poly] /.
Times[Rational[n_, d_], e__] :>
primeFactorForm[n]/primeFactorForm[d]*e], TeXForm], {i, 0,
7}], "\\\\"]]
CopyToClipboard[string]
And this is the output (I have to do this many times with mad=ny different polynomials but the output is similar in all the cases):
$L_0=\frac{1}{1^1}\\L_1=\frac{\gcd \left(\frac{1}{3},p_1\right)+p_1+\frac{1}{3}}{\frac{1}{3}^{p_1}}\\L_2=\frac{7 p_2-p_1^2}{3^2\cdot 5^1}\\L_3=\frac{2 p_1^3-13 p_2 p_1+62 p_3}{3^3\cdot 5^1\cdot 7^1}\\L_4=\frac{\frac{p_2 p_1^2 2^1\cdot 11^1}{3^1}+\frac{p_3 p_1 -1^1\cdot 71^1}{3^1}+\frac{p_2^2 -1^1\cdot 19^1}{3^1}-p_1^4+127 p_4}{3^3\cdot 5^2\cdot 7^1}\\L_5=\frac{\frac{p_1^5 2^1}{3^1\cdot 7^1}+\frac{p_2 p_1^3 -1^1\cdot 83^1}{3^1\cdot 5^1\cdot 7^1}+\frac{p_3 p_1^2 79^1}{5^1\cdot 7^1}+\frac{p_4 p_1 -1^1\cdot 919^1}{3^1\cdot 5^1\cdot 7^1}+\frac{p_2^2 p_1 127^1}{3^1\cdot 5^1\cdot 7^1}+\frac{p_5 2^1\cdot 73^1}{3^1}+\frac{p_2 p_3 -1^1\cdot 2^4}{5^1}}{3^4\cdot 5^1\cdot 11^1}\\L_6=\frac{\frac{p_4 p_1^2 40841^1}{5^1}+\frac{p_1^6 -1^1\cdot 2^1\cdot 691^1}{3^1\cdot 5^1}+\frac{p_2 p_1^4 2^1\cdot 6421^1}{3^1\cdot 5^1}+\frac{p_3 p_1^3 -1^1\cdot 33863^1}{3^1\cdot 5^1}+\frac{p_2^2 p_1^2 -1^1\cdot 5527^1}{3^1}+\frac{p_2 p_3 p_1 83^1\cdot 349^1}{5^1}+\frac{p_5 p_1 -1^1\cdot 2^5\cdot 29^1\cdot 181^1}{5^1}+\frac{p_3^2 -1^1\cdot 167^1\cdot 241^1}{3^1\cdot 5^1}+\frac{p_2 p_4 -1^1\cdot 159287^1}{3^1\cdot 5^1}+\frac{p_6 2^1\cdot 23^1\cdot 89^1\cdot 691^1}{3^1\cdot 5^1}+\frac{p_2^3 2^1\cdot 1453^1}{5^1}}{3^5\cdot 5^2\cdot 7^2\cdot 11^1\cdot 13^1}\\L_7=\frac{\frac{p_1^7 2^2}{3^4\cdot 5^1\cdot 11^1}+\frac{p_2 p_1^5 -1^1\cdot 2^1\cdot 2161^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_3 p_1^4 2^2}{5^2\cdot 7^1}+\frac{p_4 p_1^3 -1^1\cdot 2^1\cdot 113^1}{3^4\cdot 5^1\cdot 7^1}+\frac{p_2^2 p_1^3 2^3}{3^2\cdot 5^1\cdot 7^1}+\frac{p_2 p_3 p_1^2 -1^1\cdot 39341^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_5 p_1^2 2^4\cdot 277^1}{3^4\cdot 5^2\cdot 7^1}+\frac{p_2^3 p_1 -1^1\cdot 2^1\cdot 3989^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_6 p_1 -1^1\cdot 2^1\cdot 305633^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_2 p_4 p_1 1399^1}{3^3\cdot 5^2\cdot 11^1}+\frac{p_3^2 p_1 22027^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_2^2 p_3 2^3\cdot 2087^1}{3^5\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_3 p_4 -1^1\cdot 2^1\cdot 97^1\cdot 107^1}{3^4\cdot 5^2\cdot 7^1\cdot 11^1}+\frac{p_2 p_5 -1^1\cdot 2^1\cdot 23^2}{3^5\cdot 11^1}+\frac{p_7 2^2\cdot 8191^1}{3^4\cdot 5^1\cdot 11^1}}{3^2\cdot 5^1\cdot 7^1\cdot 13^1}$
Now here are the things I was struggling with. I need to use these results in a paper so I was requested to have a certain format. I need the variables out of the fraction and I need the common denominator to be in front of everything, instead of having a fraction over a fraction i.e. instead of let's say $\frac{\frac{7p_ 2}{2} -p_ 1^2}{3^2\cdot 5^1}$ I need $\frac{1}{3^2\cdot 5^1}(\frac{7}{2} p_ 2-p_ 1^2)$. Also, in the example I gave $L_1$ is weird and this happens sometimes in other polynomials. Why is this? (but this is less important). So, can anyone tell me how to fix this formating problem as I tried so so many functions and stuff, but nothing works, and doing it by hand in Latex, not only it is time consuming, but it is seriously prone to error... Thank you!Silviu Udrescu2018-03-17T18:50:14ZRemove "Powered by Wolfram Cloud" Footer?
http://community.wolfram.com/groups/-/m/t/1303976
Hello,
I'd like to publish a web page publicly, but the "Powered by Wolfram Cloud" footer is rendered at the bottom of the page.
Is there a way to remove it? In order to do that, do I need a specific type of license?
Thanks,
QuenioQuenio Santos2018-03-18T11:25:05Z[✓] High resolution GeoElevationData ?
http://community.wolfram.com/groups/-/m/t/1188722
I'm trying to produce 3D models in the Wolfram Language of various mountains around the world. The GeoElevationData[] function does not have enough resolution for a good looking model at the scale of a mountain, so I'm searching for online data sets that have more resolution and can be imported into Wolfram. For mountains in the United States, the United States Geological Survey offers ArcGRID files that Wolfram can import. This has worked fabulously, producing models such as this:
![enter image description here][1]
(Can you tell what mountain it is?)
But when I try to find data for mountains outside the US, like Mt. Fuji or Mt. Everest, I get overwhelmed by the abundance of file formats that, as far as I can tell, won't work in Wolfram. I sense that there is a way to do this. Has anyone solved this problem before? I could sure use some help here.
Thanks in advance,
Mark Greenberg
[1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2017-09-20at8.14.21AM.png&userId=788861Mark Greenberg2017-09-20T15:35:58ZHow search just the Community
http://community.wolfram.com/groups/-/m/t/1303733
How can I search *only* posts to the Wolfram Community?
Am I missing something? All I see is, at the top of the page, a general search fields that searches all of wolfram.com, which is *not* what I want to do!Murray Eisenberg2018-03-17T20:08:44ZMathematica beyond mathematics
http://community.wolfram.com/groups/-/m/t/1109299
For the past 25 years I’ve been conducting Mathematica seminars and teaching students how to develop applications using the program in a wide variety of campuses. These experiences have taught me several things:
i. A majority of both experienced users and newcomers, still think erroneously that Mathematica is mostly a language for solving symbolic math problems.
ii. Plenty of long-term users are not aware of many of the new capabilities that that have been added to the program over the years.
iii. The number of functions available has grown enormously and now there are more than 6,000. With so many functions, it very time consuming to learn about them using the extensive Wolfram documentation.
I decided to address these issues and show that the program has capabilities that go beyond math calculations writing a book ([Mathematica beyond mathematics][1]). Throughout the text, Mathematica’s features, including of course the latest ones, are introduced while solving problems in many different fields such as: astronomy, biology, chemistry, economics, finance, geography, linguistics and nuclear physics among many others (See Contents) . When choosing the problems, I have relied on my own experience and also modified a few selected examples from Wolfram Research vast information resources. At the end of each chapter there’re also additional sources to further explore the topics. I have also strived to avoid writing too complicated programs and except in a reduced number of cases, all the examples contain just a few lines of code.
[1]: http://diarium.usal.es/guillermo/mathematica/Guillermo Sanchez2017-05-28T09:06:58ZSelect elements of a list based on a condition and order position?
http://community.wolfram.com/groups/-/m/t/1303625
I encounter a common problem in data science that is difficult to solve in some languages and easier in others, and I'm wondering how Wolfram language can solve it.
In ordered lists, there is an implicit "before" and "after" relationship. Often I need to select or operate on this element after a conditional.
For instance, in the english word list, return the letters (and perhaps make a histogram) that follow the letter "i", to prove or disprove "i before e, except after c".
Another example, given a list of dates with an associated measure for each, calculate the difference of the measures between any two dates. The most needed calculation is "now" from "last".
Trigger events are another variation of this problem, i.e. capture all elements that meet "this" criteria, after "that" condition has been set. I've used this extensively in digital signal processing and other pattern recognition programs.
Thanks.Andy Hollister2018-03-17T15:17:07ZIs the atlas 2 add-on no longer supported by anyone?
http://community.wolfram.com/groups/-/m/t/1303742
Is `atlas 2` add-on to *Mathematica* supported by anybody now? Links to it at wolfram.com have gone dead, and the website of the publisher, digi-area.com, also has vanished.Murray Eisenberg2018-03-17T20:12:04Z[✓] Understand orderings in ToExpression and RowBox?
http://community.wolfram.com/groups/-/m/t/1302184
(Posted to StackExchange a week ago, with no response.)
With:
ToExpression[RowBox[{"c", ToBoxes[Plot[Sin[x], {x, -2, 2}]], "a"}]]
I get the three elements of the array, but with "a" and then "c" at the beginning. I would like to retain the order as I have input it.
I found that:
ToExpression[RowBox[{"c", "b", "a"}]]
reverses the order, but:
ToExpression[RowBox[{"\(", "c", "b", "a", "\)"}]]
retains the input order (and removes spaces in between).
However, applying this to my original snippet:
ToExpression[
RowBox[{"\(", "c", ToBoxes[Plot[Sin[x], {x, -2, 2}]], "a", "\)"}]]
it comes back with:
RowBox[{"c", "\"Private`zztop$3\"", "a"}]
(zztop??).
Please help me understand the restrictions here, as well as possible work-arounds.
Thank you.Aaron Naiman2018-03-14T09:08:17ZAvoid a blank cartesian coordinate system while using ParametricPlot3D?
http://community.wolfram.com/groups/-/m/t/1303304
Hey folks,
I recently installed Wolfram Mathematica on my laptop and I have just noticed that my program is completely incapable of producing three-dimensional parametric plots. I've tried looking for errors in my syntax but it didn't change a thing. I even ended up copying the example functions for parametricPlot3D and pasting them in my documents, but Mathematica only produced a blank cartesian coordinate system in two dimensions.
This is the line I used: ParametricPlot3D[{Sin[u], Cos[u], u/10}, {u, 0, 20}].. and Mathematica only produces blank two-dimensional coordinates.
Has anyone else experienced this problem? As I am fairily new to Mathematica it very well may be that I've committed a fundamental mistake but I sure can't seem to find one no matter how hard I try.
Anyway, I just wanted to show you my problem... If anyone knows a fix to this, make sure to let me know. Thank you in advance!Elia Schmidt2018-03-16T14:59:45ZLoad a program without running it in Mathematica online?
http://community.wolfram.com/groups/-/m/t/1303062
I'm not sure whether I'm asking this question in the best place (because this discussion community seems poorly organized).
I'm an experienced user of the desktop version of Mathematica, trying to adapt to Mathematica online.
The most serious difficulty that I'm experiencing so far is that in Mathematica online, programs seem to run automatically as soon as you load them. This seems like an insane protocol because once a program develops an execution impasse it becomes hopeless to cut through the impasse to edit out the part of the code that caused the impasse.
My question is thus: how can you load a program into Mathematica online without running it, so that you can edit and modify it before trying to run it?
Or alternatively, how can you alleviate the difficulty that I've described here?james dolan2018-03-17T06:51:10Z