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

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


6

Ctrl+= gasoline heat of combustion * density results in: Quantity[32.7, "Kilojoules"/"Centimeters"^3] To get energy per gallon: UnitConvert[%, "Joules"/"Gallons"] (* Quantity[1.23782965*^8, "Joules"/"Gallons"] *)


6

As pointed out by Michael Seifert in a comment GeoGraphics[Polygon[Ctrl+=Italy]] should work (it worked for me), but if you want do it without using Wolfram's server, try GeoGraphics[Polygon[Entity["Country", "Italy"]], GeoBackground -> None]


6

As Guesswhoitis already suggested, this is a machine precision issue. So let us do your computation with arbitrary precision numbers. For doing so, all machine numbers have to be replaced with arbitrary precision numbers, otherwise the computation falls back to machine numbers. In the following command I have done this by placing `30 after each machine ...


5

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


5

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


5

airports = {"ABE", "ABI", "ACT"}; AirportData["Properties"] data = AirportData[#, {"IATACode", "Name", "Cities", "Latitude", "Longitude"}] & /@ airports; data // Grid airports = {"ABE", "ABI", "ACT"}; EDIT: A quicker method would be to download a .csv file and filter it. data = Import["http://ourairports.com/data/airports.csv"]; The ...


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:


4

At a crude level, the evaluator that does the TrigExpand can be emulated by a FixedPoint or ReplaceRepeated. If we want to see the steps behind this particular kind of evaluation, it seems possible that a simple substitute for the built-in TrigExpand can be implemented based on FixedPointList instead of FixedPoint, to keep track of the steps. Here is a ...


4

You're pretty close. The following code should do it: Entity["Airport", #]& /@ airports


4

Note This answer was meant for a bit of fun but instead does a good job of managing expectations for Entity in the WL at present. Image Identify and Google Image Search Wolfram have heavily promoted their ImageIdentify project (http://blog.wolfram.com/2015/05/13/wolfram-language-artificial-intelligence-the-image-identification-project/) which might be a ...


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

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

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

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

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

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, #] &]



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