Trace MathDraws mathematical functions
File Name : tracemath.vbs Requirement : none Author : Jean-Luc Antoine Submitted : 01/09/2001 Category : Other Preview : Click here ! option explicit Const L=160 Const H=120 Dim f, s, t, c, i, j, x, y, a Dim m(160,120) For y = 0 To H For x = 0 To L m(x,y) = "." Next Next i = L/2 j = H/2 a = 20 For y = j-a To a-j Step -4 For x = -i To i m(x+i,y+j+Sin(Sqr(x*x+y*y)/14)*a) = "*" Next Next Set f = CreateObject("Scripting.FileSystemObject") t = f.GetTempName Set c = f.CreateTextFile(t, -1) For y = 0 To H s = "" For x = 0 To L s = s & m(x,y) Next c.WriteLine(s) Next c.Close Set c = WScript.CreateObject("WScript.Shell") c.Run "notepad.exe " & t,3 ,-1 f.DeleteFile t |
|||||
![]()
|
|