From b6d22fb69cc7f2735102934aaae137a9c78b85f4 Mon Sep 17 00:00:00 2001 From: Alexander Voigt Date: Wed, 20 Sep 2017 20:11:51 +0200 Subject: [PATCH] match another pattern for cubic root --- meta/CConversion.m | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/meta/CConversion.m b/meta/CConversion.m index b381261ef..998a76750 100644 --- a/meta/CConversion.m +++ b/meta/CConversion.m @@ -689,7 +689,7 @@ Format["Sqr(" <> ToString[CForm[b]] <> ")", OutputForm]; Format[Power[b_,0.5 | 1/2],CForm] := Format["Sqrt(" <> ToString[CForm[b]] <> ")", OutputForm]; -Format[Power[b_,1/3],CForm] := +Format[Power[b_,1./3 | 1/3],CForm] := Format["Cbrt(" <> ToString[CForm[b]] <> ")", OutputForm]; Protect[Power];