R Notebook

#Step 1
#defining variables
depth = 300 # in meters
density = 1025 # seawater density in kg/m^3
gravity = 9.8 # m/s^2


# step 2
#computing raw pressure using the formula

pressure = density * gravity * depth

# step 3
#Subrating 100k from the pressure to account for air compression inside the sub

air_compress = pressure - 100000



# step 4 
#taking the square root of the result
adjusted_pressure = sqrt(air_compress)


# step 5 
#raising the result to the power of 1.1 to stimulte extra hull stress.

final_hull_stress = adjusted_pressure^1.1



# step 6
# Printing all the results
print(pressure)

[1] 3013500

print(air_compress)

[1] 2913500

print(adjusted_pressure)

[1] 1706.898

print(final_hull_stress)

[1] 3592.76