5 replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/ edited Apr 13 '17 at 12:55 (with thanks to Mr. WizardMr. Wizard)) (with thanks to Mr. Wizard)) (with thanks to Mr. Wizard)) 4 deleted 27 characters in body edited Jun 14 '16 at 9:22 J. M. is away♦ 100k1010 gold badges316316 silver badges473473 bronze badges Or usingOne can also use BSplineFuntion[]BSplineFunction[] andin ParametricPlot[] directly:f = BSplineFunction[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}]]; ParametricPlot[f[x], {x, 0, 1}]  Or using BSplineFuntion[] and ParametricPlot[] directlyf = BSplineFunction[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}] ParametricPlot[f[x], {x, 0, 1}]  One can also use BSplineFunction[] in ParametricPlot[]:f = BSplineFunction[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}]; ParametricPlot[f[x], {x, 0, 1}]  3 added 443 characters in body edited Jun 14 '16 at 8:51 xyz 27033 gold badges2727 silver badges100100 bronze badges Graphics[BSplineCurve[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}], BaseStyle -> {BSplineCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}}}, PlotRange -> {{-1, 1}, {-1, 1}}] (with thanks to Mr. Wizard)) Or using BSplineFuntion[] and ParametricPlot[] directlyf = BSplineFunction[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}] ParametricPlot[f[x], {x, 0, 1}]  Graphics[BSplineCurve[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}], BaseStyle -> {BSplineCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}}} PlotRange -> {{-1, 1}, {-1, 1}}] (with thanks to Mr. Wizard)) Graphics[BSplineCurve[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}], BaseStyle -> {BSplineCurveBoxOptions -> {Method -> {"SplinePoints" -> 30}}}, PlotRange -> {{-1, 1}, {-1, 1}}] (with thanks to Mr. Wizard)) Or using BSplineFuntion[] and ParametricPlot[] directlyf = BSplineFunction[{{-1/Sqrt[2], 1/Sqrt[2]}, {0, Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[2]}}, SplineDegree -> 2, SplineKnots -> {0, 0, 0, 1, 1, 1}, SplineWeights -> {1, -1/Sqrt[2], 1}] ParametricPlot[f[x], {x, 0, 1}]  2 added 617 characters in body edited Jul 11 '15 at 20:57 J. M. is away♦ 100k1010 gold badges316316 silver badges473473 bronze badges 1 answered Sep 23 '12 at 15:19 J. M. is away♦ 100k1010 gold badges316316 silver badges473473 bronze badges