变量 线间隔 为 整数型 =45

事件 主窗口.创建完毕()

       画板1.背景颜色=无色

       主窗口.添加菜单("画正弦曲线",-1)

       主窗口.添加菜单("退出",-1)

       变量 坐标 为 文本型

       变量 计数1 为 双精度小数型

       变量 计数2 为 双精度小数型

       画板1.清空()

       '画横线

       变量循环首 计数1=线间隔*2 至 28*线间隔 步进 0.5

              画板1.画圆(计数1,7*线间隔,1)

       变量循环尾

       '画竖线

       变量循环首 计数1=线间隔*2 至 28*线间隔 步进 线间隔

              坐标=整数到文本(计数1/线间隔-2)

              画板1.画笔颜色=绿色

              变量循环首 计数2 = 2*线间隔 至 12*线间隔 步进 0.5

                     画板1.画圆(计数1,计数2,1)

              变量循环尾

              如果 到整数( 坐标)<26 则

                     画板1.画笔颜色=红色

                     如果 到整数(坐标)<10 则

                            画板1.画文字(计数1-6,7*线间隔+20,坐标)

                     否则

                            画板1.画文字(计数1-12,7*线间隔+20,坐标)

                     结束 如果

              结束 如果

       变量循环尾

结束 事件

过程 画正弦曲线(周期 为 整数型,偏移 为 整数型,高度差系数 为 双精度小数型)

       变量 计数1 为 双精度小数型

       变量 纵坐标 为 双精度小数型

       变量循环首 计数1=线间隔*2 至 28*线间隔 步进 0.1

              纵坐标=-5*线间隔*求正弦((计数1+(偏移-2)*线间隔)/(线间隔*周期/6.2831852))+7*线间隔

              如果 纵坐标<=6*线间隔 则

                     纵坐标=5*线间隔-高度差系数*线间隔

              否则如果  纵坐标>=8*线间隔 则

                     纵坐标=9*线间隔+高度差系数*线间隔

              否则如果 纵坐标>7*线间隔 则

                     纵坐标=((2+高度差系数)*线间隔)*求平方根((纵坐标-7*线间隔)/线间隔)+7*线间隔

              否则      

                     纵坐标=-((2+高度差系数)*线间隔)*求平方根((7*线间隔-纵坐标)/线间隔)+7*线间隔

              结束 如果

              画板1.画圆(计数1,纵坐标,1)

       变量循环尾          

结束 过程

事件 主窗口.菜单被选择(菜单名 为 文本型)

       如果 菜单名="画正弦曲线" 则

              画板1.画笔颜色=红色

              画正弦曲线(20,0,0)

              画板1.画笔颜色=黑色

              画正弦曲线(25,0,0.1)

              画板1.画笔颜色=黄色

              画正弦曲线(16,0,0.2)         

       否则

              结束程序()

       结束 如果

结束 事件