Introduction
Introduction
In this notebook we calibrate the Heterogeneous Salvo Combat Model (HSCM), [MJ1, AAp1], to the First World War Battle of Coronel, [Wk1]. Our goal is to exemplify the usage of the functionalities of the paclet "SalvoCombatModeling", [AAp1]. We closely follow the Section B of Chapter III of [MJ1]. The calibration data used in [MJ1] is taken from [TB1].
Setup
Setup
In[]:=
(*PacletInstall["AntonAntonov/SalvoCombatModeling"]*)
Here we load the paclet:
In[]:=
Needs["AntonAntonov`SalvoCombatModeling`"]
The battle
The battle
The Battle of Coronel is a First World War naval engagement between three British ships {Good Hope, Monmouth, and Glasgow) and four German ships (Scharnhorst, Gneisenau, Leipzig, and Dresden). The battle happened on 1 November 1914, off the coast of central Chile near the city of Coronel.
The Scharnhorst and Gneisenau are the first ships to open fire at Good Hope and Monmouth; the three British ships soon afterwards return fire. Dresden and Leipzig open fire on Glasgow, driving her out of the engagement. At the end of the battle, both Good Hope and Monmouth are sunk, while Glasgow, Scharnhorst, and Gneisenau were damaged.
In[]:=
Dataset[Transpose[{{"Good Hope","Monmouth","Glasgow","Scharnhorst","Gneisenau","Leipzig","Dresden"},{0,0,15,28,28,2,2}}]][All,AssociationThread[{"Ship","Duration of fire"},#]&]
Out[]=
The following graph shows which ship shot at which ships and total fire duration (in minutes):
Out[]=
Model
Model
The British ships are in Good Hope, Monmouth, and Glasgow. They correspond to the indices 1, ,2, and 3 respectively.
In[]:=
AssociationThread[Range[3],{"Good Hope","Monmouth","Glasgow"}]
Out[]=
1Good Hope,2Monmouth,3Glasgow
The German ships are Scharnhorst, Gneisenau, Leipzig, and Dresden:
In[]:=
AssociationThread[Range[4],{"Scharnhorst","Gneisenau","Leipzig","Dresden"}]
Out[]=
1Scharnhorst,2Gneisenau,3Leipzig,4Dresden
Remark: The Battle of Coronel is modeled with a "typical" salvo model -- the ships use "continuous fire." Hence, there are no interceptors and or, in model terms, defense terms or matrices.
Here is the model (for 3 British ships and 4 German ships):
In[]:=
m=HeterogeneousSalvoModel[{B,3},{G,4},"OffensiveEffectivenessTerms"->True]
Out[]=
Remove the defense matrices:
In[]:=
m=Cancel[m//.γ[___]->0]
Out[]=
BUnits{B[1],B[2],B[3]},OffenseMatrix,,,,,,,,,,,,DefenseMatrix{{0,0,0},{0,0,0},{0,0,0}},GUnits{G[1],G[2],G[3],G[4]},OffenseMatrix,,,,,,,,,,,,DefenseMatrix{{0,0,0,0},{0,0,0,0},{0,0,0,0},{0,0,0,0}}
β[G,B,1,1]ε[G,B,1,1]Ψ[G,B,1,1]
ζ[B,1]
β[G,B,2,1]ε[G,B,2,1]Ψ[G,B,2,1]
ζ[B,1]
β[G,B,3,1]ε[G,B,3,1]Ψ[G,B,3,1]
ζ[B,1]
β[G,B,4,1]ε[G,B,4,1]Ψ[G,B,4,1]
ζ[B,1]
β[G,B,1,2]ε[G,B,1,2]Ψ[G,B,1,2]
ζ[B,2]
β[G,B,2,2]ε[G,B,2,2]Ψ[G,B,2,2]
ζ[B,2]
β[G,B,3,2]ε[G,B,3,2]Ψ[G,B,3,2]
ζ[B,2]
β[G,B,4,2]ε[G,B,4,2]Ψ[G,B,4,2]
ζ[B,2]
β[G,B,1,3]ε[G,B,1,3]Ψ[G,B,1,3]
ζ[B,3]
β[G,B,2,3]ε[G,B,2,3]Ψ[G,B,2,3]
ζ[B,3]
β[G,B,3,3]ε[G,B,3,3]Ψ[G,B,3,3]
ζ[B,3]
β[G,B,4,3]ε[G,B,4,3]Ψ[G,B,4,3]
ζ[B,3]
β[B,G,1,1]ε[B,G,1,1]Ψ[B,G,1,1]
ζ[G,1]
β[B,G,2,1]ε[B,G,2,1]Ψ[B,G,2,1]
ζ[G,1]
β[B,G,3,1]ε[B,G,3,1]Ψ[B,G,3,1]
ζ[G,1]
β[B,G,1,2]ε[B,G,1,2]Ψ[B,G,1,2]
ζ[G,2]
β[B,G,2,2]ε[B,G,2,2]Ψ[B,G,2,2]
ζ[G,2]
β[B,G,3,2]ε[B,G,3,2]Ψ[B,G,3,2]
ζ[G,2]
β[B,G,1,3]ε[B,G,1,3]Ψ[B,G,1,3]
ζ[G,3]
β[B,G,2,3]ε[B,G,2,3]Ψ[B,G,2,3]
ζ[G,3]
β[B,G,3,3]ε[B,G,3,3]Ψ[B,G,3,3]
ζ[G,3]
β[B,G,1,4]ε[B,G,1,4]Ψ[B,G,1,4]
ζ[G,4]
β[B,G,2,4]ε[B,G,2,4]Ψ[B,G,2,4]
ζ[G,4]
β[B,G,3,4]ε[B,G,3,4]Ψ[B,G,3,4]
ζ[G,4]
Put tooltip interpretations of the terms:
In[]:=
Blockvrules=Map#[[1]]->Tooltip#[[1]],#[[2]],&,SalvoVariableRules[{B,3},{G,4}],ReplaceAll[m,vrules]
Out[]=
BUnits{B[1],B[2],B[3]},OffenseMatrix,,,,,,,,,,,,DefenseMatrix{{0,0,0},{0,0,0},{0,0,0}},GUnits{G[1],G[2],G[3],G[4]},OffenseMatrix,,,,,,,,,,,,DefenseMatrix{{0,0,0,0},{0,0,0,0},{0,0,0,0},{0,0,0,0}}
β[G,B,1,1]
ε[G,B,1,1]
Ψ[G,B,1,1]
ζ[B,1]
β[G,B,2,1]
ε[G,B,2,1]
Ψ[G,B,2,1]
ζ[B,1]
β[G,B,3,1]
ε[G,B,3,1]
Ψ[G,B,3,1]
ζ[B,1]
β[G,B,4,1]
ε[G,B,4,1]
Ψ[G,B,4,1]
ζ[B,1]
β[G,B,1,2]
ε[G,B,1,2]
Ψ[G,B,1,2]
ζ[B,2]
β[G,B,2,2]
ε[G,B,2,2]
Ψ[G,B,2,2]
ζ[B,2]
β[G,B,3,2]
ε[G,B,3,2]
Ψ[G,B,3,2]
ζ[B,2]
β[G,B,4,2]
ε[G,B,4,2]
Ψ[G,B,4,2]
ζ[B,2]
β[G,B,1,3]
ε[G,B,1,3]
Ψ[G,B,1,3]
ζ[B,3]
β[G,B,2,3]
ε[G,B,2,3]
Ψ[G,B,2,3]
ζ[B,3]
β[G,B,3,3]
ε[G,B,3,3]
Ψ[G,B,3,3]
ζ[B,3]
β[G,B,4,3]
ε[G,B,4,3]
Ψ[G,B,4,3]
ζ[B,3]
β[B,G,1,1]
ε[B,G,1,1]
Ψ[B,G,1,1]
ζ[G,1]
β[B,G,2,1]
ε[B,G,2,1]
Ψ[B,G,2,1]
ζ[G,1]
β[B,G,3,1]
ε[B,G,3,1]
Ψ[B,G,3,1]
ζ[G,1]
β[B,G,1,2]
ε[B,G,1,2]
Ψ[B,G,1,2]
ζ[G,2]
β[B,G,2,2]
ε[B,G,2,2]
Ψ[B,G,2,2]
ζ[G,2]
β[B,G,3,2]
ε[B,G,3,2]
Ψ[B,G,3,2]
ζ[G,2]
β[B,G,1,3]
ε[B,G,1,3]
Ψ[B,G,1,3]
ζ[G,3]
β[B,G,2,3]
ε[B,G,2,3]
Ψ[B,G,2,3]
ζ[G,3]
β[B,G,3,3]
ε[B,G,3,3]
Ψ[B,G,3,3]
ζ[G,3]
β[B,G,1,4]
ε[B,G,1,4]
Ψ[B,G,1,4]
ζ[G,4]
β[B,G,2,4]
ε[B,G,2,4]
Ψ[B,G,2,4]
ζ[G,4]
β[B,G,3,4]
ε[B,G,3,4]
Ψ[B,G,3,4]
ζ[G,4]
Concrete parameter values
Concrete parameter values
Setting the parameter values as in [MJ1]:
In[]:=
ClearAll[β,ζ,ε,Ψ]
In[]:=
β[G,B,1,1]=2.16;β[G,B,1,2]=2.16;β[G,B,1,3]=2.16;β[G,B,2,1]=2.16;β[G,B,2,2]=2.16;β[G,B,2,3]=2.16;β[G,B,3,1]=2.165;β[G,B,3,2]=2.165;β[G,B,3,3]=2.165;β[G,B,4,1]=2.165;β[G,B,4,2]=2.165;β[G,B,4,3]=2.165;
In[]:=
ζ[B,1]=1.605;ζ[B,2]=1.605;ζ[B,3]=1.23;
In[]:=
ε[G,B,1,1]=0.028;ε[G,B,1,2]=0.028;ε[G,B,1,3]=0.028;ε[G,B,2,1]=0.028;ε[G,B,2,2]=0.028;ε[G,B,2,3]=0.028;ε[G,B,3,1]=0.012;ε[G,B,3,2]=0.012;ε[G,B,3,3]=0.012;ε[G,B,4,1]=0.012;ε[G,B,4,2]=0.012;ε[G,B,4,3]=0.012;
Damage calculations
Damage calculations
How many salvos to achieve total damage of Good Hope and Monmouth:
That is close to the 28 min of fire by Scharnhorst and Gneisenau at Good Hope and Monmouth.
Total damage of on Glasgow -- Leipzig and Dresden fire for 2 min at Glasgow:
References
References
Articles, theses
Articles, theses
[MJ1] Michael D. Johns, Steven E. Pilnick, Wayne P. Hughes, "Heterogeneous Salvo Model for the Navy After Next", (2000), Defense Technical Information Center.
[TB1] Thomas R. Beall, "The Development of a Naval Battle Model and Its Validation Using Historical Data", (1990), Defense Technical Information Center.
Paclets
Paclets
CITE THIS NOTEBOOK
CITE THIS NOTEBOOK
Salvo combat modeling: Battle of Coronel
by Anton Antonov
Wolfram Community, STAFF PICKS, March 1, 2026
https://community.wolfram.com/groups/-/m/t/3646989
by Anton Antonov
Wolfram Community, STAFF PICKS, March 1, 2026
https://community.wolfram.com/groups/-/m/t/3646989