CPAL Playground

/* Copyright (C) 2015, RealTime-at-Work, All Rights Reserved
 *
 * You may use, copy, reproduce, and distribute this sample cource code for any non-commercial purpose.
 * Some purposes which can be non-commercial are teaching, academic research,
 * public demonstrations and personal experimentation. You may also distribute this Software
 * with books or other teaching materials, or publish the Software on websites,
 * that are intended to teaching for academic or other non-commercial purposes.
 *
 * In return, we simply require that you agree: 
 * 1. That you will not remove any copyright or other notices from the Software.
 * 2. THAT THE SOFTWARE COMES "AS IS", WITH NO WARRANTIES. THIS MEANS NO EXPRESS, 
 *    IMPLIED OR STATUTORY WARRANTY.
 *
 * @keywords random; variable, static; random, exponential distribution
 */ 
include "annotations/hardware/hw_file.cpal"
processdef Pareto_Random_Generator(out float32: value)
{
  state Main {
    value = float32.rand_pareto(0.25);
  }
}

struct Csv_Record {
 float32: x;
 float32: y;
};
/*On special board linuxmbed or raspberry it will serialise to CSV file.*/
var queue<Csv_Record>: log_randpareto[5];
@cpal:hardware:log_randpareto
{
  var CPAL_File : logger = {File_Access.WRITE, File_Format.CSV, "randpareto.csv" }; 
}
processdef For_Bitmap(in float32: value)
{
  static var float32: last;
  
  state First {
    last = value;
  }
  on (true) to Main;
  
  state Main {
    var Csv_Record: r;
    r.x = last;
    r.y = value;
    log_randpareto.push(r);
    last = value;
  }
}

var float32: val;
process Pareto_Random_Generator: p_main[100ms](val);
process For_Bitmap: p_bitmap[100ms](val);

for ms or try the desktop editor with advanced diagram views

Simulation
Tasks diagram


Quiet mode disabled
[0.000000000000:ASSIGN] Assign cpal_system new value: Scheduling_Policy.FIFO
[0.000000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.000000000000:STATE] process "Pareto_Random_Generator", instance "p_main", state "Main"
[0.000000000000:ASSIGN] Assign val new value: 484.196777
[0.000000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.000000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.000000000000:STATE] process "For_Bitmap", instance "p_bitmap", state "First"
[0.000000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.100000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.100000000000:ASSIGN] Assign val new value: 3.168604
[0.100000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.100000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.100000000000:STATE] process "For_Bitmap", instance "p_bitmap", state "Main"
[0.100000000000:ASSIGN][0.100000000000] Pushed log_randpareto new value: {484.196777,3.168604}
[0.100000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.200000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.200000000000:ASSIGN] Assign val new value: 142.703171
[0.200000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.200000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.200000000000:ASSIGN][0.200000000000] Pushed log_randpareto new value: {3.168604,142.703171}
[0.200000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.300000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.300000000000:ASSIGN] Assign val new value: 123606.601562
[0.300000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.300000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.300000000000:ASSIGN][0.300000000000] Pushed log_randpareto new value: {142.703171,123606.601562}
[0.300000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.400000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.400000000000:ASSIGN] Assign val new value: 1.080946
[0.400000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.400000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.400000000000:ASSIGN][0.400000000000] Pushed log_randpareto new value: {123606.601562,1.080946}
[0.400000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.500000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.500000000000:ASSIGN] Assign val new value: 7.973451
[0.500000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.500000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.500000000000:ASSIGN][0.500000000000] Pushed log_randpareto new value: {1.080946,7.973451}
[0.500000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.600000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.600000000000:ASSIGN] Assign val new value: 3.182806
[0.600000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.600000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.600000000000:ASSIGN][0.600000000000] Pushed log_randpareto new value: {7.973451,3.182806}
[0.600000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.700000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.700000000000:ASSIGN] Assign val new value: 1.096252
[0.700000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.700000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.700000000000:ASSIGN][0.700000000000] Pushed log_randpareto new value: {3.182806,1.096252}
[0.700000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.800000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.800000000000:ASSIGN] Assign val new value: 18.939318
[0.800000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.800000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.800000000000:ASSIGN][0.800000000000] Pushed log_randpareto new value: {1.096252,18.939318}
[0.800000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[0.900000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[0.900000000000:ASSIGN] Assign val new value: 5.422014
[0.900000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[0.900000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[0.900000000000:ASSIGN][0.900000000000] Pushed log_randpareto new value: {18.939318,5.422014}
[0.900000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.000000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.000000000000:ASSIGN] Assign val new value: 3.603476
[1.000000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.000000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.000000000000:ASSIGN][1.000000000000] Pushed log_randpareto new value: {5.422014,3.603476}
[1.000000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.100000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.100000000000:ASSIGN] Assign val new value: 26.932026
[1.100000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.100000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.100000000000:ASSIGN][1.100000000000] Pushed log_randpareto new value: {3.603476,26.932026}
[1.100000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.200000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.200000000000:ASSIGN] Assign val new value: 1.828462
[1.200000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.200000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.200000000000:ASSIGN][1.200000000000] Pushed log_randpareto new value: {26.932026,1.828462}
[1.200000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.300000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.300000000000:ASSIGN] Assign val new value: 23.098961
[1.300000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.300000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.300000000000:ASSIGN][1.300000000000] Pushed log_randpareto new value: {1.828462,23.098961}
[1.300000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.400000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.400000000000:ASSIGN] Assign val new value: 19.141775
[1.400000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.400000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.400000000000:ASSIGN][1.400000000000] Pushed log_randpareto new value: {23.098961,19.141775}
[1.400000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.500000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.500000000000:ASSIGN] Assign val new value: 2396.597900
[1.500000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.500000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.500000000000:ASSIGN][1.500000000000] Pushed log_randpareto new value: {19.141775,2396.597900}
[1.500000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.600000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.600000000000:ASSIGN] Assign val new value: 15.971148
[1.600000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.600000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.600000000000:ASSIGN][1.600000000000] Pushed log_randpareto new value: {2396.597900,15.971148}
[1.600000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.700000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.700000000000:ASSIGN] Assign val new value: 8.798371
[1.700000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.700000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.700000000000:ASSIGN][1.700000000000] Pushed log_randpareto new value: {15.971148,8.798371}
[1.700000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.800000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.800000000000:ASSIGN] Assign val new value: 233.853958
[1.800000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.800000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.800000000000:ASSIGN][1.800000000000] Pushed log_randpareto new value: {8.798371,233.853958}
[1.800000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[1.900000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[1.900000000000:ASSIGN] Assign val new value: 3.146511
[1.900000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[1.900000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[1.900000000000:ASSIGN][1.900000000000] Pushed log_randpareto new value: {233.853958,3.146511}
[1.900000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.000000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.000000000000:ASSIGN] Assign val new value: 2.986022
[2.000000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.000000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.000000000000:ASSIGN][2.000000000000] Pushed log_randpareto new value: {3.146511,2.986022}
[2.000000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.100000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.100000000000:ASSIGN] Assign val new value: 4.678753
[2.100000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.100000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.100000000000:ASSIGN][2.100000000000] Pushed log_randpareto new value: {2.986022,4.678753}
[2.100000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.200000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.200000000000:ASSIGN] Assign val new value: 15585.611328
[2.200000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.200000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.200000000000:ASSIGN][2.200000000000] Pushed log_randpareto new value: {4.678753,15585.611328}
[2.200000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.300000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.300000000000:ASSIGN] Assign val new value: 2.055449
[2.300000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.300000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.300000000000:ASSIGN][2.300000000000] Pushed log_randpareto new value: {15585.611328,2.055449}
[2.300000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.400000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.400000000000:ASSIGN] Assign val new value: 3.086302
[2.400000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.400000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.400000000000:ASSIGN][2.400000000000] Pushed log_randpareto new value: {2.055449,3.086302}
[2.400000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.500000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.500000000000:ASSIGN] Assign val new value: 2.421002
[2.500000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.500000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.500000000000:ASSIGN][2.500000000000] Pushed log_randpareto new value: {3.086302,2.421002}
[2.500000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.600000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.600000000000:ASSIGN] Assign val new value: 153.486649
[2.600000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.600000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.600000000000:ASSIGN][2.600000000000] Pushed log_randpareto new value: {2.421002,153.486649}
[2.600000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.700000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.700000000000:ASSIGN] Assign val new value: 933066.625000
[2.700000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.700000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.700000000000:ASSIGN][2.700000000000] Pushed log_randpareto new value: {153.486649,933066.625000}
[2.700000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.800000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.800000000000:ASSIGN] Assign val new value: 353.835358
[2.800000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.800000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.800000000000:ASSIGN][2.800000000000] Pushed log_randpareto new value: {933066.625000,353.835358}
[2.800000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[2.900000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[2.900000000000:ASSIGN] Assign val new value: 1.400183
[2.900000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[2.900000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[2.900000000000:ASSIGN][2.900000000000] Pushed log_randpareto new value: {353.835358,1.400183}
[2.900000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
[3.000000000000:rand-pareto-float:STARTING_TASK] 'p_main'
[3.000000000000:ASSIGN] Assign val new value: 11.753935
[3.000000000000:rand-pareto-float:TASK_FINISHED] 'p_main'
[3.000000000000:rand-pareto-float:STARTING_TASK] 'p_bitmap'
[3.000000000000:ASSIGN][3.000000000000] Pushed log_randpareto new value: {1.400183,11.753935}
[3.000000000000:rand-pareto-float:TASK_FINISHED] 'p_bitmap'
EXIT (SUCCESS) AT 3s (3000000000000)

PID	start	end	name	state
0	0	0	p_main	Main
1	0	0	p_bitmap	First
0	100000000000	100000000000	p_main	Main
1	100000000000	100000000000	p_bitmap	Main
0	200000000000	200000000000	p_main	Main
1	200000000000	200000000000	p_bitmap	Main
0	300000000000	300000000000	p_main	Main
1	300000000000	300000000000	p_bitmap	Main
0	400000000000	400000000000	p_main	Main
1	400000000000	400000000000	p_bitmap	Main
0	500000000000	500000000000	p_main	Main
1	500000000000	500000000000	p_bitmap	Main
0	600000000000	600000000000	p_main	Main
1	600000000000	600000000000	p_bitmap	Main
0	700000000000	700000000000	p_main	Main
1	700000000000	700000000000	p_bitmap	Main
0	800000000000	800000000000	p_main	Main
1	800000000000	800000000000	p_bitmap	Main
0	900000000000	900000000000	p_main	Main
1	900000000000	900000000000	p_bitmap	Main
0	1000000000000	1000000000000	p_main	Main
1	1000000000000	1000000000000	p_bitmap	Main
0	1100000000000	1100000000000	p_main	Main
1	1100000000000	1100000000000	p_bitmap	Main
0	1200000000000	1200000000000	p_main	Main
1	1200000000000	1200000000000	p_bitmap	Main
0	1300000000000	1300000000000	p_main	Main
1	1300000000000	1300000000000	p_bitmap	Main
0	1400000000000	1400000000000	p_main	Main
1	1400000000000	1400000000000	p_bitmap	Main
0	1500000000000	1500000000000	p_main	Main
1	1500000000000	1500000000000	p_bitmap	Main
0	1600000000000	1600000000000	p_main	Main
1	1600000000000	1600000000000	p_bitmap	Main
0	1700000000000	1700000000000	p_main	Main
1	1700000000000	1700000000000	p_bitmap	Main
0	1800000000000	1800000000000	p_main	Main
1	1800000000000	1800000000000	p_bitmap	Main
0	1900000000000	1900000000000	p_main	Main
1	1900000000000	1900000000000	p_bitmap	Main
0	2000000000000	2000000000000	p_main	Main
1	2000000000000	2000000000000	p_bitmap	Main
0	2100000000000	2100000000000	p_main	Main
1	2100000000000	2100000000000	p_bitmap	Main
0	2200000000000	2200000000000	p_main	Main
1	2200000000000	2200000000000	p_bitmap	Main
0	2300000000000	2300000000000	p_main	Main
1	2300000000000	2300000000000	p_bitmap	Main
0	2400000000000	2400000000000	p_main	Main
1	2400000000000	2400000000000	p_bitmap	Main
0	2500000000000	2500000000000	p_main	Main
1	2500000000000	2500000000000	p_bitmap	Main
0	2600000000000	2600000000000	p_main	Main
1	2600000000000	2600000000000	p_bitmap	Main
0	2700000000000	2700000000000	p_main	Main
1	2700000000000	2700000000000	p_bitmap	Main
0	2800000000000	2800000000000	p_main	Main
1	2800000000000	2800000000000	p_bitmap	Main
0	2900000000000	2900000000000	p_main	Main
1	2900000000000	2900000000000	p_bitmap	Main
0	3000000000000	3000000000000	p_main	Main
1	3000000000000	3000000000000	p_bitmap	Main