Alexander Romero Submarine Pressure Simulation

You are simulating the pressure experienced by a submarine at a certain depth. The pressure increases linearly with depth and is influenced by water density and gravity.

First we define the variables and come up with the math for all of them!

# Define variables
depth <- 300       # in meters
density <- 1025    # in kg/m^3
gravity <- 9.8     # in m/s^2

Now, I am doing the math for raw pressure!

# Compute raw pressure
raw_pressure <- density * gravity * depth
print(raw_pressure)

[1] 3013500

More math!

# Adjust pressure by subtracting 100,000 (air compression)
adjusted_pressure <- raw_pressure - 100000

Square root!

# Take square root of adjusted pressure
sqrt_adjusted <- sqrt(adjusted_pressure)

Stress estimate!

# Raise to the power of 1.1 for hull stress estimate
hull_stress <- sqrt_adjusted^1.1

Printing all the math!

# Print results
cat("Raw Pressure (Pa):", raw_pressure, "\n")

Raw Pressure (Pa): 3013500 

cat("Adjusted Pressure (Pa):", adjusted_pressure, "\n")

Adjusted Pressure (Pa): 2913500 

cat("Square Root of Adjusted Pressure:", sqrt_adjusted, "\n")

Square Root of Adjusted Pressure: 1706.898 

cat("Final Hull Stress Estimate:", hull_stress, "\n")

Final Hull Stress Estimate: 3592.76