Beim Kurvensticken werden mehrere gerade Linien "zusammengenäht", um eine Kurve zu erstellen, wie folgt:

Eine Erklärung zu Kurvenstichen finden Sie auf dieser Website .

Wir werden unsere Kurve oben links auf dem Bildschirm zeichnen, wie im Bild oben gezeigt.

Bei einer Ganzzahl n(über STDIN oder einen Funktionsparameter), bei der es sich um die Anzahl der zu zeichnenden Linien handelt, und bei einer Ganzzahlpixel p, die das Intervall zwischen den Startpunkten darstellt, wird eine gerade Linienkurve gezeichnet .

Horizontale / vertikale Linien sind erforderlich und sollten Teil der Zeilenanzahl sein.

Beispielausgaben:

n = 25, p = 15

n = 20, p = 20

Dies ist eine Code-Golf- Herausforderung, sodass der kürzeste Code gewinnt .

Mathematica, 55 51 50 47 64 68 Bytes

f=Graphics[Line@Table[#2{{i-1,#+1},{0,i+1}},{i,#}],ImageSize->#*#2]&

Definiert eine Funktion, die das Bild wie angegeben ergibt, wenn es wie aufgerufen wird

f[25,15]

Nachgeben

Bearbeiten : Es mussten einige Zeichen hinzugefügt werden, um sicherzustellen, dass der zweite Parameter tatsächlich als Pixel interpretiert wurde.

Bearbeiten : vier weitere Bytes zum Zeichnen der horizontalen Linien.

Python - 74

Da die Frage keine Einheiten, Achsenskalierung usw. angibt, habe ich die folgende Mindestlösung:

import pylab
n,p=input()
for i in range(n):pylab.plot([0,i*p],[(i-n)*p,0])

Bash + Imagemagick + xview, 124 Bytes

for((;i<$1;));{
s+=" -draw 'line $[i*$2],0 0,$[($1-i++)*$2]'"
}
eval convert -size $[$1*$2]x$[$1*$2] xc:$s png:-|xview stdin

Ausgabe für ./curvestitch.sh 25 15:

Perl, 121 130 Bytes

Die Eingabe erfolgt über STDIN. Die Werte sind durch Kommas getrennt.

EDIT: Wir haben neue Regeln. Ich bin mir nicht sicher warum, aber die ersten beiden Pixel sind unsichtbar und ich musste einen Versatz hinzufügen ...

use Tk;<>=~/,/;$c=tkinit->Canvas(-width=>$w=$`*$'-$',-height=>$w)->pack;$c->createLine(2,2+$_*$',2+$w-$_*$',2)for 0..~-$`;MainLoop

Hier sind einige Tests:

25x15:

6x72:

BBC Basic, 58 ASCII-Zeichen, Token-Dateigröße 49

INPUTn,p:p*=2FORi=1TOn:MOVEi*p-p,974DRAW0,974-(n-i)*p:NEXT

Laden Sie den Emulator unter http://www.bbcbasic.co.uk/bbcwin/bbcwin.html herunter

p*=2 wird benötigt, weil BBC Basic im Standardmodus ein logisches Quadrat von 2x2 einem einzelnen physischen Pixel zuordnet.

BBC Basic hat den Ursprung in der unteren linken Ecke des Bildschirms, wobei die y-Koordinaten nach oben gehen. Auf meinem Computer hat das Standardfenster eine obere y-Koordinate von 974 (Ihre kann unterschiedlich sein). 7 Zeichen könnten gespeichert werden, wenn es erlaubt wäre, in der unteren linken Ecke des Bildschirms zu zeichnen. Durch Hinzufügen MODE16nach dem ersten :wird die Größe des Fensters so geändert, dass die obere y-Koordinate garantiert 799 beträgt.

HTML + JavaScript 155 157 183

Bearbeiten: Erfahren Sie, welche Dinge ich ohne Funktionsverlust schneiden kann.
Bearbeiten 2: wie von @Optimizer vorgeschlagen

<canvas id='c'/><script>
p=prompt,s=p(l=p(t=c.getContext("2d")));for(c.width=c.height=y=s*l,x=0;l--;x-=s)t.moveTo(0,y-=s),t.lineTo(-x,0);t.stroke()
</script>

Fiddle erster Eingang Anzahl von Zeilen , zweites Eingangspixelintervall

Ungolfed Fiddle