68 lines
2.2 KiB
C
68 lines
2.2 KiB
C
/*
|
|
* e_mulvec.c
|
|
*
|
|
* Created on: 10-06-2016
|
|
* Author: Krzysztof Jakubczyk
|
|
*/
|
|
|
|
#include "tdefs.h"
|
|
#include "misc.h"
|
|
|
|
#include "e_mulvec.h"
|
|
|
|
int e_mulvec_initlog(void *arguments, void *logic)
|
|
{
|
|
struct e_mulvec_args *args = (struct e_mulvec_args *)arguments;
|
|
struct e_mulvec_logic *log = (struct e_mulvec_logic *)logic;
|
|
|
|
log->orta1_ptr = (float *)(log_manager.nets_data + (args->io.orta1_float_in >> 3));
|
|
if((u8 *)log->orta1_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->ortb1_ptr = (float *)(log_manager.nets_data + (args->io.ortb1_float_in >> 3));
|
|
if((u8 *)log->ortb1_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->orta2_ptr = (float *)(log_manager.nets_data + (args->io.orta2_float_in >> 3));
|
|
if((u8 *)log->orta2_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->ortb2_ptr = (float *)(log_manager.nets_data + (args->io.ortb2_float_in >> 3));
|
|
if((u8 *)log->ortb2_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->orta_ptr = (float *)(log_manager.nets_data + (args->io.orta_float_out >> 3));
|
|
if((u8 *)log->orta_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->ortb_ptr = (float *)(log_manager.nets_data + (args->io.ortb_float_out >> 3));
|
|
if((u8 *)log->ortb_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
log->esk_ptr = (float *)(log_manager.nets_data + (args->io.esk_float_out >> 3));
|
|
if((u8 *)log->esk_ptr > (log_manager.nets_data+sizeof(log_manager.nets_data) - sizeof(float)))
|
|
return -1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
void e_mulvec(void *arguments, void *logic)
|
|
{
|
|
struct e_mulvec_args *args = (struct e_mulvec_args *)arguments;
|
|
struct e_mulvec_logic *log = (struct e_mulvec_logic *)logic;
|
|
|
|
float orta, ortb;
|
|
|
|
ortb = *log->orta1_ptr * *log->orta2_ptr - *log->ortb1_ptr * *log->ortb2_ptr;
|
|
orta = *log->ortb1_ptr * *log->orta2_ptr + *log->orta1_ptr * *log->ortb2_ptr;
|
|
|
|
if(args->io.esk_float_out)
|
|
*log->esk_ptr=(orta*orta + ortb*ortb)/2;
|
|
|
|
if(args->io.orta_float_out)
|
|
*log->orta_ptr = orta;
|
|
|
|
if(args->io.ortb_float_out)
|
|
*log->ortb_ptr = ortb;
|
|
}
|