Satellite Power Subsystem 

In[1]:=

X \[ScriptCapitalD]Battery = ExponentialDistribution[1/300]; \[ScriptCapitalD]Solarpanels = ExponentialDistribution[1/1000]; \[ScriptCapitalS]battery = StandbyDistribution[\[ScriptCapitalD]Battery, \ {\[ScriptCapitalD]Battery}]; \[ScriptCapitalR]satellite = ReliabilityDistribution[ solarpanel \[And] battery, {{solarpanel, \[ScriptCapitalD]Solarpanels}, {battery, \ \[ScriptCapitalS]battery}}];

The average number of load cycles the system can stand.

In[2]:=

X \[Mu] = NExpectation[t, t \[Distributed] \[ScriptCapitalR]satellite]

Out[2]=

In[3]:=

X Plot[SurvivalFunction[\[ScriptCapitalR]satellite, t], {t, 0, 800}, Filling -> Axis, PlotStyle -> Thick]

Out[3]=

The improvement potential for the components.

In[4]:=

X Plot[Evaluate@ ImprovementImportance[\[ScriptCapitalR]satellite \.00, t], {t, 0, 800}, PlotLegends -> {"Solar panel", "Battery"}, Filling -> Axis]

Out[4]=