# User Portlet

Erich Neuwirth
Discussions
I am able to export an STL file of a combination of cuboids (Menger sponge). But when I do yyy = Graphics3D[Tetrahedron[{{0, 0, 0}, {1/2, Sqrt[3]/2, 0}, {1, 0, 0}, {1/2, Sqrt[3]/4, 3/4}}], Axes -> True] Export["yyy.stl", yyy]...
I want to create a document which in some places does not display the input expression, only the output. Creating a cell with the following contents Sum[q^n*Sin[n*t], {n, 1, Infinity}] // HoldForm Sum[q^n*Cos[n*t], {n, 1, Infinity}] //...
I am trying to embed interactive graphics in a CDF file Manipulate[Plot[q*Sin[t] + (1 - q)*Sin[2*t], {t, 0, 2*Pi}], {q, 0, 1}] works ff[q_][t_] = q*Sin[t] + (1 - q)*Sin[2*t] Manipulate[Plot[ff[q][t], {t, 0, 2*Pi}], {q, 0, 1}] does not...
Plot[Exp[I*t], {t, 0, 2 Pi}] produces an empty chart, which is ok since it is not a real function Plot[Exp[I*t] + Exp[-I*t], {t, 0, 2 Pi}] produces a plot, which makes sense since the imaginary part of the values is 0 and therefore the...
The last simplification even works without the assumptions: Simplify[ComplexExpand[Im[Exp[I*t]/(q - Exp[I*t])]]] gives (q Sin[t])/(1 + q^2 - 2 q Cos[t])
ArcTan comes in two flavors ArcTan[z] and ArcTan[x,y] When x>0 and y>0 ArcTan[x,y] can be simplified to ArcTan[y/x] How can I tell Mathematica that this is what I want?
I want to display the FollowerNetwork of a Twitter user with many (almost 100,000) users A query like fols = SocialMediaData[{"Twitter", "ArminWolf"}, "FollowerIDs"] returns only 5000 users. Is there a way of getting all the users...
Using Firefox helped. I will insverstigate further about Safari. I noticed the the key displayed in Safari was much shorter (one line instead of 4 lines)