In[]:=
Clear["Global`*"];
In[]:=
port={"Air Liquide","Alstom","Amazon","ORA.PA","PepsiCo Inc"};names=FinancialData[#,"Name"]&/@port;port-namesVars={"Name","Price","Change","Volume","Return"};Info=ParallelMap[FinancialData[#,Vars]&,port];(*Triparordredécroissantduprix*)Info=Sort[ParallelMap[{#[[1]],CurrencyConvert[#[[2]],"USDollars"],CurrencyConvert[#[[3]],"USDollars"],#[[4]],#[[5]]}&,Info],#1[[2]]>#2[[2]]&];Print[TableForm[Info,TableHeadings{None,Vars}]];Vals=Map[QuantityMagnitude[#[[2]]]&,Info];(*Triparordredécroissantduprix*)port=First@Transpose@Info;
Out[]=
{0,0,0,-Orange+ORA.PA,0}
(kernel 6)
Initializing FinancialData indices ....
(kernel 5)
Initializing FinancialData indices ....
(kernel 4)
Initializing FinancialData indices ....
(kernel 3)
Initializing FinancialData indices ....
(kernel 2)
Initializing FinancialData indices ....
(kernel 4)
Initializing FinancialData indices ....
(kernel 3)
Initializing FinancialData indices ....
(kernel 2)
Initializing FinancialData indices ....
(kernel 6)
Initializing FinancialData indices ....
(kernel 5)
Initializing FinancialData indices ....
During evaluation of In[3]:=
Name | Price | Change | Volume | Return |
PepsiCo Inc | ||||
Air Liquide | ||||
Amazon | ||||
Alstom | ||||
Orange |
In[]:=
Mois=6;début=DayRound[DatePlus[{-Mois,"Month"}],"BusinessDay"]Y=FinancialData[#,"Return",{début,Date[]},"DateValue"]&/@port;(*Unité:%*)Print@MapThread[DateListPlot[#1,FrameTrue,PlotRangeAll,PlotLabel#2]&,{Y,port}];
Out[]=
,
,
,
,DateListPlot[Missing[NotAvailable],FrameTrue,PlotRangeAll,PlotLabelOrange]
