WOLFRAM

Wolfram Language & System Documentation Center

Satellite Power Subsystem

A satellite needs power from its battery, which is recharged by solar panels. The battery has a standby battery.

Wolfram Language code: 𝒟Battery = ExponentialDistribution[1 / 300]; 𝒟Solarpanels = ExponentialDistribution[1 / 1000]; 𝒮battery = StandbyDistribution[𝒟Battery, {𝒟Battery}]; ℛsatellite = ReliabilityDistribution[solarpanel∧battery, {{solarpanel, 𝒟Solarpanels}, {battery, 𝒮battery}}];
The average number of load cycles the system can stand:
Wolfram Language code: μ = NExpectation[t, tℛsatellite]
Wolfram Language code: Plot[SurvivalFunction[ℛsatellite, t], {t, 0, 800}, Filling -> Axis, PlotStyle -> Thick]
The improvement potential for the components:
Wolfram Language code: Plot[Evaluate@ImprovementImportance[ℛsatellite, t], {t, 0, 800}, PlotLegends -> {"Solar panel", "Battery"}, Filling -> Axis]