- 注册时间
- 2021-11-19
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 8557
- 在线时间
- 小时
|
楼主 |
发表于 2023-9-26 12:24:39
|
显示全部楼层
nyy 发表于 2023-9-26 12:20
不断地开根号
\[\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sq ... - use strict;use warnings;use diagnostics;
- my $str="\\frac{1}{2}";#第一个初始的值
- my $add=2;#初始分母每个数字应该增加的值
- my $fm;#分母
- my $i=1;#循环变量
- my $max=5;#最大的数是2^($max)
- while($i<$max)#最大的数是2^($max)
- {
- $fm=$str;#把分子字符串赋值给分母
- $fm=~s/(\d+)/$1+$add/eg;#分母上的各个数增加$add,e表示计算
- $str="\\frac{$str}{$fm}";#由分子分母得到一个新的分数
- $add=$add*2;#下次增加的数乘以2,依次是2 4 8 16 32 64
- $i++;
- }
- #输出结果
- open(FH,">out2.txt");
- print FH "\\[$str\\]";
- print FH "\n";
- close(FH);
- #指数金字塔
- #$max=4时的输出结果:\[1^{2^{3^{4}}}\]
- $max=95;#最大的指数是$max
- my $aa="1";#最下面的base
- my $bb="";
- $i=2;#循环变量
- while($i<=$max)
- {
- $aa="$aa"."^{"."$i";
- $bb=$bb."}";
- $i++;
- }
- $str=$aa.$bb;#两部分拼成输出结果
- #输出结果
- open(FH,">>out2.txt");
- print FH "\\[$str\\]";
- print FH "\n";
- close(FH);
- #不断开根号金字塔
- #$max=5时的输出结果: \[\sqrt{1+\sqrt{2+\sqrt{3+\sqrt{4+\sqrt{5}}}}}\]
- $max=25;#最大的指数是$max
- $aa="\\sqrt{1";#初始值,最下面的base
- $bb="}";#初始值
- $i=2;#循环变量
- while($i<=$max)
- {
- $aa="$aa"."+\\sqrt{$i";
- $bb=$bb."}";
- $i++;
- }
- $str=$aa.$bb;#两部分拼成输出结果
- #输出结果
- open(FH,">>out2.txt");
- print FH "\\[$str\\]";
- print FH "\n";
- close(FH);
- #开n次方的金字塔
- #max=5的输出结果: \[\sqrt[{\sqrt[{\sqrt[{\sqrt[{5}]{4}}]{3}}]{2}}]{1}\]
- $max=5;#最大的指数是$max
- $aa="\\sqrt";#初始值,最下面的base
- $bb="{1}";#初始值
- $i=2;
- while($i<$max)
- {
- $aa=$aa . "[{\\sqrt";
- $bb="{$i}}]" . $bb;
- $i++;
- }
- $str=$aa."[{$max}]".$bb;#前后两部分,加上中间的
- #输出结果
- open(FH,">>out2.txt");
- print FH "\\[$str\\]";#加上LaTeX的符号
- print FH "\n";
- close(FH);
复制代码 |
|