sqtest <- function(x, y) {
    z1 = x^2
    z2 = y^2
    z3 =z1 + z2
    return(z3)
}

# 示例调用函数
num1 = 3
num2 = 4
result = sqtest(num1, num2)
print(result)

## [1] 25

##自己练

# 定义函数计算两个数的平方和并检查参数类型
sqtest <- function(x, y) {
    z1 <- x^2
    z2 <- y^2
    z3 <- z1 + z2
    return(z3)
}

# 示例调用函数
num1 <- 3
num2 <- "4"  # 这里故意传入一个非数值类型来测试错误处理
tryCatch({
    result <- sqtest(num1, num2)
    print(result)
}, error = function(e) {
    print(e)
})

## <simpleError in y^2: 二进列运算符中有非数值参数>

# 定义函数计算两个数的平方和，可处理向量输入
sqtest <- function(x, y) {
    z1 <- x^2
    z2 <- y^2
    z3 <- z1 + z2
    return(z3)
}

# 示例调用函数
num1_vec <- c(1, 2, 3)
num2_vec <- c(4, 5, 6)
result_vec <- sqtest(num1_vec, num2_vec)
print(result_vec)

## [1] 17 29 45