// Create a system based on Berg Propulsion design 5677
// Type of system:      Geared
// Length of system:    11307 mm
// Number of bearings:  4
// Number of op-modes:  4
// Special settings:    Clearance on bearings + open shaft calculation

// Create shaft elements
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=503 mm; DiameterOuterAft=828 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=527 mm; DiameterOuterAft=1230 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=500 mm; DiameterOuterAft=1230 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=136 mm; DiameterOuterAft=1230 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=331 mm; DiameterOuterAft=390 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=250 mm; DiameterOuterAft=390 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=538 mm; DiameterOuterAft=390 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=165 mm; DiameterOuterAft=390 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=200 mm; DiameterOuterAft=390 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=1932 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=260 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=40 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=378 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=50 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=200 mm; DiameterOuterAft=370 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=2977 mm; DiameterOuterAft=350 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=656 mm; DiameterOuterAft=580 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Flange() { Description = "Flange aft"; Length=70 mm; DiameterOuterAft=820 mm; DiameterInner=450 mm });
dataModel.AddShaft(new Flange() { Description = "Flange fwd"; Length=80 mm; DiameterOuterAft=820 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=191 mm; DiameterOuterAft=400 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=15 mm; DiameterOuterAft=385 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=67 mm; DiameterOuterAft=360 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=67 mm; DiameterOuterAft=360 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=111 mm; DiameterOuterAft=360 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=29 mm; DiameterOuterAft=540 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=60 mm; DiameterOuterAft=596 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=81 mm; DiameterOuterAft=1650 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=81 mm; DiameterOuterAft=1650 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=60 mm; DiameterOuterAft=596 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=29 mm; DiameterOuterAft=540 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=21 mm; DiameterOuterAft=346 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=115 mm; DiameterOuterAft=335 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=60.5 mm; DiameterOuterAft=320 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=60.5 mm; DiameterOuterAft=320 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=135 mm; DiameterOuterAft=300 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=306 mm; DiameterOuterAft=270 mm; DiameterInner=130 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=5 mm; DiameterOuterAft=270 mm; DiameterInner=150 mm });
dataModel.AddShaft(new Shaft() { Description = "Shaft"; Length=20 mm; DiameterOuterAft=262 mm; DiameterInner=150 mm });

// Create bearings
dataModel.AddBearing(Bearing1 = new Bearing() { Description="B1"; Position=2247 mm; Extension=40 mm });
dataModel.AddBearing(Bearing2 = new Bearing() { Description="B2"; Position=5342 mm; Extension=40 mm });
dataModel.AddBearing(Bearing3 = new Bearing() { Description="B3"; Position=10066 mm; Extension=40 mm });
dataModel.AddBearing(Bearing4 = new Bearing() { Description="B4"; Position=10780 mm; Extension=40 mm });

// Properties for each bearing
Bearing1.Clearance = 1.0 mm;
Bearing1.Extension = 788 mm;
Bearing1.AftExtension = 250 mm;
Bearing2.Clearance = 1.0 mm;
Bearing2.Extension = 300 mm;
Bearing2.AftExtension = 260 mm;
Bearing3.Clearance = 1.0 mm;
Bearing3.Extension = 130 mm;
Bearing3.AftExtension = 67 mm;
Bearing4.Clearance = 1.0 mm;
Bearing4.Extension = 121 mm;
Bearing4.AftExtension = 60.5 mm;
