November 13, 2014
Convert norm Matlab Function to C
When use Matlab, I have use “norm” function. I have created a simple C code to convert this norm Matlab function. Please look code below :
#include
#include
#define ABS(a) (((a) < (0)) ? (-a) : (a))
double norm(double *x, int nx, char *p)
{
double xout;
double tmp1;
double dp;
int btype, i;
if (strcmp(p, "inf") == 0)
{
dp = 0.0;
btype = -1;
xout = ABS(x[0]);
}
else if (strcmp(p, "-inf") == 0)
{
dp = 0.0;
btype = -2;
xout = ABS(x[0]);
}
else if (strcmp(p, "fro") == 0)
{
dp = 2.0;
btype = 1;
xout = 0.0;
}
else
{
sscanf(p, "%lf", &dp);
btype = 2;
xout = 0.0;
}
for (i=0; i<nx; i++)
{
tmp1 = ABS(x[i]);
if(btype==-1) //inf type
{
if (xout < tmp1) xout = tmp1; } else if(btype==-2) //-inf type { if (xout > tmp1)
xout = tmp1;
}
else //double input p
xout = xout + pow(tmp1, dp);
}
if(dp>0)
xout = pow(xout, 1.0 / dp);
return(xout);
}
int main(int argc, char **argv)
{
double A[] = {5, 6, 1, 5, 4, 6};
int nA = 6; //size of vector ABS
double b1 = norm(A, nA, "2");
double b2 = norm(A, nA, "10");
double b3 = norm(A, nA, "inf");
double b4 = norm(A, nA, "fro");
printf("norm(A,2) = %lf \n", b1);
printf("norm(A,10) = %lf \n", b2);
printf("norm(A,'inf') = %lf \n", b3);
printf("norm(A,'fro') = %lf \n", b4);
return(0);
}
Save code C norm code above with name norm.c. Please compile C norm code with command :
gcc norm.c -o norm
Below is testing C norm code result :
C:\temp>norm.exe norm(A,2) = 11.789826 norm(A,10) = 6.532499 norm(A,'inf') = 6.000000 norm(A,'fro') = 11.789826
If you check using Matlab, you will get same result from my C Norm code.
86 Comments
Thanks for sharing. I read many of your blog posts, cool, your blog is very good. https://www.binance.bh/register?ref=IHJUI7TF
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me. https://accounts.binance.com/register/person?ref=GGYHGRE
online casino visa ab 5 euro ab 50 euro bitcoin
bedste sports betting app
My homepage Odds Med Trustly
sportwetten paysafecard
my site :: basketball Euroleague Wetten
historico cuotas apuestas para champions league
live online wedden tips vandaag net op snooker
sportwetten prognose heute
My blog – basketball Wettarten Wetten
pronostico que apuestas hacer futbol
live was heißt hc 0 7 5 2 bei basketball wetten – Glen – erklärung
wettstrategien unentschieden
My page :: nba basketball wetten
como apostar nos times
Here is my page: prognóstico apostas Desportivas (https://www.Chronicpa.com/o-impacto-das-viagens-internacionais-nos-global-games-da-nba/)
online sportwetten ohne lugas
Feel free to surf to my homepage: olympia basketball Wetten (http://WWW.Haptikuss.de)
horse racing betting terms box
My page tab results yesterday greyhounds live
v65 klampenborg
My webpage … esport betting strategi (https://dev.ourstuff.dk/De-mest-mindevaerdige-ojeblikke-i-dansk-klubfodbolds-historie/)
Nederland beste vip wedden tips (Margarette)
wettanbieter schnelle auszahlung
Feel free to surf to my blog wetten tipps basketball
super sport england italy betting (Valorie)
anbefalede bookmakere
Look into my web blog … live Odds bundesliga
horse race betting tips
my webpage … Watch Greyhound Racing Online Free
online casino ohne registrierung mit auszahlung bitcoin casino deutschland android
biggest usa gambling in jamaica montego bay (Marti) sites, can you play poker online united kingdom and australian casino apps, or
is top online pokies and casinos united states pokies
apuestas de caballos en linea, Willie,
segunda division b
sportweddenschappen eu
Look at my web site … tips om sport wedden
juegos casinos en córdoba con bonos
por registro
depósitos de casinos
Here is my website – bono casino ruleta en vivo
бонус кодове за залагания
My blog post :: най-добър сайт за залагания (Emily)
casinos en salamanca
Also visit my web-site el casino figueres – https://pro-frezia.hu/,
online sportwetten schleswig holstein
Here is my web blog: nba basketball wett-tipps (Marquis)
oddset forhandler helsingør
Here is my web blog – Odds Boksning I Dag
wettbüro maximale auszahlung
Stop by my page :: Virtuelle basketball-Wetten
bonus 400% premier dépôt casino
actualité
Betting Advices doubles trebles explained
bild sportwetten
My homepage: Olympia Basketball Wetten
odds formel 1 tennis tips i dag (https://Mmebd.com/malfest-eller-malfattigt-sa-oddser-du-som-en-pro/) dag
united kingdom online casino real money no deposit bonus,
online casino review usa and canada online how do you own a casino (Madelaine) slots,
or play n go casino canada
casa De apuestas minimo 5 euros (reclamadortrafico.es) copa del rey pronosticos
korkeimmat parhaat lentopallo kertoimet (https://www.doorsbyinvision.com/parhaat-futsal-kirjat-ja-oppaat-valmentajille/) nyrkkeily
correct score group best betting analysis (Denice)
online sportwetten vergleich
Here is my website … wo kann man Am besten basketball wetten
casino 10 euro free bet nederland (Dyan) belgie minimum
storting 50 euro
sports goliath betting (Melvina) roi
kasyno online visa legalne; https://WWW.Africat.cat, online jak działają
paras kasino Slotit nettikasino tabletilla
pferderennen hoppegarten live wetten bonus ohne einzahlung (Bessie)
usa casinos that accept paypal, usa casinos and what is the most trusted
online casino in united states, or best casino in australia online
My web page; no deposit bonus codes 2022 raging bull (Jeanette)
como apostar escanteios
My site: resultado De aposta esportiva
yli alle vihjeet
Also visit my website Korkeimmat Kertoimet Jalkapallo
horse racing betting sites on the internet (Mathew) racing results today lingfield
eurocopa casas de Apuestas argentinas
uptown pokies australia review, free pokies 4u canada and remote gambling license usa, or online casino united states
legal real money
My page :: how much is an ace card worth in blackjack (Patricia)
depozyt trustly 20 bet Kasyno bonus bez Depozytu
casino dream catcher En direct suisse direct canada
live Beste Casino Met Cashback maximaal 20
euro
kombiwette mehrweg rechner
Take a look at my site – app für sportwetten – Madison,
wetten ergebnisse tipps
Feel free to visit my website – wett spiele – theceramicstore.Co.uk,
sports spread betting Platforms sites fastest payouts
dagens dubbel odds
Here is my homepage … spela På Darts
pronosticos apuestas en Eventos deportivos virtuales deportivas hoy
wetten die ich immer gewinne
Also visit my website :: Ncca Basketball Wett Vorhersagwn üBertore Untertore
bukméker magyar engedély nélkül
My web blog … fogadóirodáK Bitcoinnal
sportwette tipps
Also visit my page :: College Basketball Wetten
apuestas copa mundial comparación de casas de apuestas (https://Www.ocell.es/) hockey
seriöse sportwetten anbieter
my site: wetten basketball em (https://ms.it-stralsund.de)
wettbüro nürnberg
Review my web blog basketball Wetten ab punktevorsprung sieg tippen
gratiswette bei registrierung
Also visit my web blog :: basketball wetten österreich
sportwetten bonus ohne oasis
Feel free to surf to my web page :: basketball wetten Heute
bester copa libertadores wettanbieter
Feel free to surf to my site :: bet365 basketball spieler wetten (https://gevers-reisen.de)
пункт за залагания Благоевград
Here is my webpage – залози на Евровизия
gegen den euro Live Wetten Basketball Tipps
gute wett tipps
Here is my website – handicap wetten basketball
bester einzahlungsbonus sportwetten
Feel free to visit my web blog :: basketball verlängerung wetten (https://Petrovalaw.ch/echtzeit-statistiken-fur-erfolgreiche-live-wetten/)
ekspresis skaidrojums
Here is my homepage … Value likmes
basketball wetten strategie online schweiz
online basketball over under wetten system schweiz legal
deutschland spiel wetten basketball
bet live wetten
Here is my blog … basketball wm wett tipps (http://Efitalk.de/live-wetten-auf-die-nations-league-taktik-vor-prestige/)
wettanbieter mit cashout
My site … wett tipps basketball Nba
bild sportwetten
Stop by my web blog :: basketball pro b wetten –
Ivory,
über unter basketball Over under wetten (https://Www.bemeco.de/die-rolle-von-expertenmeinungen-in-Der-wettstrategie/) strategie
sportwetten gratis guthaben ohne einzahlung
Also visit my web-site: live wetten basketball
buchmacher online
Here is my web blog … bet365 basketball spieler wetten (Leigh)
sportwetten online bonus
Here is my web-site … Wetten Basketball nba (Mumbaipixels-org-136543.hostingersite.com)
sportwetten systemwette strategie
My website; Basketball wetten handicap
pferderennen deutschland Basketball wetten system
apostas hoje
My web blog: aposta online site