文档章节

绘制正弦曲线和余弦曲线

涂孟超
 涂孟超
发布于 2014/09/26 15:29
字数 136
阅读 24
收藏 0
本例效果图:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  BoolArr: array[Boolean] of string = ('余弦曲线', '正弦曲线');
var
  f: Boolean = True;

procedure TForm1.FormClick(Sender: TObject);
begin
  f := not f;
  Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  x: Integer;
  y,radian: Double;
begin
  Canvas.Pen.Width := 2;
  Canvas.Pen.Color := clRed;
  Canvas.MoveTo(0, ClientWidth div 2);
  for x := 0 to ClientWidth do
  begin
    radian := x / ClientWidth * 4 * pi;
    if f then y := Sin(radian) else y := Cos(radian);
    y := (1-y) * ClientHeight / 2;
    Canvas.LineTo(Round(x), Round(y));
  end;
  Text := BoolArr[f];
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/27/1208753.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Delphi实现正弦曲线的绘制

在Delphi中没有直接正弦曲线的函数。但是在科学研究中,正弦曲线的应用是非常广泛的,本实例介绍如何绘制正弦曲线。 本实例要在窗体上直接绘制正弦曲线,为了防止窗口切换的过程中会输出不完...

isolated
2011/05/14
58
0
Android自定义View——实现水波纹效果类似剩余流量球

最近突然手痒就想搞个贝塞尔曲线做个水波纹效果玩玩,终于功夫不负有心人最后实现了想要的效果,一起来看下吧: 效果图镇楼 一:先一步一步来分解一下实现的过程 需要绘制一个正弦曲线(sin)...

a_zhon
2017/09/04
0
0
玩转双核CPU:左手画圆,右手画方

两年前,微软亚洲研究院出版了《编程之美》一书,其中的第一章第一节“让CPU占用率曲线听你指挥”一文,可谓是在全国范围内掀起了一股玩转CPU占用率曲线热。我本人甚至在坐公交的时候都在思考...

技术小阿哥
2017/11/27
0
0
一个灵活的,可配置的波浪动画插件

先看效果 效果展示 github 起因 春节放假前的第二天上午,看到设计稿上的图(如下),于是发生了下面的对话 -我:把这个图传一下吧。 -UI:好的,你是要 gif 吧。 -我:啥?这个是个动画? ...

demonQ
02/15
0
0
ABAP开发基础知识:8)数值运算及算术运算函数

程序中缺少不了数据运算,以下介绍ABAP所支持的运算符。 (1)算术运算符 算术运算符有 +(加)、-(减)、(乘)、/(除)、DIV(整除)、MOD(取余)、*(乘方)。 运算符的基本格式为: ...

ken_ngai
2012/03/28
0
0

没有更多内容

加载失败,请刷新页面

加载更多

一起来学Java8(三)——方法引用

在一起来学Java8(一)——函数式编程中有一个简单的函数式编程的例子: import java.util.function.Consumer;class Person { public static void sayHello(String name) { S...

猿敲月下码
23分钟前
11
0
读书笔记:深入理解ES6(十一)

第十一章 Promise与异步编程   Promise可以实现其他语言中类似Future和Deferred一样的功能,是另一种异步编程的选择,它既可以像事件和回调函数一样指定稍后执行的代码,也可以明确指示代码...

张森ZS
47分钟前
19
0
面试官,Java8 JVM内存结构变了,永久代到元空间

在文章《JVM之内存结构详解》中我们描述了Java7以前的JVM内存结构,但在Java8和以后版本中JVM的内存结构慢慢发生了变化。作为面试官如果你还不知道,那么面试过程中是不是有些露怯?作为面试...

程序新视界
55分钟前
28
0
Elasticsearch 实战(一) - 简介

官腔 Elasticsearch,分布式,高性能,高可用,可伸缩的搜索和分析系统 基本等于没说,咱们慢慢看 1 概述 百度:我们比如说想找寻任何的信息的时候,就会上百度去搜索一下,比如说找一部自己喜...

JavaEdge
59分钟前
23
0
【jQuery基础学习】11 jQuery性能简单优化

本文转载于:专业的前端网站➦【jQuery基础学习】11 jQuery性能简单优化 关于性能优化 合适的选择器 $("#id")会直接调用底层方法,所以这是最快的。如果这样不能直接找到,也可以用find方法继...

前端老手
今天
18
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部