找回密码
 欢迎注册
查看: 2007|回复: 20

[原创] LaTeX盖楼帖

[复制链接]
发表于 2023-9-25 14:16:17 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?欢迎注册

×
LaTeX代码:
  1. \color{red}{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{做}{个}}{笔}}{记}}{:}}{p}}{a}}{r}}{i}}{/}}{G}}{P}}{可}}{以}}{用}}{d}}{e}}{f}}{a}}{u}}{l}}{t}}{(}}{r}}{e}}{a}}{l}}{b}}{i}}{t}}{p}}{r}}{e}}{c}}{i}}{s}}{i}}{o}}{n}}{,}}{ }}{1}}{0}}{2}}{4}}{)}}{增}}{加}}{精}}{度}}{(}}{经}}{@}}{无}}{心}}{人}}{提}}{醒}}{,}}{可}}{以}}{用}}{p}}{ }}{1}}{0}}{2}}{4}}{设}}{定}}{精}}{度}}{)}}
复制代码


原本内容:
  1. 做个笔记:pari/GP可以用default(realbitprecision, 1024)增加精度(经@无心人提醒,可以用\p 1024设定精度)
复制代码



\[\color{red}{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{做}{个}}{笔}}{记}}{:}}{p}}{a}}{r}}{i}}{/}}{G}}{P}}{可}}{以}}{用}}{d}}{e}}{f}}{a}}{u}}{l}}{t}}{(}}{r}}{e}}{a}}{l}}{b}}{i}}{t}}{p}}{r}}{e}}{c}}{i}}{s}}{i}}{o}}{n}}{,}}{ }}{1}}{0}}{2}}{4}}{)}}{增}}{加}}{精}}{度}}{(}}{经}}{@}}{无}}{心}}{人}}{提}}{醒}}{,}}{可}}{以}}{用}}{p}}{ }}{1}}{0}}{2}}{4}}{设}}{定}}{精}}{度}}{)}}\]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-25 14:28:39 | 显示全部楼层
本帖最后由 nyy 于 2023-9-25 14:34 编辑
  1. \frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{1}{2}}{3}}{4}}{5}}{6}}{7}}{8}}{9}}{10}}{11}}{12}}{13}}{14}}{15}}{16}}{17}}{18}}{19}}{20}}{21}}{22}}{23}}{24}}{25}}{26}}{27}}{28}}{29}}{30}}{31}}{32}}{33}}{34}}{35}}{36}}{37}}{38}}{39}}{40}}{41}}{42}}{43}}{44}}{45}}{46}}{47}}{48}}{49}}{50}}{51}}{52}}{53}}{54}}{55}}{56}}{57}}{58}}{59}}{60}}{61}}{62}}{63}}{64}}{65}}{66}}{67}}{68}}{69}}{70}}{71}}{72}}{73}}{74}}{75}}{76}}{77}}{78}}{79}}{80}}{81}}{82}}{83}}{84}}{85}}{86}}{87}}{88}}{89}}{90}}{91}}{92}}{93}}{94}}{95}}{96}}{97}}{98}}{99}}{100}}{101}}{102}}{103}}{104}}{105}}{106}}{107}}{108}}{109}}{110}}{111}}{112}}{113}}{114}}{115}}{116}}{117}}{118}}{119}}{120}}{121}}{122}}{123}}{124}}{125}}{126}}{127}}{128}}{129}}{130}}{131}}{132}}{133}}{134}}{135}}{136}}{137}}{138}}{139}}{140}}{141}}{142}}{143}}{144}}{145}}{146}}{147}}{148}}{149}}{150}}{151}}{152}}{153}}{154}}{155}}{156}}{157}}{158}}{159}}{160}}{161}}{162}}{163}}{164}}{165}}{166}}{167}}{168}}{169}}{170}}{171}}{172}}{173}}{174}}{175}}{176}}{177}}{178}}{179}}{180}}{181}}{182}}{183}}{184}}{185}}{186}}{187}}{188}}{189}}{190}}{191}}{192}}{193}}{194}}{195}}{196}}{197}}{198}}{199}}{200}
复制代码


从上到下,依次是1到200(在QQ浏览器上,显示1到200会崩溃,但是火狐浏览器不会崩溃!)

\[
\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{\frac{1}{2}}{3}}{4}}{5}}{6}}{7}}{8}}{9}}{10}}{11}}{12}}{13}}{14}}{15}}{16}}{17}}{18}}{19}}{20}}{21}}{22}}{23}}{24}}{25}}{26}}{27}}{28}}{29}}{30}}{31}}{32}}{33}}{34}}{35}}{36}}{37}}{38}}{39}}{40}}{41}}{42}}{43}}{44}}{45}}{46}}{47}}{48}}{49}}{50}}{51}}{52}}{53}}{54}}{55}}{56}}{57}}{58}}{59}}{60}}{61}}{62}}{63}}{64}}{65}}{66}}{67}}{68}}{69}}{70}}{71}}{72}}{73}}{74}}{75}}{76}}{77}}{78}}{79}}{80}}{81}}{82}}{83}}{84}}{85}}{86}}{87}}{88}}{89}}{90}}{91}}{92}}{93}}{94}}{95}}{96}}{97}}{98}}{99}}{100}
\]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-25 14:37:37 | 显示全部楼层
nyy 发表于 2023-9-25 14:28
从上到下,依次是1到200(在QQ浏览器上,显示1到200会崩溃,但是火狐浏览器不会崩溃!)

\[
  1. #切割字符串成数组,数组必须大于等于2,否则错误,小于2也形成不了分数,
  2. #字符串等于"abcde",得到结果"\color{red}{\frac{\frac{\frac{\frac{a}{b}}{c}}{d}}{e}}"
  3. #就得到是LaTeX的分数(金字塔分数)的代码。20191217
  4. use strict;use warnings;use diagnostics;
  5. use Encode;#使用编码  
  6. my $txt="abcde";
  7. my $txt="做个笔记:pari/GP可以用default(realbitprecision, 1024)增加精度(经@无心人提醒,可以用\p 1024设定精度)";
  8. my @arrtxt=split(//,decode("cp936",$txt));#把字符串切割成数组
  9. my $aa="\\frac{" . $arrtxt[0] . "}{".$arrtxt[1]."}";#初始值
  10. my $i=2;#循环变量初始值
  11. while($i<=$#arrtxt)
  12. {
  13.     $aa="\\frac{".$aa."}{".$arrtxt[$i]."}";
  14.     $i++;
  15. }
  16. my $out="\\color{red}{".$aa."}";#最后结果红色处理
  17. #输出结果
  18. open(FH,">out3.txt");
  19. print FH encode("cp936",$out);
  20. #print FH encode("cp936","\n$arrtxt[0]$arrtxt[1]");
  21. close(FH);

  22. my $out="1";
  23. my $j=2;#循环变量初始值
  24. my $max=100;#最后一个数
  25. while($j<=$max) #最后一个数是$max
  26. {
  27.     $out="\\frac{".$out."}{".$j."}";
  28.     $j++;
  29. }
  30. #输出结果
  31. open(FH,">>out3.txt"); #追加写出结果
  32. print FH "\n$out"; #换行输出结果
  33. close(FH);
复制代码


perl代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 08:41:58 | 显示全部楼层
  1. \[\frac{\frac{\frac{\frac{\frac{1}{2}}{\frac{3}{4}}}{\frac{\frac{5}{6}}{\frac{7}{8}}}}{\frac{\frac{\frac{9}{10}}{\frac{11}{12}}}{\frac{\frac{13}{14}}{\frac{15}{16}}}}}{\frac{\frac{\frac{\frac{17}{18}}{\frac{19}{20}}}{\frac{\frac{21}{22}}{\frac{23}{24}}}}{\frac{\frac{\frac{25}{26}}{\frac{27}{28}}}{\frac{\frac{29}{30}}{\frac{31}{32}}}}}\]
复制代码


盖分数的楼!

\[\frac{\frac{\frac{\frac{\frac{1}{2}}{\frac{3}{4}}}{\frac{\frac{5}{6}}{\frac{7}{8}}}}{\frac{\frac{\frac{9}{10}}{\frac{11}{12}}}{\frac{\frac{13}{14}}{\frac{15}{16}}}}}{\frac{\frac{\frac{\frac{17}{18}}{\frac{19}{20}}}{\frac{\frac{21}{22}}{\frac{23}{24}}}}{\frac{\frac{\frac{25}{26}}{\frac{27}{28}}}{\frac{\frac{29}{30}}{\frac{31}{32}}}}}\]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 08:43:52 | 显示全部楼层
nyy 发表于 2023-9-26 08:41
盖分数的楼!

\[\frac{\frac{\frac{\frac{\frac{1}{2}}{\frac{3}{4}}}{\frac{\frac{5}{6}}{\frac{7}{8 ...
  1. use strict;use warnings;use diagnostics;
  2. my $str="\\frac{1}{2}";#第一个初始的值
  3. my $add=2;#初始分母每个数字应该增加的值
  4. my $fm;#分母
  5. my $i=1;#循环变量
  6. my $max=5;#最大的数是2^($max)
  7. while($i<$max)#最大的数是2^($max)
  8. {
  9.     $fm=$str;#把分子字符串赋值给分母
  10.     $fm=~s/(\d+)/$1+$add/eg;#分母上的各个数增加$add,e表示计算
  11.     $str="\\frac{$str}{$fm}";#由分子分母得到一个新的分数
  12.     $add=$add*2;#下次增加的数乘以2,依次是2 4 8 16 32 64
  13.     $i++;
  14. }
  15. #输出结果
  16. open(FH,">out2.txt");
  17. print FH "\\[$str\\]";
  18. print FH "\n";
  19. close(FH);
复制代码


perl代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 09:07:53 | 显示全部楼层

指数金字塔

  1. \[1^{2^{3^{4^{5^{6^{7^{8^{9^{10^{11^{12^{13^{14^{15^{16^{17^{18^{19^{20^{21^{22^{23^{24^{25^{26^{27^{28^{29^{30^{31^{32^{33^{34^{35^{36^{37^{38^{39^{40^{41^{42^{43^{44^{45^{46^{47^{48^{49^{50^{51^{52^{53^{54^{55^{56^{57^{58^{59^{60^{61^{62^{63^{64^{65^{66^{67^{68^{69^{70^{71^{72^{73^{74^{75^{76^{77^{78^{79^{80^{81^{82^{83^{84^{85^{86^{87^{88^{89^{90^{91^{92^{93^{94^{95}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\]
复制代码


\[1^{2^{3^{4^{5^{6^{7^{8^{9^{10^{11^{12^{13^{14^{15^{16^{17^{18^{19^{20^{21^{22^{23^{24^{25^{26^{27^{28^{29^{30^{31^{32^{33^{34^{35^{36^{37^{38^{39^{40^{41^{42^{43^{44^{45^{46^{47^{48^{49^{50^{51^{52^{53^{54^{55^{56^{57^{58^{59^{60^{61^{62^{63^{64^{65^{66^{67^{68^{69^{70^{71^{72^{73^{74^{75^{76^{77^{78^{79^{80^{81^{82^{83^{84^{85^{86^{87^{88^{89^{90^{91^{92^{93^{94^{95}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 09:17:34 | 显示全部楼层
本帖最后由 nyy 于 2023-9-26 09:23 编辑


不断开根号金字塔

  1. \[\sqrt{1+\sqrt{2+\sqrt{3+\sqrt{4+\sqrt{5+\sqrt{6+\sqrt{7+\sqrt{8+\sqrt{9+\sqrt{10+\sqrt{11+\sqrt{12+\sqrt{13+\sqrt{14+\sqrt{15+\sqrt{16+\sqrt{17+\sqrt{18+\sqrt{19+\sqrt{20+\sqrt{21+\sqrt{22+\sqrt{23+\sqrt{24+\sqrt{25}}}}}}}}}}}}}}}}}}}}}}}}}\]
复制代码


\[\sqrt{1+\sqrt{2+\sqrt{3+\sqrt{4+\sqrt{5+\sqrt{6+\sqrt{7+\sqrt{8+\sqrt{9+\sqrt{10+\sqrt{11+\sqrt{12+\sqrt{13+\sqrt{14+\sqrt{15+\sqrt{16+\sqrt{17+\sqrt{18+\sqrt{19+\sqrt{20+\sqrt{21+\sqrt{22+\sqrt{23+\sqrt{24+\sqrt{25}}}}}}}}}}}}}}}}}}}}}}}}}\]


\[\sqrt{1+\sqrt{2+\sqrt{3+\sqrt{4+\sqrt{5+\sqrt{6+\sqrt{7+\sqrt{8+\sqrt{9+\sqrt{10}}}}}}}}}}\]

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 12:20:14 | 显示全部楼层
本帖最后由 nyy 于 2023-9-26 12:32 编辑
nyy 发表于 2023-9-26 09:17
不断开根号金字塔

  1. \[\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{50}]{49}}]{48}}]{47}}]{46}}]{45}}]{44}}]{43}}]{42}}]{41}}]{40}}]{39}}]{38}}]{37}}]{36}}]{35}}]{34}}]{33}}]{32}}]{31}}]{30}}]{29}}]{28}}]{27}}]{26}}]{25}}]{24}}]{23}}]{22}}]{21}}]{20}}]{19}}]{18}}]{17}}]{16}}]{15}}]{14}}]{13}}]{12}}]{11}}]{10}}]{9}}]{8}}]{7}}]{6}}]{5}}]{4}}]{3}}]{2}}]{1}\]
复制代码


不断地开根号

\[\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{50}]{49}}]{48}}]{47}}]{46}}]{45}}]{44}}]{43}}]{42}}]{41}}]{40}}]{39}}]{38}}]{37}}]{36}}]{35}}]{34}}]{33}}]{32}}]{31}}]{30}}]{29}}]{28}}]{27}}]{26}}]{25}}]{24}}]{23}}]{22}}]{21}}]{20}}]{19}}]{18}}]{17}}]{16}}]{15}}]{14}}]{13}}]{12}}]{11}}]{10}}]{9}}]{8}}]{7}}]{6}}]{5}}]{4}}]{3}}]{2}}]{1}\]


\[\sqrt[{\sqrt[{\sqrt[{\sqrt[{5}]{4}}]{3}}]{2}}]{1}\]


\[\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{61}]{60}}]{59}}]{58}}]{57}}]{56}}]{55}}]{54}}]{53}}]{52}}]{51}}]{50}}]{49}}]{48}}]{47}}]{46}}]{45}}]{44}}]{43}}]{42}}]{41}}]{40}}]{39}}]{38}}]{37}}]{36}}]{35}}]{34}}]{33}}]{32}}]{31}}]{30}}]{29}}]{28}}]{27}}]{26}}]{25}}]{24}}]{23}}]{22}}]{21}}]{20}}]{19}}]{18}}]{17}}]{16}}]{15}}]{14}}]{13}}]{12}}]{11}}]{10}}]{9}}]{8}}]{7}}]{6}}]{5}}]{4}}]{3}}]{2}}]{1}\]
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-26 12:24:39 | 显示全部楼层
nyy 发表于 2023-9-26 12:20
不断地开根号

\[\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sqrt[{\sq ...
  1. use strict;use warnings;use diagnostics;
  2. my $str="\\frac{1}{2}";#第一个初始的值
  3. my $add=2;#初始分母每个数字应该增加的值
  4. my $fm;#分母
  5. my $i=1;#循环变量
  6. my $max=5;#最大的数是2^($max)
  7. while($i<$max)#最大的数是2^($max)
  8. {
  9.     $fm=$str;#把分子字符串赋值给分母
  10.     $fm=~s/(\d+)/$1+$add/eg;#分母上的各个数增加$add,e表示计算
  11.     $str="\\frac{$str}{$fm}";#由分子分母得到一个新的分数
  12.     $add=$add*2;#下次增加的数乘以2,依次是2 4 8 16 32 64
  13.     $i++;
  14. }
  15. #输出结果
  16. open(FH,">out2.txt");
  17. print FH "\\[$str\\]";
  18. print FH "\n";
  19. close(FH);

  20. #指数金字塔
  21. #$max=4时的输出结果:\[1^{2^{3^{4}}}\]
  22. $max=95;#最大的指数是$max
  23. my $aa="1";#最下面的base
  24. my $bb="";
  25. $i=2;#循环变量
  26. while($i<=$max)
  27. {
  28.     $aa="$aa"."^{"."$i";
  29.     $bb=$bb."}";
  30.     $i++;
  31. }
  32. $str=$aa.$bb;#两部分拼成输出结果
  33. #输出结果
  34. open(FH,">>out2.txt");
  35. print FH "\\[$str\\]";
  36. print FH "\n";
  37. close(FH);

  38. #不断开根号金字塔
  39. #$max=5时的输出结果: \[\sqrt{1+\sqrt{2+\sqrt{3+\sqrt{4+\sqrt{5}}}}}\]
  40. $max=25;#最大的指数是$max
  41. $aa="\\sqrt{1";#初始值,最下面的base
  42. $bb="}";#初始值
  43. $i=2;#循环变量
  44. while($i<=$max)
  45. {
  46.     $aa="$aa"."+\\sqrt{$i";
  47.     $bb=$bb."}";
  48.     $i++;
  49. }
  50. $str=$aa.$bb;#两部分拼成输出结果
  51. #输出结果
  52. open(FH,">>out2.txt");
  53. print FH "\\[$str\\]";
  54. print FH "\n";
  55. close(FH);

  56. #开n次方的金字塔
  57. #max=5的输出结果: \[\sqrt[{\sqrt[{\sqrt[{\sqrt[{5}]{4}}]{3}}]{2}}]{1}\]
  58. $max=5;#最大的指数是$max
  59. $aa="\\sqrt";#初始值,最下面的base
  60. $bb="{1}";#初始值
  61. $i=2;
  62. while($i<$max)
  63. {
  64.     $aa=$aa . "[{\\sqrt";
  65.     $bb="{$i}}]" . $bb;
  66.     $i++;
  67. }
  68. $str=$aa."[{$max}]".$bb;#前后两部分,加上中间的
  69. #输出结果
  70. open(FH,">>out2.txt");
  71. print FH "\\[$str\\]";#加上LaTeX的符号
  72. print FH "\n";
  73. close(FH);
复制代码

点评

nyy
perl文本处理真爽,就是稍微费点脑筋  发表于 2023-9-26 12:27
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2023-9-27 08:45:21 | 显示全部楼层
本帖最后由 nyy 于 2023-9-27 08:47 编辑


右下角不断迭代:
  1. \[1_{2_{3_{4_{5_{6_{7_{8_{9_{10_{11_{12_{13_{14_{15_{16_{17_{18_{19_{20_{21_{22_{23_{24_{25_{26_{27_{28_{29_{30_{31_{32_{33_{34_{35_{36_{37_{38_{39_{40_{41_{42_{43_{44_{45_{46_{47_{48_{49_{50_{51_{52_{53_{54_{55_{56_{57_{58_{59_{60_{61_{62_{63_{64_{65_{66_{67_{68_{69_{70_{71_{72_{73_{74_{75_{76_{77_{78_{79_{80_{81_{82_{83_{84_{85_{86_{87_{88_{89_{90_{91_{92_{93_{94_{95_{96_{97_{98_{99_{100_{101}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\]
复制代码


只发73个
\[1_{2_{3_{4_{5_{6_{7_{8_{9_{10_{11_{12_{13_{14_{15_{16_{17_{18_{19_{20_{21_{22_{23_{24_{25_{26_{27_{28_{29_{30_{31_{32_{33_{34_{35_{36_{37_{38_{39_{40_{41_{42_{43_{44_{45_{46_{47_{48_{49_{50_{51_{52_{53_{54_{55_{56_{57_{58_{59_{60_{61_{62_{63_{64_{65_{66_{67_{68_{69_{70_{71_{72_{73}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\]



  1. #右下角不断下标
  2. #max=5时的输出结果:\[1_{2_{3_{4_{5}}}}\]
  3. $max=5;#最大的指数是$max
  4. $aa="1";#初始值
  5. $bb="";#初始值
  6. $i=2;#循环变量
  7. while($i<=$max)
  8. {
  9.     $aa="$aa"."_{"."$i";
  10.     $bb=$bb."}";
  11.     $i++;
  12. }
  13. $str=$aa.$bb;#两部分拼成输出结果
  14. #输出结果
  15. open(FH,">>out2.txt");
  16. print FH "\\[$str\\]";#LaTeX输出
  17. print FH "\n";#换行
  18. close(FH);
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-11-21 21:32 , Processed in 0.039578 second(s), 17 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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