# User Portlet

Christopher French
Discussions
These two approaches give the same result: AssociationThread[keys -> #] & /@ values (*{ 1, "b" -> 2, "c" -> 3|>, 4, "b" -> 5, "c" -> 6|>, 7, "b" -> 8, "c" -> 9|>}*) Association /@ (MapThread[Rule, {keys, #}] & /@ values) ...
Hold the expression using With and insert a value for a With[{a = 1}, Plot[{a M1 + a M1^3.4}, {M1, 1, 100}, PlotRange -> Automatic] ] Same thing can be done, instead of setting the value for Mc With[{Mc = 54}, ...
Beat me to it! IntegerDigits will break up the numbers, into sub-lists IntegerDigits@{12, 35} {{1, 2}, {3, 5}} Flatten will break up the sub-lists Flatten@IntegerDigits@{12, 35} {1, 2, 3, 5} FromDigits will make a new integer...
http://jonathankinlay.com/2017/01/copulas-risk-management/ Copulas in Risk Management on Page 4 has: SP500returns = Log[Drop[SP500prices[[All, 2]], 1]] - Log[Drop[SP500prices[[All, 2]], -1]]; NASDAQreturns = ...
The data is accessible through EntityValue EntityValue[Entity["Financial", "NYSE:SPY"], "LatestTrade"]
"Close" for historical values is adjusted close and for "BOND" (PIMCO Total Return Active ETF) dates before {2016, 11, 1} are seeming to vacillate between two values from the source. This can be avoided by using "RawClose" for dates in that range. ...
Part over a Range Part[theData, Range[4, Length[theData], 10]] Part over a Span theData[[4 ;; Length[theData] ;; 10]] Part on a Partition Partition[Drop[theData, 3], UpTo[10]][[All, 1]]
It is beautiful. ImageSize -> {Automatic, 360} will help keep the tall side in your 360 box. Export["turbine.png", Magnify[ WolframAlpha["Wind Turbine Formula", {{"Equation", 1}, "Content"}], 2], ImageSize -> {Automatic, 360}] ...
Looks like a possible problem with Get that is also coming from ToExpression InputForm@ToExpression["Hold[\[LeftCeiling]Log[2,1+Abs[scale[x]-1]]\[RightCeiling]+1]"] (* InputForm=Hold[Ceiling[Log[2, 1 + Abs[scale[x] -...
Include ")" in an exception, to prevent overlaps. res = StringReplace[myString, Shortest["(" ~~ (lhs : Except[")"] ...) ~~ city : Except[WhitespaceCharacter] .. ~~ ", " ~~ st : Repeated[LetterCharacter,...