1
$\begingroup$
b1={1.8743,1.8784,1.88248,1.89049,1.89828,1.90587,1.91327,1.96335,2.03035,2.12536,2.23701,2.30098,2.34255,2.37175,2.3934,2.42334,2.44307,2.48725,2.51208,2.5173,2.52799,2.53164,2.53348,2.53533,2.53625,2.53745,2.53793,2.53894,2.53909,2.53543};
ks1={0.01,1.,2.,4.,6.,8.,10.,25.,50.,100.,200.,300.,400.,500.,600.,800.,1000.,2000.,4000.,5000.,10000.,15000.,20000.,30000.,40000.,70000.,100000.,1.*10^6,1.*10^8,1.*10^12};
data1 = Transpose[{ks1, b1}];
s1 = ListLogLinearPlot[data1, Joined -> True, 
  PlotStyle -> {Black, Thickness[0.01]}, AxesStyle -> Black, 
  PlotRange -> All]

How to put star symbol on same plot which traces the curve. I know with the Plot marker we can achive this, but the thing is I want the tracing at equidistance from start to end. With my data points, I am not getting the tracing properly. How to achive this.

$\endgroup$
  • $\begingroup$ "I want the tracing at equidistance from start to end." - you did quite a bit of a jump here. You have data points, but placing a star at each of these data points is not what you want? What exactly do you mean by "equidistance", distance along the curve that interpolates your data points? $\endgroup$ – J. M. is computer-less Jan 5 at 14:01
  • $\begingroup$ I mean I want to trace the curve which is formed by a data points, between the data the line is traced. now all I have is a line. I want to place star from start to end with placement being at an equal distance $\endgroup$ – acoustics Jan 5 at 14:06
  • $\begingroup$ I meant to say just treat the curve as a contious curve and I wanted to mark the star from start to end $\endgroup$ – acoustics Jan 5 at 14:15
  • $\begingroup$ A related question. $\endgroup$ – J. M. is computer-less Jan 5 at 14:31
4
$\begingroup$

One can use the undocumented MeshFunctions -> {"ArcLength"} option setting to place equispaced (by the arclength of the interpolating curve) markers:

Normal[ListLogLinearPlot[Transpose[{ks1, b1}], Joined -> True, 
                         Mesh -> 6, MeshFunctions -> {"ArcLength"}, MeshStyle -> Red, 
                         PlotStyle -> {Black, Thickness[0.01]}]] /. 
Point[pt_] :> Inset[Style["\[FivePointedStar]", Large], pt]

equispaced markers

$\endgroup$
  • $\begingroup$ Can we make the star unfilled with colour $\endgroup$ – acoustics Jan 5 at 14:33
  • 1
    $\begingroup$ Yes, just replace "\[FivePointedStar]" with "☆". Or, take your pick among the symbols listed here. $\endgroup$ – J. M. is computer-less Jan 5 at 14:37
  • $\begingroup$ Hm. I cannot help but to me, this does not look equidistantly spaced with respect to arclength... $\endgroup$ – Henrik Schumacher Jan 5 at 16:32
  • 1
    $\begingroup$ @Henrik, I will try to investigate tomorrow, as I have just borrowed a friend's computer to write some answers (and check on you guys ;)), and I have to go back home. The problem is that it's not immediately clear how ListLogLinearPlot[] is interpolating the points (and it wasn't the cubic interpolant when I did a check before posting). $\endgroup$ – J. M. is computer-less Jan 5 at 16:46

Your Answer

By clicking "Post Your Answer", you acknowledge that you have read our updated terms of service, privacy policy and cookie policy, and that your continued use of the website is subject to these policies.

Not the answer you're looking for? Browse other questions tagged or ask your own question.