吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 3473|回复: 12
收起左侧

[其他转载] 心形图案[一]

[复制链接]
jiujiukeji 发表于 2018-8-21 10:38
本帖最后由 jiujiukeji 于 2018-8-21 10:45 编辑

[PHP] 纯文本查看 复制代码
<?php

$str = [".",":","-","=","+","*","#","%","@"];



//一个有3d效果的爱心
function f($x, $y, $z) {
    $a = $x * $x + 9 / 4 * $y * $y + $z * $z - 1;
    return $a * $a * $a - $x * $x * $z * $z * $z - 9 / 80 * $y * $y * $z * $z * $z;
}

function h($x, $z) {
    for ($y = 1; $y >= 0; $y -= 0.001)
        if (f($x, $y, $z) <= 0)
            return $y;
    return 0;
}

for ($z = 1.5; $z > -1.5; $z -= 0.05) {
    for ($x = -1.5; $x < 1.5; $x += 0.025) {
        $v = f($x, 0, $z);
        if ($v <= 0) {
            $y0 = h($x, $z);
            $ny = 0.01;
            $nx = h($x + $ny, $z) - $y0;
            $nz = h($x, $z + $ny) - $y0;
            $nd = 1 / sqrt($nx * $nx + $ny * $ny + $nz * $nz);
            $d = ($nx + $ny - $nz) * $nd * 0.5 + 0.5;
            echo ($str[(int) ($d * 5)]);
        } else
            echo ' ';
    }
    echo "\n";
}



保存成php文件运行,之后鼠标邮件查看源代码

效果图:
970633B9-A64F-4096-9CED-BF0DDB1D7EB5.png

免费评分

参与人数 1吾爱币 +1 热心值 +1 收起 理由
半只拖鞋 + 1 + 1 谢谢@Thanks!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

半只拖鞋 发表于 2018-8-21 10:53
能不能写个MATLAB的新型代码
Kaiter_Plus 发表于 2018-8-21 10:58
pqingquan 发表于 2018-8-21 11:18
头像被屏蔽
vvking6 发表于 2018-8-21 11:27
提示: 作者被禁止或删除 内容自动屏蔽
头像被屏蔽
vvking7 发表于 2018-8-21 11:29
提示: 作者被禁止或删除 内容自动屏蔽
 楼主| jiujiukeji 发表于 2018-8-21 11:42
半只拖鞋 发表于 2018-8-21 10:53
能不能写个MATLAB的新型代码

没学过这个语言 看不懂
lz198959 发表于 2018-8-21 11:55
心形吸引力不大~弄个S型美女
insisty 发表于 2018-8-21 12:53
论坛有你更精彩!
世俗红尘 发表于 2018-8-21 13:47
不行呀 每次都打不开
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-15 16:52

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表