又一个牛B函数:阴阳图极坐标函数

本文介绍了一种使用FreePascal程序绘制心形曲线的方法,并提供了一段示例代码。该程序通过定义一个极坐标下的隐函数来生成心形图案。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

    刚才在网上发现了上面这张猛图。急着想验证一下,但不知道Mathematica如何画极坐标的隐函数,于是写了一个Free Pascal的小程序。大家也可以试着把这个小程序粘贴到Free Pascal里运行一下看看。

{$ASSERTIONS+}
uses graph,math;
 
function f(t,r:extended):extended;
begin
   exit((cos(t-r)-sin(t)) * (r**4-2*r**2*cos(2*t+2.4)+0.9)+(0.62*r)**1000);
end;
 
var
   i,j,gd,gm:integer;
   t,r:extended;
begin
   gd:=D8bit;
   gm:=m640x480;
   InitGraph(gd,gm,'');
   Assert(graphResult=grOk);
 
   for i:=0 to 1000 do
   for j:=0 to 1000 do
   begin
      t:=(2*pi)*i/1000;
      r:=2*j/1000;
      if f(t,r)<0 then
         PutPixel(round(cos(t)*r*100)+300,round(sin(t)*r*100)+200,15)
   end;
 
   readln;
   CloseGraph;
end.

 
    果然不出所料,下面就是程序运行的结果:

      

 
每一次提到这类的东西,我都有一种把原来的那些牛B东西一起列出来的冲动。大家不要说我赚PV哦。
爱的方程式
爱的方程式3D版
数学公式生成的色情图片
Tupper自我指涉公式
隐藏在函数里的问候

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值