R Notebook Set 1

# Dimensions
length <- 10
height <- 7
bricks_per_sqft <- 4
damaged_bricks <- 3

# Total calculation
total_bricks <- (length * height * bricks_per_sqft) - damaged_bricks
effort <- sqrt(total_bricks)

print(paste("Effort estimate:", effort))

[1] "Effort estimate: 16.6433169770932"

mass <- 2
speed <- 3

energy <- mass * (speed^2) + 10 - 2 / speed
energy_sqrt <- sqrt(energy)

print(paste("Energy:", energy))

[1] "Energy: 27.3333333333333"

print(paste("Square root of energy:", energy_sqrt))

[1] "Square root of energy: 5.22812904711937"

orange_juice <- 250
pineapple_juice <- 300
spilled <- 75

# Total remaining juice
total_juice <- orange_juice + pineapple_juice - spilled
per_person <- (total_juice / 2)^0.5

print(paste("Juice per person:", per_person))

[1] "Juice per person: 15.4110350074224"

mass <- 80
acceleration <- 9.8
wind_resistance <- 25

force <- mass * acceleration
net_force <- force - wind_resistance
sqrt_force <- sqrt(net_force)
adjusted_force <- sqrt_force^1.2

print(paste("Raw force:", force))

[1] "Raw force: 784"

print(paste("Net force after wind resistance:", net_force))

[1] "Net force after wind resistance: 759"

print(paste("Square root of net force:", sqrt_force))

[1] "Square root of net force: 27.5499546279118"

print(paste("Adjusted force:", adjusted_force))

[1] "Adjusted force: 53.4742947479505"

radius <- 7
pi_value <- 3.14

# Area and adjustments
area <- pi_value * radius^2
thick_crust <- area * 1.2
reduced_area <- thick_crust * (1 - 0.05)  # Subtract 5%
deliciousness <- sqrt(reduced_area)

print(paste("Deliciousness estimate:", deliciousness))

[1] "Deliciousness estimate: 13.2438816062361"

plot(cars)