19

The full form of ?@ is Information["@", LongForm -> False]. LongForm -> False means use the short form of Information, which calls Names["@"] (or a utility that both Information and Names use) to find the symbols which it should retrieve. Names interprets "@" as match one or more characters, but not uppercase letters So ...


16

I believe I would use: expr = Q1 a1 + Q2 a2 + Q3 a3 + Q4 a4 + Q5 a5 + Q6 a6 + Q7 a7 + Q8 a8 + Q9 a9 + Q10 a10 + Q11 a11 + Q12 a12 + Q13 a13 + Q14 a14 + Q15 a15 + Q16 a16 + Q17 a17 + Q18 a18 + Q19 a19 + Q20 a20 + Q21 a21 + Q22 a22 + Q23 a23 + Q24 a24 + Q25 a25 + Q26 a26 + Q27 a27 + Q28 a28 + Q29 a29 + Q30 a30 + Q31 a31 + Q32 a32 + Q33 a33 ...


14

These String items were directly read from the 10.0.2 Front End, including quite a few not listed elsewhere in this Q&A: {"AltKey", "ByteCount", "CellChangeTimesList", "CellCount", "CellStyleName", "CodeContext", "CommandKey", "ConnectedControllers", "ControlKey", "ControllerData", "ControllerState", "ControlsFontFamily", "ControlsFontSize", "...


14

The only method I am aware of is to attempt an operation that requires administrator-level permissions and look for a General::privv message: Check[ (CreateDirectory @ #; DeleteDirectory @ #) & @ FileNameJoin[{$InstallationDirectory, "test"}]; True, False, General::privv ] // Quiet This should return True if it is run with administrator ...


10

According to Oleksandr R. wmic can only be run by Administrators. Here is how you get the Serial on Windows. Import["!wmic bios get serialnumber", "Text"] To get CPU information Import["!wmic cpu get NumberOfCores, NumberOfLogicalProcessors/Format:List", "Text"] To get the MAC Address run. StringSplit[ StringReplace[ StringCases[Import["!ipconfig /...


9

To prevent your second invocation of SetOptions from resetting the value of sub-option "SymbolContextStyles", you need to set both "System" and "Global" sub-sub-option values at once: SetOptions[EvaluationNotebook[], "AutoStyleOptions" -> {"SymbolContextStyles" -> {"System`" -> RGBColor[211./255, 54./255, 130./...


8

xQ = Q1 a1 + Q2 a2 + Q3 a3 + Q4 a4 + Q5 a5 + Q6 a6 + Q7 a7 + Q8 a8 + Q9 a9 + Q10 a10 + Q11 a11 + Q12 a12 + Q13 a13 + Q14 a14 + Q15 a15 + Q16 a16 + Q17 a17 + Q18 a18 + Q19 a19 + Q20 a20 + Q21 a21 + Q22 a22 + Q23 a23 + Q24 a24 + Q25 a25 + Q26 a26 + Q27 a27 + Q28 a28 + Q29 a29 + Q30 a30 + Q31 a31 + Q32 a32 + Q33 a33 + Q34 a34 + Q35 a35 + Q36 ...


8

Replacement rules make this much easier, as Ymareth indicated. Make a list of rules like: r2 = {"x" -> Checkbox[True], "o" -> Checkbox[False], "u" -> Checkbox[3, {1, 2, 3}]}; Then apply these to the matrix m as: m/.r2 Note that this code is idiomatic Mathematica and imminently readable by anyone familiar with it. Nested For loops and term ...


8

The Wolfram Language currently uses seven single letter capital letters for various core system functions: C, D, E, I, K, N, and O. Mnemonically: OINCKED The other 19 capital letters are available to use, at least in current versions: data = {#, Symbol[#], ToExpression[# <> "::usage"]} & /@ CharacterRange["A", "Z"]; Grid[data, Alignment -> ...


7

Just to get an answer on record. As bobknight stated in the comments $InputFileName is bound to a string giving the full path name of the file being read when code loading operations initiated by Get, (<<), or Needs are in the process of loading. The file being loaded can make use this information, but the notebook requesting the load cannot (think of ...


7

If the System` symbol you want to modify is a kernel function, then you can just use Clear to reset it to its default state. For your Interval example: Language`ExtendedDefinition[Interval] Language`DefinitionList[Interval->{OwnValues->{},SubValues->{},UpValues->{},DownValues->{},NValues->{},FormatValues->{},DefaultValues->{},Messages->{},Attributes->{...


6

Not an answer but I just wanted to observe that the $RecursionLimit info box (whatever that is called) has a formatting error on my Mac: Update halirutan: When I set $RecursionLimit to say 30, then hover the symbol and click on the information $i$, I sometimes get more than only wrong formatting:


6

You can use the Find and Replace command: ⌘+F on the Mac or Ctrl+F on a PC.


6

It may suit your purpose to use the Windows API function IsUserAnAdmin. It can be accessed through NETLink like this: Needs["NETLink`"] isUserAnAdmin = DefineDLLFunction["IsUserAnAdmin", "shell32.dll", "bool", {}]; isUserAnAdmin[] (* True if Mathematica was launched elevated, False otherwise *) It is also possible to to use the shell command whoami to ...


6

The only thing I could find very easily is the HWaddr of the network device that can be obtained by SystemInformation["Network", "IPAddresses"]


6

Don't put symbols you don't want to show up in auto-completion into the Global` context. Use the same mechanism you would for a package. myfun; (* create in Global` *) Begin["MyPrivateInitContext`"] myfun[x_] := Module[{y=x^2}, y^2] End[] I noticed you are putting your function into the System` context. This seems like a bad idea. The System` context is ...


6

Try Reduce eq1 := (x - x1) == (z - z1) Tan[α1 q - μ]; eq2 := (x - x2) == (z - z2) Tan[α2 q - μ]; eq3 := (σ - σ1) + 2 σ1q Tan[ϕ] (α - α1) == γ (z - z1 - (x - x1) Tan[ϕ]); eq4 := (σ - σ2) + 2 σ2q Tan[ϕ] (α - α2) == γ (z - z2 - (x - x2) Tan[ϕ]); system1 := {eq1, eq2, eq3, eq4}; Reduce[system1, x] Learning from Pros is always helpful... ...


6

I just want to save this information from comments. @ilian mentioned in comments: This command is simply not needed in 11.3 and later because what it accomplishes is now the default (and only) behavior, so you can think of CatchMachineUnderflow as being permanently set to False. There are also some new warning messages that can be easily turned off.


5

Another way to get more stuff is to just see what's available to FrontEnd`Value[FrontEnd`CurrentValue[__]] as that's how CurrentValue seems to work its magic (per the DownValues). Then we'll use the vast output from FrontEndExecute[FrontEnd`NeedCurrentFrontEndSymbolsPacket[]] and see what sticks: Select[ Flatten@ FrontEndExecute[FrontEnd`...


5

Since many people seem to be looking through files in text editors I thought I'd give a way to scrape this data automatically (it should work for any kind of expression you want, as long as it's in a .m or .nb file): I've used this for a bunch of stuff now. First, a function to get all files of a certain spec in the installation directory: InternalFiles[...


5

The secrets can be revealed by examining strings in the executable file: $ cd /usr/local/Wolfram/Mathematica/11.0 $ cd SystemFiles/FrontEnd/Binaries/Linux-x86-64 $ strings Mathematica | grep 'CurrentValue' Output: FrontEnd`AbsoluteCurrentValue FrontEnd`CurrentValue FrontEnd`Private`SetCurrentValue FrontEnd`CurrentValue`AltKey FrontEnd`CurrentValue`...


5

You can do this programmatically by converting the expression to strings, replacing Qs with Rs and then converting it back to an expression. For example: expr := Q1 a1 + Q2 a2 + Q3 a3 + Q4 a4 + Q5 a5 + Q6 a6 + Q7 a7 + Q8 a8 + Q9 a9 + Q10 a10 + Q11 a11 + Q12 a12 + Q13 a13 + Q14 a14 + Q15 a15 + Q16 a16 + Q17 a17 + Q18 a18 + Q19 a19 + Q20 a20 + Q21 ...


5

Note that while the accepted answer obviously answers the question it is also possible to set values of System` and Global` individually. CurrentValue[EvaluationNotebook[], {"AutoStyleOptions", "SymbolContextStyles"}] (* {"System`" -> {}, "Global`" -> {}, Automatic -> {}} *) So to set only System`: CurrentValue[EvaluationNotebook[], {"...


5

I don't know about temporary values, but if you want to monitor the progression of Nest you could use the following: intensiveCalculation[x_] := (Pause[0.5]; x + 1) Nest[(PrintTemporary[#]; #) &@ intensiveCalculation[#] &, 1, 5]


5

Using Nasser's expression code as an example: expr = Sin[x] + Cos[y] + z^3 + Exp[d] + h + 3 h^2 + 4 h^3 + Integrate[Exp[p], p] + D[Sin[m]^Exp[f], m]*Series[Sin[g], {g, 0, 3}] + 2 (E^a BesselK[0, 2 Sqrt[E^a]]) C[2]/D[Gamma[w], {w, 2}]; You might use: Variables @ Level[expr, {-1}] {a, d, f, g, h, m, p, w, x, y, z} To extract indexed variables ...


5

After correcting all errors and normalization to A, we have R = .1; E1 = 200*10^9; E2 = 550*10^9; P = 1000; V1 = 0.3; V2 = 0.3; E3 = 1/(((1 - (V1^2))/E1) + ((1 - (V2^2))/E2)); A = ((.75*P*R)/(1.61172*10^11))^(1/3); X = Range[-2 A, 2 A, 0.01*3*A]; Z = Range[0, -2 A, 0.005*3*A]; m = Sqrt[.5*(((1 - i^2 + j^2)^2 + 4*i^2*j^2)^...


5

K is part of the System` context. You were removing symbols from the Global` context only, so K wasn't affected. It could be unset with K=.. That said, when doing interactive work, avoid using any symbols whose name starts with a capital letter, as these may conflict with System symbols or package symbols. Do not set any value for K and do not attempt to ...


4

Perhaps there's a better way than using Reduce three times, but it seems to me that the computations to figure out the range of each variable will have to be done somehow. Reduce does that. This will work on such simple inequalities as in the OP's example: And @@ (First@Reduce[a == b + c && a >= 2 && b <= 10 && c == 5, #] &...


4

{time, mean, std} = Transpose[Import["C:\\Users\\...\\Downloads\\MEANSDVALUES.xlsx"][[1]]] (* use the appropriate directory for your file *)


4

As the Locale & Internalization guide page says $TimeZone is resettable. If the developers would foresee adverse effects I guess they wouldn't have documented it in this way. The only problem that I can see is that you have to take care that your system time is also set to GMT, otherwise real-time calculations (e.g., elevation of the sun as seen in ...


Only top voted, non community-wiki answers of a minimum length are eligible