File:Vectors made with Maxima CAS.svg
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Size of this PNG preview of this SVG file: 600 × 500 pixels. Other resolutions: 288 × 240 pixels | 576 × 480 pixels | 922 × 768 pixels | 1,229 × 1,024 pixels | 2,458 × 2,048 pixels.
Original file (SVG file, nominally 600 × 500 pixels, file size: 16 KB)
File information
Structured data
Captions
Summary[edit]
DescriptionVectors made with Maxima CAS.svg |
English: Vectors made with Maxima CAS |
Date | |
Source | Own work |
Author | Adam majewski |
Licensing[edit]
I, the copyright holder of this work, hereby publish it under the following license:
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
Maxima CAS source code[edit]
/* Batch file for Maxima CAS save as a o.mac run maxima : maxima and then : batch("gradient.mac"); */ kill(all); remvalue(all); /* functions */ /* point of the unit circle D={w:abs(w)=1 } where w=l(t) t is angle in turns 1 turn = 360 degree = 2*Pi radians */ give_unit_circle_point(t):= float(rectform(%e^(%i*t*2*%pi)))$ /* circle points */ give_circle_point(center, Radius, t) := center + Radius*give_unit_circle_point(t)$ /* vector cfrom c1 to c2 from draw package : vector([x, y], [dx,dy]) plots vector [dx, dy] with origin in [x, y]. */ give_vector(c1, c2):=block( [x,y,dx,dy], x: realpart(c1), y: imagpart(c1), dx : realpart(c2) - x, dy : imagpart(c2) - y, vector([x, y], [dx,dy]) )$ /* circle (Center, Radius ) n points c on the above circle */ give_vectors(Center, Radius, n):=( [vv, v,dt, t, c], vv:[], dt : 1/n, t : 0, while (t <= 1) do ( c : give_circle_point(Center, Radius,t), v : give_vector(Center, c), vv: cons(v,vv), t : t + dt ), vv )$ /* compile( all); */ Radius: 3$ /* radius of the circel around center */ n: 10; Center: 0.5$ vv : give_vectors(Center, Radius, n); path:""$ /* if empty then file is in a home dir , path should end with "/" */ load(draw)$ draw2d( terminal = svg, file_name = sconcat(path, "vectors"), title = "vectors", /*xrange = [-5,5], yrange = [5,5], */ line_width = 2, line_type = solid, head_angle = 10, /* the angle, in degrees, between the arrow heads and the segment. Default value: 45 */ head_both = false, head_type = filled, key = "", color = blue, head_length = 1, vv )$
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 12:33, 21 July 2018 | 600 × 500 (16 KB) | Soul windsurfer (talk | contribs) | User created page with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
File usage on other wikis
The following other wikis use this file:
- Usage on en.wikibooks.org
- Usage on hi.wikipedia.org
- Usage on pl.wikibooks.org
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
Short title | Gnuplot |
---|---|
Image title | Produced by GNUPLOT 5.3 patchlevel 0 |
Width | 600 |
Height | 500 |
Hidden categories: