Haskell程序读取坐标点并确定其象限

本教程将帮助我们读取x和y坐标并确定其象限。如果两个坐标都为正，则点位于第一象限；如果x坐标为正且y坐标为负，则点位于第四象限；如果x坐标为负且y坐标为正，则点位于第二象限；如果两个坐标都为负，则点位于第三象限。

算法

  • 步骤1 − 使用x和y坐标上的某些条件定义象限函数。

  • 步骤2 − 程序执行将从主函数开始。main()函数控制整个程序。

  • 步骤3 − 初始化名为“x”和“y”的变量。它将包含要确定其象限的坐标值。

  • 步骤4 − 使用'putStrLn'语句显示最终的象限结果。

使用用户自定义函数

在此示例中，我们创建一个名为quadrant的函数，该函数将x和y坐标的元组作为输入，并返回一个字符串，指示点位于哪个象限。

示例1

quadrant :: (Float, Float) -> String
quadrant (x, y)
   | x > 0 && y > 0 = "First Quadrant"
   | x < 0 && y > 0 = "Second Quadrant"
   | x < 0 && y < 0 = "Third Quadrant"
   | x > 0 && y < 0 = "Fourth Quadrant"
   | x == 0 || y == 0 = "On the Axis"

main = do
   let x = -2
   let y = 4
   putStrLn $ "Point lies in " ++ quadrant (x, y)

输出

Point lies in Second Quadrant

使用atan2函数

在此示例中，我们使用atan2函数计算正x轴与连接点到原点的直线之间的弧度角。使用此角度，我们可以确定点位于哪个象限。

示例2

quadrant :: (Float, Float) -> String
quadrant (x, y)
   | angle > 0 && angle < pi/2 = "First Quadrant"
   | angle > pi/2 && angle < pi = "Second Quadrant"
   | angle > pi && angle < 3*pi/2 = "Third Quadrant"
   | angle > 3*pi/2 && angle < 2*pi = "Fourth Quadrant"
   | x == 0 && y == 0 = "Origin"
   | x == 0 || y == 0 = "On the Axis"
   where angle = atan2 y x
main = do
   let x = 3
   let y = 2
   putStrLn $ "Point lies in " ++ quadrant (x, y)

输出

Point lies in First Quadrant

使用x和y坐标的符号

在此示例中，它检查x和y坐标的符号，并据此确定点所在的象限。它还处理点位于x轴或y轴或原点的情况。

示例3

quadrant :: (Float, Float) -> String
quadrant (x, y)
   | x > 0 && y > 0 = "First Quadrant"
   | x < 0 && y > 0 = "Second Quadrant"
   | x < 0 && y < 0 = "Third Quadrant"
   | x > 0 && y < 0 = "Fourth Quadrant"
   | x == 0 && y == 0 = "Origin"
   | x == 0 = "On the x-axis"
   | y == 0 = "On the y-axis"

main = do
   let x = -7
   let y = -5
   putStrLn $ "Point lies in " ++ quadrant (x, y)

输出

Point lies in Third Quadrant

结论

在Haskell中，有多种方法可以读取x和y坐标并确定其象限。这些方法可以通过使用象限函数、atan2函数或通过检查x和y坐标的符号来实现。

更新于: 2023年1月23日

188次查看

开启您的职业生涯

通过完成课程获得认证

开始学习
广告