New answers tagged filtering
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