Mathematica随机生成的图片。

＝＝＝＝＝＝＝＝＝＝＝可＝＝爱＝＝的＝＝分＝＝隔＝＝符＝＝＝＝＝＝＝＝＝＝＝＝＝＝

代码如下：

(*随机数字画*)
spaper = Image[ConstantArray[1, {600, 800}]];

For[k = 1, k < 30, k++, {
  n = RandomInteger[{0, 9}];
  tn = ToString[n];
  dushu = RandomReal[{0, 2 Pi}];(*随机角度*)
  daxiao = RandomInteger[{1, 400}];(*随机大小*)
  xx = RandomInteger[{1, 800}];(*随机位置－横*)
  yy = RandomInteger[{1, 600}];(*随机位置－纵*)
  rgb = Flatten[RandomReal[{0, 0.7}, {1, 3}]];(*随机颜色*)
  af = RandomReal[{0.3, 1}];(*随机通道*)
  im = Graphics[
    Rotate[Style[Text[tn], daxiao, 
      RGBColor[rgb[[1]], rgb[[2]], rgb[[3]]]], dushu]];(*生成图片*)
  spaper = ImageCompose[spaper, {im, af}, {xx, yy}];}](*叠加图片*)
Image[spaper](*绘图*)

＝＝＝＝＝＝＝＝＝＝＝可＝＝爱＝＝的＝＝分＝＝隔＝＝符＝＝＝＝＝＝＝＝＝＝＝＝＝＝

(*随机汉字画*)

hpaper = Image[ConstantArray[1, {600, 800}]];

For[k = 1, k < 30, k++, {
  (*随机汉字*)
  ii = RandomInteger[{160 + 16, 160 + 55}];
  jj = RandomInteger[{160 + 1, 160 + 94}];
  tn = FromCharacterCode[{ii, jj}, "CP936"];
  dushu = RandomReal[{0, 2 Pi}];(*随机角度*)
  daxiao = RandomInteger[{1, 300}];(*随机大小*)
  xx = RandomInteger[{1, 800}];(*随机位置－横*)
  yy = RandomInteger[{1, 600}];(*随机位置－纵*)
  rgb = Flatten[RandomReal[{0, 0.7}, {1, 3}]];(*随机颜色*)
  af = RandomReal[{0.3, 1}];(*随机通道*)
  im = Graphics[
    Rotate[Style[Text[tn], daxiao, 
      RGBColor[rgb[[1]], rgb[[2]], rgb[[3]]]], dushu]];(*生成图片*)
  hpaper = ImageCompose[hpaper, {im, af}, {xx, yy}];}](*叠加图片*)
Image[hpaper](*绘图*)

＝＝＝＝＝＝＝＝＝＝＝可＝＝爱＝＝的＝＝分＝＝隔＝＝符＝＝＝＝＝＝＝＝＝＝＝＝＝＝

(*随机字母+数字画*)
apaper = Image[ConstantArray[1, {600, 800}]];

For[k = 1, k < 30, k++, {
  (*随机字母+数字*)
  ii = RandomInteger[{48, 94}];
  tn = FromCharacterCode[ii, "CP936"];
  dushu = RandomReal[{0, 2 Pi}];(*随机角度*)
  daxiao = RandomInteger[{1, 300}];(*随机大小*)
  xx = RandomInteger[{1, 800}];(*随机位置－横*)
  yy = RandomInteger[{1, 600}];(*随机位置－纵*)
  rgb = Flatten[RandomReal[{0, 0.7}, {1, 3}]];(*随机颜色*)
  af = RandomReal[{0.3, 1}];(*随机通道*)
  im = Graphics[
    Rotate[Style[Text[tn], daxiao, 
      RGBColor[rgb[[1]], rgb[[2]], rgb[[3]]]], dushu]];(*生成图片*)
  apaper = ImageCompose[apaper, {im, af}, {xx, yy}];}](*叠加图片*)
Image[apaper](*绘图*)

＝＝＝＝＝＝＝＝＝＝＝可＝＝爱＝＝的＝＝分＝＝隔＝＝符＝＝＝＝＝＝＝＝＝＝＝＝＝＝

(*随机希腊字符画*)
xpaper = Image[ConstantArray[1, {600, 800}]];

For[k = 1, k < 30, k++, {
  (*随机希腊字符*)
  ii = RandomInteger[{913, 974}];
  tn = FromCharacterCode[ii, "CP936"];
  dushu = RandomReal[{0, 2 Pi}];(*随机角度*)
  daxiao = RandomInteger[{1, 300}];(*随机大小*)
  xx = RandomInteger[{1, 800}];(*随机位置－横*)
  yy = RandomInteger[{1, 600}];(*随机位置－纵*)
  rgb = Flatten[RandomReal[{0, 0.7}, {1, 3}]];(*随机颜色*)
  af = RandomReal[{0.3, 1}];(*随机通道*)
   (*im=Binarize[Graphics[Rotate[Style[Text[tn],daxiao],dushu]],
  0.2];*)(*黑白*)
  im = Graphics[
    Rotate[Style[Text[tn], daxiao, 
      RGBColor[rgb[[1]], rgb[[2]], rgb[[3]]]], dushu]];(*生成图片*)
  xpaper = ImageCompose[xpaper, {im, af}, {xx, yy}];}](*叠加图片*)
Image[xpaper](*绘图*)