Файл:Normal lines to the ellipse.svg
Материал из Википедии — свободной энциклопедии
Перейти к навигации
Перейти к поиску
Размер этого PNG-превью для исходного SVG-файла: 600 × 600 пкс. Другие разрешения: 240 × 240 пкс | 480 × 480 пкс | 768 × 768 пкс | 1024 × 1024 пкс | 2048 × 2048 пкс | 2000 × 2000 пкс.
Исходный файл (SVG-файл, номинально 2000 × 2000 пкс, размер файла: 290 КБ)
Этот файл находится на Викискладе. Сведения о нём показаны ниже.
Викисклад — централизованное хранилище для свободных файлов, используемых в проектах Викимедиа.
Сообщить об ошибке с файлом |
Краткое описание
ОписаниеNormal lines to the ellipse.svg |
English: Normal lines to the ellipse.[1] The evolute of the ellipse ( = Stretched astroid) can be seen. The streched astroid itself is not not drawn: we see it as the locus of points where the lines are especially close to each other. Stretched = "squashed" astroid = dilated in one direction only= the Lamé curve. Is it generalization of the astroid curve) |
Дата | |
Источник | Собственная работа |
Автор | Adam majewski |
Другие версии |
|
SVG‑разработка InfoField |
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Maxima CAS src code
/* =============== Batch file for Maxima CAS save as a c.mac run maxima : maxima and then : batch("e.mac"); ------------text output =-------------- maxima Maxima 5.41.0 http://maxima.sourceforge.net using Lisp GNU Common Lisp (GCL) GCL 2.6.12 Distributed under the GNU Public License. See the file COPYING. Dedicated to the memory of William Schelter. The function bug_report() provides bug reporting information. (%i1) batch("e.mac"); read and interpret file: #p/home/a/maxima/batch/curves/ellipse/e2/e.mac (%i2) kill(all) (%o0) done (%i1) remvalue(all) (%o1) [] (%i2) ratprint:false (%o2) false (%i3) display2d:false (%o3) false (%i4) ellipse:x^2/a^2+y^2/b^2-1 (%o4) y^2/b^2+x^2/a^2-1 (%i5) GiveSlopeEquation(e):=block([deriv,m],depends(y,x),deriv:diff(e,x), m:solve(deriv,'diff(y,x)),m:m[1],m:rhs(m),return(m)) (%i6) define(m(x,y),GiveSlopeEquation(ellipse)) (%o6) m(x,y):=-(b^2*x)/(a^2*y) (%i7) t:0.33 (%o7) 0.33 (%i8) a:2 (%o8) 2 (%i9) b:1 (%o9) 1 (%i10) x0:a*cos(t) (%o10) 1.892084687056774 (%i11) y0:b*sin(t) (%o11) 0.3240430283948683 (%i12) m0:m(x0,y0) (%o12) -1.459748028239586 (%i13) tangent:y = m0*(x-x0)+y0 (%o13) y = 0.3240430283948683-1.459748028239586*(x-1.892084687056774) (%i14) normal:y = (-(x-x0))/m0+y0 (%o14) y = 0.3240430283948683-0.6850497350600779*(1.892084687056774-x) (%i15) load(draw) (%o15) "/usr/share/maxima/5.41.0/share/draw/draw.lisp" (%i16) path:"~/maxima/batch/curves/ellipse/e2/" (%i17) draw2d(user_preamble = "set key top right; unset mouse; ", terminal = 'svg,file_name = sconcat(path,"ell3"),font_size = 13, font = "Liberation Sans", title = "Normal and tangent line to the ellipse ", proportional_axes = 'xy,xrange = [-3,3],yrange = [-3,3], ip_grid = [100,100],color = blue,key = "circle", implicit(ellipse,x,-4,4,y,-4,4),key = "tangent",color = red, implicit(tangent,x,-4,4,y,-4,4),key = "normal",color = green, implicit(normal,x,-4,4,y,-4,4),key = "point", point_type = filled_circle,color = black,points([[x0,y0]])) (%o17) "e.mac" */ kill(all); remvalue(all); ratprint:false; /* a message informing the user of the conversion of floating point numbers to rational numbers is displayed. */ display2d:false; /* ---------- functions ---------------------------------------------------- */ /* ellipse in implicit form */ ellipse : x^2/a^2 + y^2/b^2 - 1; /* https://www.linuxjournal.com/content/maximum-calculus-maxima implicit differentiation compute m equation find dy/dx of implicit equation e */ GiveSlopeEquation(e):=block( [deriv,m], depends(y,x), deriv:diff(e,x), m:solve(deriv,'diff(y,x)), m:m[1], m:rhs(m), return(m) )$ /* m(x,y):=-x/y */ define( m(x,y), GiveSlopeEquation(ellipse)); give_line(t):=block( [x0, y0, m0], t:float(t), /* compute point z = x+y*i of the ellipse */ x0: a*cos(t), y0: b*sin(t), /* compute slope */ m0 : m(x0,y0), return(explicit(-(x-x0)/m0 + y0,x,-4,4)) /* normal */ )$ /* ellipse parameters */ a:2; b:1; iMin:1; /* cot: argument 0.0 isn't in the domain of cot. #0: give_line(t=0) */ iMax:200; /* --------------------computations -------------------------------*/ tt: makelist(2*%pi*i/iMax, i, iMin, iMax)$ /* list of angles from 0 to 2 Pi */ lines: map(give_line,tt)$ /* ------- draw --------------------------------------- */ load(draw); path:"~/maxima/batch/curves/ellipse/en/"$ /* pwd, if empty then file is in a home dir , path should end with "/" */ draw2d( user_preamble="set key top right; unset mouse; ", terminal = 'svg, file_name = sconcat(path,"en200_2000_e"), font_size = 50, font = "Liberation Sans", /* https://commons.wikimedia.org/wiki/Help:SVG#Font_substitution_and_fallback_fonts */ title= "Normal lines to the ellipse ", proportional_axes = 'xy, dimensions = [2000,2000], xrange = [-5,5], yrange = [-5,5], ip_grid=[200,200], color= blue, key = "", lines, color=black, implicit(ellipse, x,-4,4, y,-4,4) )$
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
22 июня 2019
image/svg+xml
История файла
Нажмите на дату/время, чтобы посмотреть файл, который был загружен в тот момент.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 15:50, 22 июня 2019 | 2000 × 2000 (290 КБ) | Soul windsurfer | better quality | |
15:44, 22 июня 2019 | 2000 × 2000 (250 КБ) | Soul windsurfer | User created page with UploadWizard |
Использование файла
Нет страниц, использующих этот файл.
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в en.wikipedia.org
- Использование в ml.wikipedia.org
- Использование в pl.wikipedia.org
- Использование в ta.wikipedia.org
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Краткое название | Gnuplot |
---|---|
Название изображения | Produced by GNUPLOT 5.3 patchlevel 0 |
Ширина | 2000 |
Высота | 2000 |