# User Portlet

Tomáš Hruš
Discussions
Until today everything was working fine, but today i got this result... What does it mean and how to correct it? Thaks for help! *Tomas* In[1]:= trained = NetTrain[LinearLayer[], {1 -> 1.9, 2 -> 4.1, 3 -> 6.0, 4 -> 8.1}] ...
My simple code o1 = Rectangle[{0, 0}, {3, 2}]; o2 = Disk[{3, 1}, 0.5]; o = RegionDifference[o1, o2]; RegionPlot[o, PlotRange -> Full] DiscretizeRegion[o] Produces this strange output. It seems to me, that the RegionPlot...
A typical situation is a very long time, which is necessary to get the result from PlanetData (but it is similar wit other data). For example - 7 coordinates of the planet Mars gets almost 10 seconds. Requirement of a larger amount of data produces...
I have this part of code (see below) - and I cannot understand, why the first line in the graph is not red and why the second line is dashed... See attachement... (Mathematica 10.3.0.0, Windows 10 - 64 bit) Thank you for help! In[22]:=...
May be I am wrong, but I thing that correct result should be True. Am I making a mistake, or not? In[2]:= Assuming[ci != 0, (Sign[ci]^2 == 1) // FullSimplify] Out[2]= Sign[ci]^2 == 1 Thanks!
I tried to make faster my minimization using compiled function, but my code doesnt work. See below for the complete code. Please, tell me, where to look for the problem! In[1]:= ClearAll["Global`*"] SetDirectory[NotebookDirectory[]]; ...
Here i s part of my code. I am looking for a minimal value of a function *krit* (with a given parameter Fexp). The output from the StepMonitor says, that *NMinimize* found a value 87.985 of the function *krit*, but the result of the *NMinimize*...
Dear colleagues, please help me understand this: In[1]:= data = RandomVariate[NormalDistribution[0, 1], 200]; HistogramList[data, 3] Out[2]= {{-4, -2, 0, 2, 4}, {5, 84, 109, 2}} Why there are *four* and not *three* bins? ...
Please, how to draw in Mathematica 10 an circular arc with an arrowhead at the end?
Colleagues, please - it is a difference betwen theese defintifions? It seems to me, that tey are equivalent -- it is true? In[1]:= f1[a_, b_] := a[b]*a[2 b] In[2]:= f2[a_][b_] := a[b]*a[2 b] In[3]:= f3[a_[b_]] := a[b]*a[2 b] ...