New answers tagged

10

You can get the options associated with the plot theme "Detailed" using the (undocumented) internal function Charting`ResolvePlotTheme: Charting`ResolvePlotTheme["Detailed", Plot] // Column See also: Related Q/As If you need the options for the legended graphics object produced by plot = Plot[x, {x, 0, 1}, PlotTheme -> "Detailed&...


1

And I want to single out all terms with p^k,k>1 I use this nice function getPatterns thanks to Carl Woll that he gave me as an answer long time ago. It is a handy function to have in your toolbox. ClearAll[p, q]; expr=(p^(1/3)*q+5)/(3*q^2)+p^2+(p-1)^(1/3)+p^5+(p^(9/2)-1)^(1/3) getPatterns[expr_, pat_] := Last@Reap[expr /. a : pat :> Sow[a], _, ...


2

Following the lead from kglr's answer in the comments and noticing your b list: Example: alist = a = {{0., 2.}, {0.2, 1.96041}, {0.4, 1.9216}, {0.6, 1.88355}, {0.8, 1.8463}} blist = {1, 7, 9, 2} Notice that Parts 7,9 are not present and the following will complain. alist[[blist]] A slight improvement would be to filter the indices in blist that are (...


3

You can also use Extract. Two pieces of code below should generate the same result. Extract[a, #] & /@ b Extract[a, {b}\[Transpose]]


3

Try DeleteCases: list={-1628.12 - 557.34 I, -1628.12 + 557.34 I, -920.324 - 1508.13 I,-920.324 + 1508.13 I, 2107.28, 2145.53, 2207.2, 2289.7,2318.05 - 13.4031 I, 2318.05 + 13.4031 I} DeleteCases[list, _Complex] (*{2107.28, 2145.53, 2207.2, 2289.7}*)


5

alist = {-1628.12 - 557.34 I, -1628.12 + 557.34 I, -920.324 - 1508.13 I, -920.324 + 1508.13 I, 2107.28, 2145.53, 2207.2, 2289.7, 2318.05 - 13.4031 I, 2318.05 + 13.4031 I} Cases[alist, Except@_Complex] {2107.28, 2145.53, 2207.2, 2289.7}


4

Try Select list={-1628.12 - 557.34 I, -1628.12 + 557.34 I, -920.324 - 1508.13 I, -920.324 + 1508.13 I, 2107.28, 2145.53, 2207.2, 2289.7,2318.05 - 13.4031 I, 2318.05 + 13.4031 I} Select[list, Im[#] == 0 &] (*{2107.28, 2145.53, 2207.2, 2289.7}*)


Top 50 recent answers are included