Following is the mathematica command I am using to obtain a contour plot(attached). I see that the length of minor and major ticks are very small. What is a good command to increase the length of both ticks?.
Table[ContourPlot[
f[\[ScriptCapitalD], {x, y}], {x, 55, 80}, {y, 15, 25},
PlotRange -> Full,
PlotLegends ->
BarLegend[Automatic, LabelStyle -> {FontSize -> 32, Black}],
ContourStyle -> Thickness[0.004], ColorFunction -> GrayLevel,
Axes -> True,
FrameLabel -> {Style["x (m)", 32], Style["y (m)", 32]},
Contours -> 10, LabelStyle -> Black, FrameStyle -> Thickness[.005],
AxesStyle -> Black, ContourStyle -> Black, ContourShading -> None,
FrameTicksStyle -> Directive[FontSize -> 12],
BaseStyle -> {FontSize -> 21},
AspectRatio -> 1/2.5 ], {f, {PDF, CDF}}]
FrameTicks
. There is an example under Generalization and Extensionsfticks[min_, max_] := Table[If[EvenQ[i], {i, i, {.1, 0}, Red}, {i, i, {.05, 0}, Blue}], {i, Ceiling[min], Floor[max], 1}]
$\endgroup$Ticks
. It is essentially the same function. $\endgroup$