Tag Info

Hot answers tagged

17

apple = Interpreter["Company"]["Apple"]["Image"] Interpreter["Company"]["GE"]["Image"] Also works for the continent and respects colours: Interpreter["Company"]["Siemens"]["Image"] Update Interpreter["Company"]["Wolfram"]["Image"] For Apple addicts: ImageFilter[Max[Flatten[#]] - Min[Flatten[#]] &, ...


12

Another variation: SemanticInterpretation["AAPL Logo"] This method is nice because you can do at once: logos = SemanticInterpretation["AAPL, TSLA, GE and MSFT Logos"]; Column[logos, Frame -> All, FrameStyle -> Directive[Red, Thick]]


10

Use Interpreter without federal state or country. Works even for small german towns :) Interpreter["City"]["Memmingen"] GeoPosition[%] GeoGraphics[%] EDIT: Also you could ask for the airport: town = Interpreter["City"]["Memmingen"]; airport = Interpreter["Airport"]["Memmingen"]; GeoPosition[{town, airport}] or just use the nearest airport ...


10

You could use the official ICAO abbreviation: Entity["Airport", "KLAX"] which makes sense because you will only be able to use officially named airports most of the time anyway. You can always get those (or the city details) via a W|A query and work your way from there (no googling involved): or like this (although it misses Van Nuys):


9

QuantityMagnitude[WolframAlpha[#, {{"Result", 1}, "ComputableData"}]] & /@ {"Apple company revenue", "Apple company interest expense", "Apple company employees"} (* {1.828*10^11, 3.84*10^8, 97000} *) Update: Exchange rate conversion WolframAlpha[#, {{"Result", 1}, "ComputableData"}] & /@ {"Sony company revenue", "Sony company interest ...


8

The problem seems to be that many companies, even some of the biggest, well known firms are not known in Entity["Company","name"] form to Mathematica. This holds for companies like Apple, Microsoft, General Electrics etc. I believe that CompanyData needs entities to be of this form. If you want to discover a company's entity representation using W|A ...


8

The following may be useful as starters: WolframAlpha["femme from french to german",{{"Translation:TranslationData", 1}, "ComputableData"}] (* {" Frau | Ehefrau", " Frau"} *)


8

Though WolframAlpha understands some basic Mathematica syntax, that is simply not it's first objective, namely to attempt to understand natural language input. Thus, rather than typing Integrate[x*Sin[x],{x,0,Pi}] one may type some variant of integrate xsinx x,0,pi The results, whether obtained via the web interface or right in notebook, are ...


8

Calling Wolfram|Alpha is not generally an efficient way to retrieve bulk data; where possible, it is better to use a built in data function. Part of the problem is figuring out what to submit to Wolfram|Alpha. In the code you supplied, the issue begins with Wolfram|Alpha returning Missing[NotAvailable]. WolframAlpha["AAPL ...


6

In Mathematica 10, this tells you the number of calls remaining in your cloud account if you are logged in: CloudAccountData["WolframAlphaCallsAvailable"] 2168


6

data = WolframAlpha["median income in Maryland counties", {{"PropertyRanking:ACSData", 1}, "ComputableData"}]; data // TableForm


5

Something like this? WolframAlpha["apple logo", "PodImages", IncludePods -> "Image:FinancialData"]


5

Using Mathematica (v10) Reverse[SortBy[ EntityClass["AdministrativeDivision","USCountiesMaryland"][{"Name","MedianHouseholdIncome"}], Last]] // TableForm


4

This issue should now be resolved. If it isn't, please try restarting Mathematica, and try your input again. If this still fails, then please post the output of: PacletInformation["WolframAlphaClient"]


4

WolframAlpha for a quick overview:


3

I am not sure why you do not want to use DSolve but it works perfectly in your case. f[t_] := Piecewise[ {{t^2 , 0 <= t < 1}, { 1, t > 1}}] DSolve[ {y''[t] - y[t] == f[t] , y[0] == 0, y'[0] == 0 }, y[t], t] gives correct solution of your equation. If you insist using Laplace transform in this problem, this can be done as follows, lap = ...


3

First, you should understand that WolframAlpha does not simply execute Mathematica code as typed. Rather, there is a parsing stage. And the two parses are simply different in this case. We can see this by taking a closer look in Mathematica: WolframAlpha["x = 10; N[ 2 Pi (x -11/8)/LambertW[(x -11/8)/E]]", {{"Result", 1}, "ComputableData"}] (* Out: ...


3

Plot[2 x - Sinh[x], {x, -Pi, Pi}] FindRoot[2 x == Sinh[x], {x, #}] & /@ {-2, 0, 2} {{x -> -2.17732}, {x -> 0.}, {x -> 2.17732}}


3

In Mathematica (version 10): weight=UnitConvert[Quantity[4 10^6, "USDollars"]/(Entity["Element", "Gold"]["Price"]), "Pounds"] (* Quantity[228.315, "Pounds"] *) UnitConvert[ weight/(Entity["Element", "Gold"]["Density"]), "Liters"] (* Quantity[5.36442, "Liters"] *)


3

There is an easier way using WolframAlpha:


3

Update According to @xzczd in my comment: Simply removing the outermost braces will work, i.e. {0,0},{1,2},{5,3},{6,5}. Original Answer (0,0) (1,2) (5,3) (6,5) worked. To efficiently convert your lists to this form: convertlist[expr_] := StringReplace["(0,0) " <> ToString[expr], {"{{" -> "(", "}}" -> ")", "}, {" -> ") ("}] Comparing ...


2

You can find the exchanges Mathematica knows about using: FinancialData["Exchanges"] From this you can extract the main London exchange name which is , "LSE". Then you can retrieve the available quoted entities: FinancialData["LSE", "Members"] Amongst those you will hopefully find most of the symbols which comprise the indices you might be interested ...


2

Before we look at how to generate the textual form, let's correct a syntax error in your code; function application in Mathematica is indicated by square brackets, so Sin(x + y) in your integral must replaced Sin[x + y]. With this change your integral evaluates correctly: We verify that the above is correct by taking the derivative with respect to ...


2

D[x^2 + x y[x] == 5, {x, 1}] sol1 = Solve[%, y'[x]] D[x^2 + x y[x] == 5, {x, 2}] sol2 = Solve[%, y''[x]] sol2 /. sol1 // Simplify


2

Thanks to your nice answers and comments I found a solution to my problem: FlightPath[cities_List, pro_: "AzimuthalEquidistant"] := Module[{lc = Length@cities, color, dest, dist, entity, legend, pair, path}, color = {Red, Darker@Green, Blue, Black, Orange, Purple}; entity = Interpreter["City"][#] & /@ cities; dest = GeoPosition@First@entity; ...


2

The currently accepted answer does not seem to be valid as of July 2014. I tested WolframAlpha calls with the following: properties = {"Abbreviation of ", "Alternate Names for ", "Atomic Number of ", "Atomic Radius of ", "Atomic Weight of ", "CAS Number of ", "Heat of fusion of ", "Stable Isotopes for ", "Universal abundance of ", "Discovery Year of ...


2

Select[Range[23], GCD[24, #] == 1 &] {1, 5, 7, 11, 13, 17, 19, 23} This also works: Select[Range[23], CoprimeQ[24, #] &]


2

Using exact numbers or higher precision numbers gives the result that matches google's output: WolframAlpha["convert 1/4 miles to inches", {{"Result", 1}, "ComputableData"}] (* 15840 in *) WolframAlpha["convert .250 miles to inches", {{"Result", 1}, "ComputableData"}] (* 15840 in *) Another example: WolframAlpha["convert 1/5 miles to inches", ...


2

Wolfram|Alpha is more willing to change the input because the input is generally natural language. Alpha has interpreted hw has two single-letter symbols, h and w. Mathematica has interpreted hw as a single two-letter symbol. Because you asked Mathematica to solve for h and h does not appear in the expression, there is no solution. Adding a space tells ...


2

Mathematica (version < 10) FinancialData["XAU/USD"] returns the price of one Troy Ounce, but the equivalence to kilograms isn't available in Mathematica v9 as far as I see. So: i = Quiet@Import["https://www.google.com/search?&q=troy+ounce+to+kilograms", "HTML"]; troyToKg = ToExpression@First@StringCases[i, "One troy ounce is" ~~ x__ ~~ " grams" ...



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